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TO LORI AND MELANIE 


Preface 


ER «Objectives of This Book 


This book has three primary objectives: 
1. To provide you with the ability to write structured ANS COBOL pro- 
grams, 
2. To teach you programming and information processing concepts nec- 
essary to write elementary and advanced programs. 
3. To focus on an effective, efficient standardized code. 


This book may be used by readers with no previous programming back- 
ground as well as by those with experience in other programming languages. 
It has been specifically designed for use in a college or university course, but 
it can also be used as a stand-alone text for readers who are interested in 
learning COBOL on their own. 


ae eee) The Pedagogic Approach 


Our textbooks are intended to provide students with a clear, step-by-step intro- 
duction to the subject matter, one that has thorough explanations, followed 
by programs or program excerpts that reinforce and illustrate all concepts. 

You will find that each concept is thoroughly explained and illustrated with 
actual examples. Self-evaluating questions designed to help you test your un- 
derstanding of the material presented appear after major concepts are discussed 
and at the end of each chapter. These have solutions so that you can determine 
if any problem areas exist. 

The book is segmented into units, each of which has a specific focus. After 
completing the first unit, you will be able to write elementary COBOL pro- 
grams in their entirety. Subsequent units build on COBOL coding rules and 
augment the discussion of coding techniques with file and information 
processing concepts. 

The book basically follows the DPMA Curriculum for COBOL courses. The 
instructor's manual provides a detailed explanation of the relationship be- 
tween this curriculum and the text. 

The three versions of ANS COBOL—1968, 1974, and 1985—are considered 
in — Where differences exist among these standards, they are indicated 
in the text. 


i Urs eran asa Major Features of This Edition 


The following represent the major features of the fourth edition of this text: 


1. A new format is included that is more user-friendly and provides an 
even better pedagogic focus than the previous editions. 
(a) Each chapter begins with: 
(1) A detailed Chapter Outline 
(2) A list of Objectives 
(b] Each chapter ends with aids consisting of a: 
(1) Chapter Summary 
(2) Chapter Self-Evaluating Quiz 
(3) Practice Program 
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(4) Key Terms list 

(5) Review Questions 

(6) Debugging Exercises 

(7) Programming Assignments—with at least four problems—in in- 
creasing order of difficulty. 

(c] Solutions to Chapter Self-Evaluating Questions also include page 
numbers in which the relevant topics are discussed within the 
chapter. 

2. A Study Guide to accompany this text is available. It contains chapter 
outlines, a checklist of knowledge and skills to be gained from each 
chapter, commentary on programming style and, for most chapters, two 
complete programs with sample input and output. Questions covering 
each program develop the student's ability to understand, evaluate, code, 
document, and debug programs. Answers to program questions in each 
chapter are provided. 

3. Emphasis is placed on teaching students how to debug programs. Begin- 
ning with Chapter 6, each chapter has illustrative programs or program 
excerpts with syntax and/or logic errors that the student is asked to 
correct. 

There are two chapters—Chapter 11 and Chapter 26—specifically aimed 
at teaching students how to avoid common programming pitfalls, how 
to find errors, and how to write more efficient programs. 

4, Emphasis is placed on standardization and proper programming form. 
(a) Proper coding form is emphasized. 

(b) Comments for documentation purposes are included in programs; in 

general, full illustrative programs are more comprehensive. 

All practice programs and programming assignments are systemati- 

cally described in a standardized format, typically with a systems 

flowchart, input layout forms, output layout forms, and notes. Where 
appropriate, sample input and output is also provided. 

Programming Assignment 2 for each chapter beginning with Chapter 

6 has a common data set that is supplied in Appendix J. 

(e) The use of pseudocode and flowcharts is greatly enhanced. 

5. Emphasis is placed on data validation and error control procedures. Data 
validation concepts are explained in detail in Chapter 15. From then on, 
each chapter has several review questions and program excerpts specif- 
ically addressing methods to validate data and minimize input errors. 

6. Some higher-level information processing concepts and COBOL instruc- 
tions have been added. There is more emphasis in this edition on basic 
file maintenance procedures, random file processing, interactive pro- 
gramming concepts, and the CALL and COPY statements. Yet the same 
basic step-by-step approach used in previous editions is maintained. 

Additional topics such as STRING, UNSTRING, MERGE, VSAM, and 
the Report Writer Feature are also included. Numerous topics such as 
OCCURS, PERFORM, and conditional statements have been amplified. 


7. A glossary of key terms and concepts has also been added. 
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OBJECTIVES 


To familiarize you with: 
1. Why COBOL is such a popular business-oriented language. 


2. A history of how COBOL evolved and the use of the current ANS standard 
versions of COBOL. 


3. Programming practices and techniques. 
4, An overview of the four divisions of a COBOL program. 


I. Computer Programming: An Overview 


A. What Is a Program? 


No matter how complex a computer may be, its actions are directed by in- 
dividual computer instructions designed and tested by a computer program- 
mer. A progtam consists of a set of instructions that will operate on input 
data and convert it to meaningful output information. A computer, then, can 
operate only as efficiently and effectively as it is programmed. 


B. Machine Language Programs 


All instructions to be executed by the computer must be in machine language. 
For the programmer to code instructions in this form is very tedious and 
cumbersome. It is necessary to remember actual addresses or locations in 
memory and to use complex instruction codes. 


C. Symbolic Programming 


Since programming in machine language is so difficult, programming lan- 
guages were developed to enable the programmer to write English-like or sym- 
bolic instructions. Symbolic instructions, however, must be translated or com- 
piled into machine language before they can be executed. The computer itself 
uses a translator program to perform this conversion into machine language. 

Numerous symbolic programming languages can be translated into ma- 
chine language. COBOL is one such language; it is the one used most exten- 
sively for commercial applications. 


1. The Source Program 

The programmer writes a set of instructions, called the source program, in a 
symbolic programming language. This program cannot be executed or run by 
the computer until it has been translated into machine language. 

The source program is generally keyed into a computer using a terminal 
and then stored on a floppy disk, tape cassette, standard tape or disk, or other 
storage media. The source program may, however, be punched into cards by 
a keypunch machine and then read by a card reader of a computer system. 


2. Compiling the Source Program 

After the source program has been read from a terminal, disk drive, tape drive, 
card reader, or other input device, the computer must translate it into a ma- 
chine language program called the object program before execution can occur. 
A program called a compiler translates source programs into object programs. 


3. Debugging the Source Program 

While the computer is performing this translation, any errors detected by the 
compiler will be listed. That is, any violation of programming rules is noted 
as an error. This type of error is referred to as a syntax error. For example, if 
the COBOL instruction to add two numbers is spelled AD instead of ADD, the 


Figure 1.1 
Steps involved in programming 
a computer. 
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computer will print a message indicating that a syntax error has occurred. If 
errors are of considerable magnitude, translation will be terminated. 

Errors detected during a compilation are not of a logical nature. A logic 
error can be one in which the sequence of programming steps is not specified 
properly. Or it can be one in which the wrong instruction is coded; if you 
include an ADD instruction instead of a MULTIPLY, for example, this would 
result in a logic error. Logic errors are detected by the programmer when the 
program is tested with sample data. If the output of a program run produces 
incorrect results, a logic error has occurred. 

Sample data should be prepared carefully to ensure that during program 
testing or debugging all conditions provided for in a program are actually 
tested. If not, a program that has begun to be used on a regularly scheduled 
production basis may eventually produce logic errors. 

If there are no errors in the source program or if only minor violations of 
rules occur, all instructions will be translated into machine language form. 
The program can then be executed, or tested. If, however, execution is not 
necessary at this time, the object program may be stored, usually on magnetic 
disk or tape. Thus, an object program may be used to execute the instructions 
without the necessity of recompiling the source program. Figure 1.1 illustrates 
the steps involved in programming. 
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Self-Evaluating Quiz 


Solutions 


Self-evaluating questions are provided throughout the text, with solutions that follow, 
to help you determine whether you understand the material presented. 


1. 


2, 
3. 
. Programs are typically written in a ______ language rather than machine lan- 


A set of instructions that reads input data, processes it, and converts it to mean- 
ingful output information is called a 


The major task of a computer programmer is to 
A program must be in _______ language to be sree or run by a computer. 


guage because 


. Programs written in a Terence other than machine language must be 


before execution can occur. 
is an example of an English-like programming language. 
is the process of converting a source program into machine language. 


8. The program written in a programming language such as COBOL is called 


RONe 


the ______ program. 


. (T or F) Source programs must be translated before they can be executed. 

. The object program is the 

. A________ converts a source program into a(n) ________ program. 

. The errors detected during compilation denote ________ and are usually referred 


to as _________ errors. 


. The logic of a program can only be checked by 
. After a program has been compiled, it may be —______ or ____. 


. program 
. write and debug programs 

. machine 

. symbolic; machine languages are very complex. (They use cumbersome instruction 


codes, and the programmer must specify actual machine locations or addresses for 
storing data.) 


. translated or compiled 
. COBOL 

. Compilation 

. source 


Tv 


. set of instructions that has been converted into machine language 
. compiler or translator program, object 
. any violation of programming rules in the use of the symbolic programming 


language; syntax 


. testing it or executing it in a “trial run’’ with sample or test data 
. executed; saved in translated or object form for future processing 


Il. The Nature of COBOL 


A. COBOL as a Business-Oriented Language 


COBOL is the most widespread commercial programming language in use 
today. The reasons for its vast success are discussed in this section. 


The name COBOL is an abbreviation for COmmon Business Oriented Lan- 


guage. It is a business-oriented computer language designed specifically for 
commercial applications. The rules governing the use of the language make 
it ideally suited for commercial problems. This means that COBOL is best 
able to handle complex input/output functions where a large volume of data 
needs to be processed at one time. It is less suited, however, for handling 
scientific problems where complex calculations are required. 
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B. COBOL as a Standard Language 


COBOL is a programming language that is common to most computers. That 
is, manufacturers have COBOL compilers for most of their computers, so that 
the same COBOL program may be compiled on a variety of different machines, 
such as an IBM 4341 and a DEC 11/780, with only minor variations. 

The universality of COBOL allows computer users greater flexibility than 
most other languages. A company is free to use computers of different manu- 
facturers while retaining a single programming language. Similarly, conversion 
from one model computer to a more advanced or newer one presents no great 
problem as long as there is a COBOL compiler for each one. Because the 
language is so widely used, computers of a future generation will undoubtedly 
support COBOL. 


C. COBOL as an English-Like Language 


In sum nary, the meaning of the name COBOL suggests two of its basic ad- 
vantages. It is common to most computers, and it is business oriented. There 
are, however, additional reasons why it is such a popular language. 

COBOL is an English-like language. All instructions are coded using English 
words rather than complex codes. To add two numbers, for example, we use 
the word ADD. Similarly, the rules for programming in COBOL conform to 
many of the rules for writing in English, making it a relatively simple language 
to learn. It therefore becomes significantly easier to train programmers. 


D. COBOL as a Self-Documenting Language 


The English-like quality of COBOL makes it easy to write programs. Similarly, 
this quality makes it easier to read programs as well. COBOL programs can 
generally be understood by users—businesspeople who depend on computer 
output in order to perform their jobs but who have no actual computer ex- 
pertise. Thus, users as well as computer operators and others may be able to 
understand the instructions in a COBOL program. 

Because COBOL can be read and understood by people who will rely on the 
program, we call it a self-documenting language. This means that the program 
is relatively self-explanatory, needing little or no documentation or supporting 
material to explain it. Because users are frequently able to understand the 
English-like instructions of COBOL, it is considered a user-friendly language; 
this means that it is not overly technical like other languages. 


See] HI. A History of COBOL and the ANS Versions 


A. When It Began 


COBOL was developed in 1959 by a group called the CODASYL Committee. 
CODASYL is an abbreviation for Conference on Data Systems Languages. This 
committee included representatives from academia, user groups, and com- 
puter manufacturers. The ultimate objective of this committee was to develop 
a standard business-oriented language for which all major manufacturers would 
provide compilers. The Department of Defense convened this conference since 
it, as well as other government agencies, was particularly dissatisfied with the 
lack of standards in the computing field. 


B. The American National Standards (ANS) Versions of COBOL 


As a result of the CODAYSL effort, the first COBOL compilers became avail- 
able in 1960. But as years passed, users became dissatisfied with the wide 
variations among COBOL compilers produced by the different computer 
manufacturers. 
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The American National Standards Institute (ANSI) is an organization that 
develops standards in numerous fields. It is the current overseeing organiza- 
tion for COBOL standards. ANSI’s COBOL committee consists of represen- 
tatives from academia, user groups, and computer vendors. In 1968, the first 
American National Standards (ANS) version of COBOL was developed and 
approved, Beginning in 1968, all major computer manufacturers and software 
suppliers provided compilers that adhered to the COBOL language formats 
specified in this ANS version of COBOL. In 1974, a second version of ANS 
COBOL was developed to make the language even more efficient and stand- 
ardized. The 1985 version of ANS COBOL is currently being implemented. It 
goes beyond the previous versions in increasing the versatility of the language. 
Originally, this was to be the 1980 ANS standard, but it is taking longer than 
expected to be implemented. Since it is to be finalized in 1985, it is referred 
to as the 1985” version. 

All versions of ANS COBOL are very similar, although there are some 
variations. This text focuses on the 1974 and 1985 ANS COBOL standards. 
Where there are major differences from the 1968 version, we indicate them in 
the text or in a footnote. Appendix E provides an analysis of the major differ- 
ences among the three ANS COBOL standards. You should determine what 
COBOL standard your computer uses so that you will be more attuned to the 
slight variations among the different versions mentioned in this text. 

Individual COBOL compilers may include enhancements, which provide 
the user with additional options not required in the standard. The COBOL 
reference manual for each computer indicates these enhancements as shaded 
entries to distinguish them from the ANS standard. 


Self-Evaluating Quiz 


Solutions 


COBOL is an abbreviation for _______. 

. COBOL is a common language in the sense that 

. ANS is an abbreviation for 

(T or F} COBOL is ideally suited for scientific as well as business problems. 

. Since a COBOL program typically needs very little supporting documentation to 
explain the logic, we call it a ____ language. 

The three major ANS versions of COBOL are r , and 


ARene 


co 


. Common Business Oriented Language 

. it can be used on many computers 

American National Standards 

F—It is ideally suited for business applications. 
self-documenting or user-friendly 

1968; 1974; 1985 


DAnRSNe 


IV. Techniques for Improving Program Design 


A. Structured Programming 


When programming became a major profession in the 1960s and 1970s, the 
main goal of programmers was getting programs to work. Although this is 
still a programmer’s primary objective, writing programs so that they are easy 
to read, debug, and modify is also an important factor today. That is, as time 
passes, more and more attention is given to programming style and technique, 
and to making programs as efficient as possible. 

A relatively new technique for improving the design of a program in any 
language is called structured programming. In general, structured programs 
are easier to read than nonstructured programs. They are also easier to debug 
and modify if changes are required. Moreover, they are easier to evaluate so 
that programming managers are better able to assess programmers’ skills. 
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For those of you who have had some previous programming experience, you 
may have noticed that most nonstructured programs include numerous branch 
points that often make it difficult to follow the logic and to debug a program 
when an error occurs. One major purpose of structured programming, then, is 
to simplify debugging by reducing the number of entry and exit points in a 
program. For that reason, structured programming is sometimes referred to as 
GO TO-less programming, where a GO TO statement is the COBOL code for a 
branch. With structured programming, the GO TO or branch statement is avoided. 
In COBOL, this means writing programs where sequences are controlled by 
PERFORM statements. (In other languages, this might mean writing programs 
where sequences are controlled by DO statements and subroutines.) 

Using this structured technique, each section of a program can be written 
and even debugged independently without too much concern for where it 
enters the logic flow. 

The typical structured program is subdivided into paragraphs or modules, 
where a main module calls in other modules as needed. That is, the program- 
mer codes one main routine, and when some other routine is required, a 
PERFORM statement indicates that this routine will appear elsewhere in the 
program. The terms paragraph, routine, and module can all be used inter- 
changeably. 

With a modularized concept, it is possible to test routines independently. 
Moreover, it is feasible for different programmers to code different modules 
or sections of a large and complex program. The main routine simply calls for 
the execution of the other modules or sections as needed. 

Chapter 17 provides an in-depth view of the types of logical control se- 
quences used in structured programs. 


B. The Top-Down Approach 


Another common technique for making programs easier to read is called top- 
down programming. The term implies that proper program design is best 
achieved by coding major modules or procedures before minor ones. Thus, in 
top-down programs the first series of instructions represents the main routine, 
which is followed by intermediate and then minor ones. 

By arranging modules using this top-down approach, it is unnecessary to 
skip all over a source program listing to find the modules that are to be exe- 
cuted. This standardized approach provides an excellent complement to the 
structured approach for achieving efficient program design. 

In this text we will use structured techniques in all our programs and avoid 
the use of GO TOs. In addition, we will code in a top-down format so that you 
will learn to program in a style that is widely accepted as a standard. 


Eee v. Program Preparation and Debugging 


A. Program Specifications 


Before a programmer begins to code, he or she is given a set of program spec- 
ifications, usually by the systems analyst who is responsible for the overall 
design of a computerized business application. 


Typically, the program specifications consist of: 


1. Record layout forms to describe the formats of the input and output data 
on disk, tape, or cards. 
Figure 1.2 illustrates a sample record layout. It indicates: 
(a) The data items or fields within each record. 
(b) The location of each data item within the record. 


INTRODUCTION TO COBOL PROGRAMMING 9 


(c) The size of each data item. 

(d) For numeric data items, the number of decimal positions. For ex- 
ample, XXX.XX is a five-digit field with three integer and two dec- 
imal places. (Two decimal places are typically used in dollars and 
cents fields.) 

(e] Standard names of the fields to be used in a program. (In some or- 
ganizations, names of fields are assigned by the programmer.) 


Figure 1.2 


(EMPLOYEE (REGULAR (OVERTIME (HOURLY 
N 
Sample record layout. 


UMBER) — HOURS) HOURS) RATE) 


1112 4 1516 


XX.XX XX.XX XX.XX 


2. Printer Spacing Charts for printed output. Printed output has special 
requirements not typically needed for other types of output: 
(a) Headings are usually printed. 
(b) Data must be spaced neatly across the page, allowing for margins. 
(c} Sometimes, additional lines such as error messages or total lines are 
required. 


A Printer Spacing Chart, illustrated in Figure 1.3, is a tool for mapping out 


the proper spacing of printed output. It specifies the print positions to be used 
in the output. It also includes all data items to be printed and their formats. 
[ ARAARAAE 
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oe i HET 1 2 * H= Heading line 
te} TT] Tr é Het 
id 7 naa I D = Detail line 
fee | t | per t + +r T = Total line FEE 
Figure 1.3 
Sample Printer Spacing Chart. 
Thus, the analyst typically provides the programmer with record layout 
forms and/or a Printer Spacing Chart to indicate the precise format of the 
input and output. Along with these layout forms, the systems analyst typically 


provides a set of notes indicating the specific requirements of the program. 
Illustrative programs and problems assigned in this text will include these 
same program specifications so that you will become very familiar with them 


as you read through the book. 
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B. Planning Tools 


Before a programmer begins to code a program, he or she should plan the logic 
to be used in the program. Just as an architect prepares a blueprint before 
construction of a building begins, a programmer should use a planning tool 
before a program is coded. 

The three most common planning tools used by programmers are: 


1. Flowcharts. 
2. Pseudocode. 
3. Hierarchy charts. 


A flowchart is a conventional block diagram providing a pictorial represen- 
tation of the logic to be used in a program. Pseudocode uses written English- 
like expressions rather than diagrams and is specifically suited for depicting 
logic in a structured program. Hierarchy charts provide an excellent tool for 
depicting top-down logic. 

Appendixes C and L explain these three planning tools in depth. You should 
review these appendixes if you have had little or no prior exposure to planning 
tools. In many of our illustrations, we will depict the logic flow to be used in a 
program with one of these tools. 


C. Debugging Techniques 


After a program has been planned and coded, it must be compiled and executed 
with test data. Frequently, errors occur during either compilation or execution. 
Eliminating these errors is called debugging. Several levels of debugging should 
be performed by the programmer. 


1. Desk Checking 

Programmers should carefully review their programs before they have them 
keyed in, and then again after, to check for keying errors. Desk checking will 
minimize computer time and reduce the overall time it takes to debug a 
program. Frequently, programmers fail to see the need for this phase, on the 
assumption that it is better to let the computer find errors. Note, however, 
that omitting the desk-checking phase can result in undetected logic errors 
that could take hours—or even days—to debug. Efficient programmers care- 
ully review their programs before keying and compiling them. 


2. Correcting Syntax Errors 

After a program has been translated or compiled, the computer will print a 
source listing along with diagnostic messages that point to any rule violations 
or syntax errors. The programmer must then correct the errors and recompile 
the program before it can actually be run with test data. 


3. Program Walkthroughs 

After a program has been listed by the computer in a source listing, program- 
mers test the logic by executing the program with test data. It is best, however, 
to “walk through” the program first to see if it will produce the desired results. 
In a program walkthrough, the programmer manually steps through the logic 
of the program using the test data to see if the correct results will be obtained. 
This is done prior to machine execution. Such walkthroughs can help the 
programmer find logic errors without wasting machine time. 

Sometimes structured walkthroughs are performed directly from pseudo- 
code, prior to the actual coding of a program. This procedure will also mini- 
mize the need for program changes later on. 

Frequently, programming teams work together to test the logic in their 
programs using the walkthrough approach. This method of debugging can save 
considerable computer time and make the entire debugging phase more effi- 
cient as well. 
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4, Detecting Logic Errors After Program Execution 
Detecting fae errors after program execution is often the most difficult and 
time-consuming aspect of debugging. If desk checking and program walk- 
throughs are performed, they will minimize the number of logic errors that 
might be encountered during program execution. Chapters 11 and 26 focus on 
methods used for finding and correcting logic errors in COBOL programs. 
The preparation of test data is an extremely critical aspect of this phase. 
The programmer should prepare data that will test every possible condition 
that the program is likely to encounter under normal operating conditions. It 
is not uncommon for a program that has been supposedly fully tested and 
running for some time suddenly to experience problems. Most often, these 
problems arise because a specific condition not previously encountered has 
occurred and the program has not been written to handle the situation. 


VI. A Sample Program 


A. An Overview of the Four Divisions 


Every COBOL program consists of four separate divisions, each with a specific 
function. 


THE Four DIVISIONS 


Name Purpose 
IDENTIFICATION DIVISION Identifies the program to the computer. 
It also provides documentation that is 
useful to users who may want to read 
or work with the program. 


ENVIRONMENT DIVISION Describes the specific computer 
equipment that will be used by the 
program. 

DATA DIVISION Describes the input and output formats 


to be processed by the program. It also 
defines any constants and work areas 
necessary for the processing of data. 


PROCEDURE DIVISION Contains the instructions necessary for 
reading input, processing it, and 
creating output. 


The structure and organization of a COBOL program is best explained by 
an illustration. Note that this illustration is intended to familiarize you with 
a sample COBOL program; do not expect to be able to code a program yourself, 
in its entirety, until you have read Chapters 2 through 6. 


B. Definition of the Problem 


A computer center of a large company is assigned the task of calculating 
weekly wages or gross pay for all nonsalaried personnel. The employee name, 
hourly rate, and number of hours worked are supplied as input for each em- 
ployee, and the weekly wages figure is computed as follows: 


WEEKLY-WAGES = HOURS-WORKED X HOURLY-RATE 


Before processing can begin, the incoming data or input must be in a form 
that is “readable” or understandable to the computer. Magnetic disk or tape, 
floppy disk, or cassette tape obtained from data keyed on a terminal may serve 
as input to a computer system. The punched card is another form of input, 
although it is considered obsolete by many organizations. 
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Figure 1.4 
Input tape record layout for 
sample program. 


Figure 1.5 
Output disk record layout for 
sample program. 
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C. Input Layout 


Assume that the employee data is entered on magnetic tape. As we will see, 
the device used for entering the input does not affect the program’s logic. 

The data entered as input has the format specified in the record layout form 
in Figure 1.4. 


1 20 21 22 23 25 26 80 


The employee record consists of three data items called fields. These three 
fields are called EMPLOYEE-NAME, HOURS-WORKED, and HOURLY-RATE. Posi- 
tions 1 to 20 of each record contain EMPLOYEE-NAME. If any name contains 
less than 20 characters, the rightmost or low-order positions are left blank. 
Similarly, HOURS-WORKED will be placed in positions 21-22 and HOURLY -RATE 
in positions 23-25. If HOURS-WORKED is less than 10, then 0 will be placed in 
the leftmost or high-order position. Thus, if HOURS-WORKED equals 7, the data 
would be entered as 07. 

The HOURLY-RATE figure, as a dollars and cents amount, is to be interpreted 
as a field with two decimal positions. That is, 925 in record positions 23-25 
is to be interpreted by the computer as 9.25. The decimal point is not entered 
on the record, since it would waste a storage position. We will see that COBOL 
uses implied decimal points when representing numbers with decimal com- 
ponents that are to be used in arithmetic operations. 


D. Output Layout and Definition 


A file of employee records with the format just presented will be read as input 
to the program. WEEKLY-WAGES will be calculated by the computer as HOURS - 
WORKED multiplied by HOURLY-RATE. The computed figure, however, will not 
be added directly to the input data. We usually cannot add output data to an 
input record. In general, input and output ordinarily use separate 
devices.! 

Therefore, we will create an output file that contains all input data in 
addition to the computed wage figure. The output PAYROLL-FILE will be a 
magnetic disk with the format specified in the record layout in Figure 1.5. 


1 20 21 22 23 24 25 26 28 29 30 


The file or collection of data that serves as input to the system will be 
called EMPLOYEE-DATA. The computer will calculate WEEKLY -WAGES from the 
two input fields HOURS -WORKED and HOURLY-RATE. The input data, along with 
the computed figure, will be used to create the output disk file called 
PAYROLL-FILE. 


1An exception to this is direct-access processing, which will be discussed in Chapter 23. 
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E. The Program Illustrated 


The program specifications include the input and output record formats that 
are illustrated in Figures 1.4 and 1.5. Once these have been supplied and the 
programmer has planned the logic to be used, the program may be written. 
You will recall that a program is a set of instructions that operate on input to 
produce output. Figure 1.6 is a simplified COBOL program that will use em- 
ployee tape records to create a payroll disk file which contains the computed 
wages for each employee. 


COBOL Program Sheet 


Punching Instructions Sheet of 
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Figure 1.6 


Sample program on COBOL 
coding form. 
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Note that in the case of page and line numbers, the number zero is distin- 
guished from the letter O on the coding form by slashing all zeros. This con- 
vention will be used throughout the book. Note also that the program is 
divided into four major divisions. The IDENTIFICATION, ENVIRONMENT, DATA, 
and PROCEDURE DIVISIONS are coded on lines 01, 03, 07, and 22, respectively. 
Every COBOL program must contain these four divisions in this order. 

In this program, the IDENTIFICATION DIVISION has, as its only entry, the 
PROGRAN-ID. That is, the IDENTIFICATION DIVISION of this program merely 
serves to identify the program. We will see that there are other entries that 
may be included in the IDENTIFICATION DIVISION, but PROGRAM-ID is the 
only required entry. 

The ENVIRONMENT DIVISION assigns the input and output files to specific 
devices in the INPUT-OUTPUT SECTION. EMPLOYEE-DATA, the name assigned 
to the input file, will be processed by a tape drive. Similarly, PAYROLL-FILE 
is the output file assigned to a disk drive. 

The DATA DIVISION describes the format of the input and output files. The 
areas in memory where input and output records will be stored are fully de- 
scribed in the FILE SECTION of the DATA DIVISION. The File Description, 
or FD, for ENPLOYEE-DATA describes the input tape file, which in this case 
has identifying labels (LABEL RECORDS ARE STANDARD). 

The record format for the tape file is called ENPLOYEE-RECORD. It has three 
input fields, EMPLOYEE-NAME, HOURS-WORKED, and HOURLY-RATE. Each field 
has a corresponding PICTURE clause denoting the size and type of data that 
will appear in the field. 

The EMPLOYEE-NAME field is an alphabetic data field containing 20 char- 
acters, PICTURE @(20) indicates that the size of the field is 20 characters. 
The 4 in the PICTURE clause indicates the type of data: A means alphabetic 
data. Similarly, HOURS-HWORKED is a two-position numeric field. PICTURE 9(2) 
indicates the type and size of data: 9 denotes numeric data, and (2) denotes 
a two-position area. HOURLY-RATE is a three-position numeric field with an 
implied decimal point. That is, PICTURE 9¥99 indicates a three-position nu- 
meric field with an implied or assumed decimal point after the first position; 
the ¥ means the decimal point is implied. Thus, 925 in this field will be 
interpreted by the computer as 9.25. The decimal point does not appear on 
the input record, but the ¥ in the PICTURE clause ensures that the number 
will be treated by the computer as if a decimal point had been specified. 

The output disk file called PAYROLL-F ILE has standard labels used to iden- 
tify the file to the computer. It has a record format called PAYROLL-RECORD, 
which is subdivided into four fields, each with an appropriate PICTURE clause. 
The first three fields, NAME-OUT, HOURS-OUT, and RATE-OUT will contain data 
copied directly from each input record. The last field, WEEKLY-WAGES, must 
be computed. 

The field or data item called EOF is defined in the WORK ING-STORAGE SEC- 
TION of the DATA DIVISION. This field is initialized with a value of zero. It 
will be used in the PROCEDURE DIVISION as an indicator, sometimes referred 
to as a “flag” or “switch.” That is, it will have a value of zero until the last 
data record has been read and processed, at which time a “1” will be moved 
into it. EOF is a programmer-supplied abbreviation for End-of-File; the data- 
name EOF was chosen because the field is used to indicate when the last data 
record has been read and processed. The EOF indicator is programmed to con- 
tain a zero when there are still records to process; we set it to 1 when there 
are no more input records. 

The PROCEDURE DIVISION contains the set of instructions to be executed 
by the computer. Each instruction is executed in the order in which it appears 
on the coding sheets. 

The first PROCEDURE DIVISION entry is the following: 


OPEN INPUT EMPLOYEE-DATA+ OUTPUT PAYROLL-FILE+ 
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This instruction accesses the devices assigned to the files and indicates to the 
computer which file is input and which is output. 
The next instruction in the PROCEDURE DIVISION is: 


READ EMPLOYEE-DATA AT END MOVE 1 TO EOF. 


This is an instruction that causes the computer to read one data record into 
an area of storage referred to as the input area. Note that to be operated on, 
data must be in storage. If there are no more records to be read when this 
READ statement is executed, a 1” will be moved to the field called EoF; 
otherwise, EOF remains unchanged at zero. Given that there are input records 
to process at the beginning of the run, the first READ causes a data record to 
be transmitted from tape to storage for processing. After a record has been 
read, the next instruction in sequence is executed. 

The next instruction is the following: 


PERFORM WAGE-ROUTINE UNTIL EQF = 1, | 


This instruction will cause all the statements specified within the paragraph 
named WAGE -ROUTINE (from line 28 through line 34) to be executed repeatedly 
until EOF = 1. A quick glance at the statements within WAGE-ROUTINE in- 
dicates that the instructions will be executed until a “1” is moved to EOF; 
this occurs when there are no more input records. 

Once EOF = 1, the statement to be executed next is the one immediately 
following the PERFORM. That is, PERFORM WAGE-ROUTINE UNTIL EOF = 1 
causes execution of WAGE-ROUTINE until there are no more tape records, at 
which time control returns to the statement following the PERFORM. The 
instructions on lines 26 and 27, CLOSE and STOP RUN, are executed only after 
all tape records have been processed in WAGE-ROUTINE. 

In summary, the first instruction in the PROCEDURE DIVISION, the OPEN 
statement, activates the files. The next instruction, READ, reads a single record. 
In WAGE-ROUTINE, the first record is processed and subsequent records are 
read and processed until there is no more input. Then the CLOSE deactivates 
the files. The STOP RUN is executed as the last instruction, and the program 
is terminated. The first five steps—OPEN + READ» PERFORM» CLOSE, and STOP 
RUN—represent the main module of the PROCEDURE DIVISION. 

Let us look more closely at the instructions to be executed in the WAGE- 
ROUTINE paragraph. First, EMPLOYEE~-NAME of the first tape record, which was 
read with the READ statement on line 24, is moved to NAME-OUT of the output 
area. The fields called HOURS-WORKED and HOURLY-RATE of this first record 
are also moved to the output area. WEEKLY-WAGES, an output field, is then 
calculated by multiplying HOURS-WORKED by HOURLY-RATE. 

After the data has been moved to the area reserved in storage for output 
(called the output area), a WRITE instruction is executed. This WRITE state- 
ment takes the information in the output area and places it on magnetic disk. 

This set of instructions will process the first tape record and create one disk 
record, The READ statement 1s then executed on line 34, and data from the 
next input record is transmitted to storage. 

The sequence of instructions within WAGE-ROUTINE is executed under the 
control of the PERFORM statement on line 25. That is, execution of WAGE- 
ROUTINE instructions will be repeated until EoF = i, which will only occur 
after all input records have been processed. Hence, after the second record has 
been read, WAGE-ROUTINE will be executed again, the input data moved, the 
calculation performed, a disk record written, and a third input record read. 
This continues until no additional tape records are available for processing. 
After EOF = 1, control returns to the main module, at which point the in- 
structions on lines 26 and 27, CLOSE and STOP RUN, are executed. 
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Figure 1.7 
Source listing of sample 
program. 
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Figure 1.6, then, represents an entire sample COBOL program. It will run 
on any computer, although minor system-dependent modifications might be 
required. The only changes that may be necessary are in the SELECT state- 
ments because some computers have specific requirements for the ASSIGN 
clause. You may want to key in and run this program on your system just to 
familiarize yourself with COBOL. 

Figure 1.7 is the source listing of the same program. An analysis of the 
program reveals two essential points. The English-like manner and the orga- 
nization of a structured COBOL program make it comparatively easy to learn. 
Similarly, the ease with which a COBOL program may be read by users makes 
the language a distinct asset at most computer installations. 


IDENTIFICATION DIVISION, 

PROGRAM-ID, SAMPLE. 

ENVIRONMENT DIVISION. 

INPUT-OUTPUT SECTION. 

FILE-CONTROL. SELECT EMPLOYEE-DATA ASSIGN TO TAPE. 
SELECT PAYROLL-FILE ASSIGN TO DISk. 

DATA DIVISION: 

FILE SECTION. 

FD EMPLOYEE-DATA LABEL RECORDS ARE STANDARD, 

OL EMPLOYEE-RECORD. 


oS EMPLOYEE-NAME PICTURE A(Z0)+ 
o5 HOURS-WORKED PICTURE 9(2),. 
05 HOURLY-RATE PICTURE SVOo. 


FD PAYROLL-FILE LABEL RECORDS ARE STANDARD: 
O1 PAYROLL-RECORD+ 


05 NAME-OUT PICTURE A(20), 

05 HOURS-OUT PICTURE 9(2), 

O5 RATE-OUT PICTURE 9VO9. 

05 WEEKLY-WAGES PICTURE 999vS9, 
WORKING-STORAGE SECTION. 
O1 EOF PICTURE 9 VALUE O+ 


PROCEDURE DIVISION. 
OPEN INPUT EMPLOYEE-DATA+ OUTPUT PAYROLL-FILE, 

READ EMPLOYEE-DATA AT END MOVE 1 TO EOFs 

PERFOR AGE-ROUTINE UNTIL EQF = 1+ 

CLOSE EMPLOYEE-DATA» PAYROLL-FILE. 

STOP RUN, 

WAGE-~ROUTINE. 

OVE EMPLOYEE-NAME TO NAME-OUT, 

OVE HOURS-WORKED TO HOURS-OUT, 

OVE HOURLY-RATE TO RATE-OUT. 

ULTIPLY HOURS-WORKED BY HOURLY-RATE GIVING WEEKLY-WAGES, 

RITE PAYROLL-RECORD, 

READ EMPLOYEE-DATA AT END MOVE 1 TO EOF. 
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CHAPTER SUMMARY 
. The Nature of COBOL 
1. The most widespread commercial programming language in use. 
2. COBOL is an abbreviation for Common Business Oriented Language. 
3. An English-like language. 
4. A self-documenting language. 
5. The American National Standards (ANS) versions of COBOL: 1968, 
1974, and 1985. 
Techniques for Improving Program Design 
1. Structured programming. 
(a) Referred to as GO TO-less programming. 
(b) Structured program is subdivided into paragraphs or modules. 
2. Top-Down programming 
Major modules or procedures are coded before minor ones. 
. Program Preparation and Debugging 
1. Planning tools: flowcharts, pseudocode, HIPO charts. 
2. Debugging techniques. 
(a) Desk checking. 
(b) Correcting syntax errors. 
(c) Program walkthroughs. 
(d) Detecting logic errors after program execution. 
. The COBOL Divisions 
1. IDENTIFICATION DIVISION 
(a) Identifies the program to the computer system. 
(b) May provide documentation information as well. 
(c) PROGRAM-1D is the only required entry within the division. 
2. ENVIRONMENT DIVISION 
(a) Indicates the computer equipment to be used with the program. 
{b) Assigns a file name to each file used in the program, and specifics 
the hardware device that the file will use. 
3. DATA DIVISION 
(a) Defines and describes the formats of all input, output, and work 
areas used for processing. 
(b) FILE SECTION 
(1) Each file name defined in the ENVIRONMENT DIVISION must be 
described in an FD in the DATA DIVISTON. 
2) Each record format within every file is defined as an 01 entry. 
(3) Fields within each record are described with a PICTURE clause 
that specifies the size and type of data. 

(c) WORKING-STORAGE SECTION 

(1) Defines any work areas needed for processing. 
(2) An end-of-file indicator is coded in the WORKING-STORAGE 
SECTION; we will refer to this field as EOF. In our examples, EOF 
will contain a 0 when there are input records to process and a 1 
when there is no more data. 
4. PROCEDURE DIVISION 

(a) Includes all instructions that are required to process input and pro- 
duce output. 

(b) All instructions are executed in sequence, but a PERFORM transfers 
control to another paragraph; after a paragraph is executed with a 
PERFORM, control returns to the next instruction, in sequence, after 
the PERFORM. 

{c) Main module or paragraph. 

The following are typical entries in a main module: 

(1) Files are designated as INPUT or OUTPUT and activated in an OPEN 
statement. 

(2) An initial READ brings the first record into storage. 
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3) PERFORM paragraph-name UNTIL EOF = 1 temporarily transfers 
control to some calculation or processing routine that processes a 
record and then reads the next record, this processing routine is 
repeated until there is no more data. 

4) A CLOSE statement deactivates all the files. 

5) A STOP RUN terminates processing. 

(d) Calculation or processing paragraphs. 

1) Calculation or processing paragraphs are executed when a state- 
ment in the main module indicates PERFORM (paragraph-name). 

2) A calculation or processing paragraph is required to process each 
input record and read subsequent records. 

3) This calculation or processing paragraph is executed until there is 
no more data, that is, until EOF = 1. 


EE CHAPTER SELF-EVALUATING QUIZ 


At the end of each chapter there is a self-evaluating quiz that covers the material in 
the entire chapter. The solutions that are provided after the quiz include page references 
where explanations of the answers can be found. 


Solutions 


a 


SL PNAKRARHKD 


All COBOL programs are composed of (no.} divisions. 
The names of these divisions are . 7 , and 


. The function of the IDENTIFICATION DIVISION is to 


The function of the ENVIRONMENT DIVISION is to 
The function of the DATA DIVISION is to 

The function of the PROCEDURE DIVISION is to 
Another term for incoming data is 


. Another term for outgoing information is 


7 , and are examples af computer input media. 


Two techniques for simplifying the design of a COBOL program and facilitating 
debugging are called ________ and 


. (T or F} Structured programs are sometimes called Go TO-less programs. 
. A(n) ________ statement indicates which files are input and which are output. 


Consider Figure 1.7 for the following: 


13, 


SO 2 Sr Ger ae ee 


10. 


The execution of a COBOL program is terminated when a ________ statement is 
encountered. 


The only entry required in the IDENTIFICATION DIVISION is 


(T or F) Division names appear on a line by themselves and end with a er 
Page 
four ll 
IDENTIFICATION; ENYVIRCNMENT; DATA; PRUCEDURE ll 
identify the program ll 
describe the equipment to be used in the program ll 
describe the input, output, and work areas used in the program 11 
define the instructions necessary to convert input data into output LL 
input 3 
output 3 
Magnetic disk, magnetic tape, punched cards, floppy disk, and data from a 3 


terminal 
structured programming; top-down programming @ 
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LL, 8 
12. OPEN 14 
13. STOP RUN al) 
14. PROGRAM-ID 14 
15, °F 16 
KEY TERMS 


American National Standards Institute 
(ANSI) 

Compile 

Compiler 

Debugging 

Desk checking 

Enhancements 

Field 

File 

Flowchart 

Hierarchy chart 

High-order position 

Implied decimal point 

Input 

Logic error 

Low-order position 

Machine language 


Module 

Object program 

Output 

Printer Spacing Chart 
Program 

Program specifications 
Programmer 

Pseudocode 

Record layout form 
Source program 
Structured programming 
Symbolic programming language 
Syntax error 

Top-down programming 
User-friendly 
Walkthrough 


REVIEW QUESTIONS 


1, True-False Questions 


1. (T or F) A COBOL program that compiles without any errors will always run 


properly, 


2. (T or F) Programs written in COBOL need not be compiled, 
3. (T or F) COBOL programs must be converted into machine language before exe- 


cution can occur, 


4. (T or F) Although COBOL is a commercial programming language, it contains 


entific problems. 


advanced mathematical functions that can be used for highly sophisticated sci- 


5. (T or F) COBOL may be used only on a small number of commercial computers. 
6. (T or F) A COBOL program must contain four divisions. 


7. (T or F) The sequence in which the divisions in a COBOL program are written is 
IDENTIFICATION, DATA, ENVIRONMENT, PROCEDURE. 


8. (T or F) The division that changes depending on the computer equipment used is 


the DATA DIVISION. 


9. (T or F) The division that seems to require the least programming effort is the 


IDENTIFICATION DIVISION. 


10. (T or F) Instructions are coded in the PROCEDURE DIVISION. 


II. General Questions 
1. Define the following terms: 
(a) Program. 
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(b) Compiler. 

(c) Source program. 

(d) Object program. 

State the differences between a symbolic programming language and a machine 
language. 

State the major reasons why COBOL is such a popular language. 
What is the meaning of structured programming? 

What is the meaning of ANS COBOL? 

Indicate the purpose of each of the following: 

(a) IDENTIFICATION DIVISION 

(b) ENVIRONMENT DIVISION 

(c) DATA DIVISION 

(d) PROCEDURE DIVISION 

What is the meaning of the term “syntax error’’? 

What is the purpose of the PICTURE clause? 

What is the purpose of the SELECT statement? 

10. What is the purpose of the WORK ING-STORAGE SECTION? 
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| PROGRAMMING ASSIGNMENTS 


Coding the following problems will help you learn how to enter a program on your 
system. If terminals are used at your computer center, enter one or more of these 
programs, compile, and debug them. If cards are used at your computer center, key- 
punch a program, compile, and debug it. 

Before you begin, you will need to be provided with the following system-dependent 
information: 


1. The method of accessing a computer at your center. 
2. The job control requirements for entering, compiling, and executing a program. 
3. The ASSIGN clause requirements for SELECT statements. 


To run the program, you may use test data supplied by an instructor or you may 
create your own input. 


1. Figure 1.8 is an illustration of a sample COBOL program. 

a) Describe the input by providing a layout of the input record. 

b} Describe the output by providing a layout of the output record. 

(c) Describe, in your own words, the type of processing that converts input data 
into output. 

d) Draw a flowchart or write a pseudocode of the procedures used. 

2. Figure 1.9 is an illustration of a sample COBOL program. 

a) Describe the input by providing a layout of the input record. 

b) Describe the output by providing a layout of the output record. 

(c) Describe, in your own words, the processing that converts input data into out- 
put. 

d) Draw a flowchart or write a pseudocode of the procedures used. 
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Figure 1.8 
Program for Programming 
Assignment 1. 


INTRODUCTION TO COBOL PROGRAMMING 


IDENTIFICATION DIVISION: 
PROGRAM-ID, PROBLEMI. 
ENVIRONMENT DIVISION: 
INPUT-QUTPUT SECTION. 
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FILE-CONTROL, SELECT SALES-FILE ASSIGN TO TAPE-1-. 


DATA DIVISION, 
FILE SECTILO 


FD SALES-FILE LABEL RECORDS ARE STANDARD. 


O1 SALES-REC, 


OS NAME PICTURE ACIS). 
o5 AMOUNT-~OF-SALES PICTURE g9gvag. 
FD PRINT-FILE LABEL RECORDS ARE OMITTED. 
O1 PRINT-REC. 
05 NAME-QUT PICTURE ACIS). 
o5 AMT-COMMISSION PICTURE 99V99. 
WORKING-STORAGE SECTION. 
Ol EOF PICTURE 9 VALUE 
PROCEDURE DIVISION. 
OPEN INPUT SALES-FILE+ OUTPUT PRINT-FILE, 
READ SALES-FILE AT END MOVE 1 TO EOF. 
PERFORM COMMISSION-RTN UNTIL EQF = i. 
CLOSE SALES-FILE» PRINT~FILE. 
STOP RUN. 


COMMISSION-RTN, 
QVE NAME TO NAME-OUT. 


RITE PRINT~REC. 


IF AMOUNT-OF-SALES IS GREATER THAN 100,00 
ULTIPLY .03 BY AMOUNT-OF-SALES GIVING 


ULTIPLY .02 BY AMOUNT-OF-SALES GIVING 


READ SALES-FILE AT END MOVE 1 TO EOF. 


SELECT PRINT-FILE ASSIGN TO PRINTER, 


OF 


AMT-COMMISSION 


AMT-COMMISSION. 
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Program for Programming 
Assignment 2. 


Data Organization 


I, DESCRIPTION OF FILES, RECORDS, AND FIELDS 
A, Files 
B. Records 
C. Fielcls 
1, Group Items 
2. Elementary Items 
Il. RULES FOR FORMING DATA-NAMES 
Il. THE HIERARCHY OF DATA: A REVIEW 
Self-Evaluating Quiz 
IV. TYPES OF DATA 
A, Variable and Constant Data 
B. Types of Constants 
1. Numeric Literal 
2. Nonnumeric Literal 
3. Figurative Constant 
CHAPTER SUMMARY 
CHAPTER SELF-EVALUATING QUIZ 
KEY TERMS. 
REVIEW QUESTIONS 
PROGRAMMING ASSIGNMENTS 
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AN OVERVIEW OF COBOL 


OBJECTIVES 


To familiarize you with: 
1. The ways in which data is organized for computerization. 
2. The rules for forming programmer-supplied names and constants in COBOL. 


I. Description of Files, Records, and Fields 


As we have seen from the program illustrations in the previous chapter, areas 
are reserved in memory for files, records, and fields. Each of these terms has 
special significance in COBOL. Data bases, which encompass all the classi- 
fications considered here, require special processing. (See Appendix G.} 

This section explains the above terms and their relation to one another. As 
we will see later, every field, record, and file used in a COBOL program must 
be assigned a name. The rules for forming such names are also discussed here. 


A. Files 


A file is the overall classification of data pertaining to a specific category. 
Company ABC, for example, may have an inventory file, which contains all 
current inventory information. The same company may also have an accounts 
receivable file of customer information. 

Thus, a file is the major grouping of data containing information of a spe- 
cific nature. Files appear as either input or output in COBOL programs. A file 
enters the computer as input, is processed, and an output file is produced. 

A payroll disk file, an accounts receivable tape file, and a print file of all 
customer bills are examples of commonly used computer files. 

A file, then, is the major classification of data in an information processing 
environment. If an application uses a payroll disk as input and prints a salary 
report as output, we say that two files are processed: 


1. A disk consisting of payroll data is the input file, and 
2. A printed report containing computed salaries is the output file. 


Most COBOL programs use at least one input and one output file. A typical 
program may read an input file from disk, tape, or cards and produce a printed 
output file of bills, checks, or summary totals. Other programs may be written 
to incorporate changes into a master file. A master file contains the major 
collection of data for a particular application. Thus, we may have an input 
payroll master tape along with an input file of change records that will contain 
new hires, salary increases for current employees, changes in the number of 
dependents, and so on. The two input files—the master payroll file and the 
change file—would be used to create a new master payroll tape that incor- 
porates all the changes. This process of using a file of change records along 
with an existing master file to produce a new master is called an update 
procedure and is a common programming application. The master tape file 
and the file of changes serve as input, for example, and a new master tape 
with the changes incorporated would be the output file: 
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OLD-MASTER __ CHANGES : 
(Contains all master data current (Contains all changes since 
through the previous updating the previous updating cycle) 


cycle) 


__t = or 


NEW-MASTER : 
(Contains all OLD-MASTER data along with 
changes designated in the CHANGES file) 


Thus, three files would typically be used for this update procedure: an input 
master file, an input change file, and a new output master file. We will see in 
Chapter 23 that disks can also be processed by making changes directly to 
existing records. For now, however, we will process disks in exactly the same 
way we process tapes or even cards. 

For each form of input and output used in an information processing ap- 
plication, we have one file. Suppose we have an input floppy disk with trans- 
action data that is used to create a master disk file. In addition, a control 
listing is produced, printing the records that are created as well as totals and 
any error conditions encountered. In this case, we would have three inde- 
pendent files using three separate devices: 


1. A floppy disk file read by a floppy disk drive. 
2. A standard or hard disk file created as output on a disk drive. 
3. A printed file created as output on the printer. 


B. Records 


A record is a unit of related data within a file that contains information of a 
specific nature, Consider an accounts receivable file, for example, entered from 
a disk as input to an information processing system. The file is subdivided 
into records. The accounts receivable file, for example, may contain two types 
of record formats, a credit record format and a debit record format. The credit 
record may have the following format: 


The debit record may have the following format: 
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All disk records within the accounts receivable file will be credit or debit 
records. Thus, we say that the file contains two different record formats. 

A record, then, is a specific kind of data within a file. We have one file for 
each form of input and output that the program processes. We have one record 
format for each type of data within the file. 

Some files have only one record format, while other files consist of nu- 
merous record formats. Consider the following magnetic tape layout contain- 
ing payroll data: 


SALARY HISTORY RECORD 


CURRENT PAYROLL RECORD 


TAX RECORD 


Note that three types of records exist within the file: a salary history record, 
a current payroll record, and a tax record. Since the magnetic tape file contains 
three different forms of input records, we say that three record formats exist 
within the payroll file. Usually, however, most tape or disk files have a single 
record format. 
The one file type that commonly requires numerous record formats is a 
print file. Consider the Printer Spacing Chart in Figure 2.1. There would be 
Figure 2.1 three record formats for the print file because there are three types of lines: 


Printer Spacing Chart with (1) a heading record or line; (2) records or lines containing detail transaction data; 
three record formats. (3) a record or line containing a final total. 
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Thus, when dealing with input on tape, disk, and so on, all records within 
the file will typically be of the same format. An inventory tape file, for ex- 
ample, where all records have the following elements, is said to contain only 
one record format: 


C. Fields 


1, Group Items 
Consider the credit record described here: 


It contains the following data fields: 


NAME» TRANSACTION-NUMBER + AMOUNT-OF~CREDIT 


A field of data is a group of consecutive storage positions reserved for a 
specific kind of data. 

Fields, in COBOL, fall into two major categories: group items and elemen- 
tary items. A group item is a data field that is further subdivided. That is, a 
group item is a field consisting of two or more sub-fields. A NAME-IN field, 
for example, that contains three minor fields (LAST-NAME, FIRST-INITIAL, 
SECOND-INITIAL) is considered a group item. An ADDRESS- IN field that con- 
sists of CITY and STATE is a group item. The following record format consists 
of three group items: 


DATE~IN, NAME-IN, and JOB-DESCRIPTION-IN are all group items that are 
further subdivided. 


2. Elementary Items 

A data field not further subdivided is called an elementary item. MO (for month), 
YR (for year), INIT (for initial], LAST-NAME, LEVEL, and POSITION are ele- 
mentary items in the above example. 

Consider again the credit record described above, which has fields called 
NAME, TRANSACTION-NUMBER, and AMOUNT-OF-CREDIT. All the fields are ele- 
mentary items, since none are further subdivided. 

The hierarchy of data may be defined as follows: 


1. A file is the major collection of data used as input or output. 
2. Files contain records. 
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3. Records contain data fields. Fields are described as group items, if they 
are further subdivided, and as elementary items, if they are not. 


We will see in Chapter 5 that all elementary items must be described with 
PICTURE clauses in the DATA DIVISION. Group items, however, must not 
have PICTURE clauses. 


Il. Rules for Forming Data-Names 


Files, records, group items, and elementary items are categories of data in a 
COBOL program. They each must be given a programmer-supplied name called 
a data-name. Data-names are the most common type of programmer-supplied 
names; we will see later that there are other types of programmer-supplied 
names as well. In COBOL, data-names must conform to the following rules: 


RULES FOR FORMING DATA-NAMES 
From | to 30 characters. 
Letters, digits, and hyphens (-) only. 
May not begin or end with a hyphen. 


No embedded blanks are permitted (that is, no blanks within the 
data-name). 


Must contain at least one alphabetic character. 


May not be a COBOL reserved word. A reserved word, such as ADD, 
MOVE, DATA, has special significance to the COBOL compiler. 


ee 


BS Ou 


COBOL reserved words for 1974 and 1985 ANS COBOL are listed in Ap- 
pendix A. Since each compiler may have features that go beyond the standard, 
each system will have additional COBOL reserved words. The full range of 
COBOL reserved words for your specific computer will be listed in the COBOL 
specifications manual at your computer center. 


The following are examples of valid data-names: 


EXAMPLES OF VALID DATA-NAMES 
DATE-IN 
NAME 
LAST -NAME 
AMOUNT 4 
AMOUNT-OF-TRANSACTION 


The following are examples of invalid data-names: 


EXAMPLES OF INVALID DATA-NAMES 


Data-Name Reason It is Invalid 
EMPLOYEE NAME There is an embedded blank between EMPLOYEE 
and NAME. Because there is a blank, the compiler 
would interpret this as two separate names, 
EMPLOYEE and NAME. EMPLOYEE-NAME is okay. 


DISCOUNT-% %, as a special character, is invalid. 
INPUT INPUT is a COBOL reserved word. 
123 Data-name must contain at least one alphabetic 


character. 
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Consider the following record layout within a disk file: 


The data fields may be named as follows: 


DATE-OF-TRANS 
AMOUNT 
INVOICE-NO 
CUSTOMER-NAME 


Hyphens are used in place of embedded blanks for data-names that incor- 
porate more than one word. This improves readability. 

Each file, record, and field of data must be assigned a name in the COBOL 
program. Once a name is assigned within the program, the same name must 
be used throughout when referring to the specific unit of data. CREDIT-AMT, 
defined as a data-name in the DATA DIVISION, may not be referred to as 
CR-AMT in the PROCEDURE DIVISION. To do so, would result in a syntax error. 

The data-names used should describe the type of data within the field. 
DATE-OF-TRANS, for example, is a more meaningful data-name than perhaps 
47, although both names are valid. Using data-names that describe the con- 
tents of the fields facilitates the writing and debugging of the program; it also 
makes the program more readable by enabling users to better understand the 
meaning of the overall program. 


ee i ede Neto lll. The Hierarchy of Data: A Review 


COBOL programs make extensive use of data that is organized into files, 
records, and fields. Files are typically assigned to specific input/output devices. 
Each record format within a file must be fully described by assigning data- 


names to the group items and to the elementary items within the file. The 
rules for forming programmer-supplied data-names must be used when as- 
signing names to files, records, and fields. 
Let us consider the following program excerpt that illustrates part of a DATA 
DIVISION of a COBOL program: 
78 2 — 16 20 2a 28 EY 36 0 ry m7 2 ia} oo a oo 7 
PILE, SECON | 
FD] | PAVROLL-FITLE Pe 
| CCUABEL! RECORDS! ARE! OMIT 
|| UDATAL RECORDS! ARE! IS\ALIRIV-REICI,| | | | | [ 
I IDE DIVICTILION|S|-IRIEIC|. 
| (O41) | SIALIARIY-RIE(C|. | | 
| 5) | NAME 
| 5| | JOBE ITLE 
[CLE @5 | Nol-DF-DEPENDENTS 
| 5] | SALARY 
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You will recall that we slash zeros to distinguish them from the letter O. 
Data-names are defined within the DATA DIVISION in this example. The FD 
entry describes the file named PAYROLL-FILE. This file contains two record 
formats named SALARY-REC and DEDUCTIONS-REC. 

Each record is subdivided into data fields. NAME, JOB-TITLE, NO-OF- 
DEPENDENTS, and SALARY are elementary data fields within SALARY -REC. The 
names assigned conform to the rules for forming programmer-supplied data- 
names. Similarly, DEDUCTIONS-REC is subdivided into five fields, FICA (for 
Federal Insurance Compensation Act, which regulates Social Security), FED- 
TAX, STATE-TAX, HEALTH-INSUR-PREMIUM, and LIFE-INSUR-PREMIUM. In 
Chapter 5 you will learn the specific DATA DIVISION coding rules. Any names 
that are assigned to files, records, group items, and elementary items in the 
DATA DIVISION must conform to the rules just described. 


Self-Evaluating Quiz 


Solutions 


1. A file is defined as a 

2. A record is defined as a 2 

3. The input and output in a COBOL program are assigned _____ names. 

4. Each format within a file is assigned a ________ name. 

5. The two types of fields within a record are ______ and 

6. A group item is defined as a : 

7. An elementary item is defined as a ______. 

8. If an amount field contains a code and a price, then the amount is called a(n) 

item and code is a(n) ________ item. 

. Files, records, group items, and elementary items must be given ________ -names 

in a COBOL program. 


10. State what, if anything, is wrong with the following data-names: 
(a) DATA 
(b) RECORD 1 
(c) AMT~IN-# 
(d) aBc-123 


\o 


1. major collection of data in a COBOL program 
2. grouping of data within a file 
3. file- or data- 
4. record- or data- 
5. group items; elementary items 
6. field that is further subdivided into subordinate fields 
7. field that is not further subdivided 
8. group; elementary 
9. data 
10. (a) DATA is a COBOL reserved word. 
(b) There is an embedded blank: RECORD-1 with a hyphen separating RECORD and 
1 may be used. 


(c) The special character ($) is not permitted. 
(d) Nothing wrong. This is valid, although not very meaningful. 


IV. Types of Data 


A. Variable and Constant Data 


Thus far, we have discussed the organization of data as it appears in a COBOL 

program. Input and output files have records that are described by record for- 

mats. Each record has fields classified as group items or elementary items. 
By defining files, records, and fields and assigning corresponding program- 
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mer-supplied data-names in the DATA DIVISION, we reserve storage for data. 
The File Description entry, as illustrated in the previous section, reserves 
storage for the records in the input and output files. The area described by the 
File Description entry is said to contain variable data. 

Variable data is the data that is entered into storage as a result of a READ 
instruction. It is not known until the program is actually executed. 

We say, then, that the contents of data fields in the input area is variable 
because it changes with each READ command. The clause READ PAYROLL - 
FILE results in the reading of one input record that is stored in the area defined 
by the File Description for PAYROLL-FILE. After input fields are processed, 
results are placed in the output area, which is defined by another File Descrip- 
tion. Thus, we say that the contents of output fields are also variable. 

By defining a data field with a data-name, we say nothing about the contents 
of the field. AMT, for example, is the name of a data field within RECORD~1; 
the contents of AMT, however, is variable and unknown. It depends on the 
input record being processed, and thus changes within the program. Any field 
described within an input or output file is said to contain variable data. 

A constant, on the other hand, is a form of data required for processing that 
is not dependent on the input to the system. A constant, as opposed to variable 
data, is coded directly in the program. Suppose, for example, we wish to mul- 
tiply each amount field of the input records by .05, a fixed tax rate. The tax 
rate, .05, is not a value in the input record but is nevertheless required for 
processing. We call .05 a constant, since it is a form of data required for 
processing that is not dependent on the input to the system. It is always fixed, 
with the same value. 

Similarly, suppose we wish to check input records and print the message 
‘TNVALID RECORD’ for any erroneous input record. The message ‘INVALID 
RECORD’ will be part of the output line, but it is not entered as input to the 
system. It is a constant, which is a fixed value required for processing. It need 
not be read in as input but can be stored with a fixed value as a constant. 

A constant may be defined directly in the PROCEDURE DIVISION of a COBOL 
program. ANT, a field within each input record, is to be multiplied by the tax 
rate, .05, to produce TAX-ANT, a field within each output record. The PRO- 
CEDURE DIVISION entry to perform this operation is as follows: 


The two data fields, AMT and TAX-ANT, are described in the DATA DIVISION. 
The constant .05 is defined directly in the above PROCEDURE DIVISION entry, 
so it need not be described in the DATA DIVISION. As we will see in Chapter 
8, a constant may also be defined in the WORK ING-STORAGE SECTION of the 
DATA DIVISION: 


WORKING-STORAGE SECTION, 
O1 TAX-RATE PICTURE V9 VALUE .O0S, 


‘ 


MULTIPLY AMT BY «O05 GIVING TAX-AM1 


+ 


MULTIPLY AMT BY TAX-RATE GIVING TAX-AMT+ 


For now, we will focus on constants defined in the PROCEDURE DIVISION. 

Three types of constants may be defined in the COBOL program: numeric 
literals, nonnumeric literals, and figurative constants. The following is a de- 
tailed discussion of all three types. 


B. Types of Constants 


1. Numeric Literal 
A numeric literal is a constant, such as .05 above, used primarily for arithmetic 
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operations. The rules for forming numeric literals are as follows: 


RULES FOR FORMING NUMERIC LITERALS 


1. From | to 18 digits. 

2. A plus or minus sign may be used, but it must appear to the left of 
the number. 

3. A decimal point is permitted within the literal. The decimal point, 
however, may not be the last character of the literal. 


An operational plus or minus sign is not required within the literal, but it 
may be included. If it is included, it must appear to the left of the number. 
That is, +16 and —12 are valid numeric literals but 16+ and 12— are not. If 
no sign is used, the number is assumed positive. Since a decimal point may 
not appear as the last character in a numeric literal, 18.2 is a valid literal, but 
16. is not; however, 16.0 is valid. 

The following are valid numeric literals that may be used in the PROCEDURE 
DIVISION of a COBOL program: 


VALID NUMERIC LITERALS 
+ 15.8 
— 387.58 
42 
.05 
=,97 


Suppose we wish to add 10.3 to an output data field, TOTAL, defined in a 
File Description entry in the DATA DIVISION. The following is a valid in- 


struction: 
ADD 19,3 TO TOTAL, 


The numeric literal 10.3 may be used in the PROCEDURE DIVISION for arith- 
metic operations. 
The following are not valid numeric literals for the reasons noted: 


INVALID NUMERIC LITERALS 


Literal Reason It Is Invalid 

1,000 Commas are not permitted. 

15. A decimal point is not valid as the last character. 

$100.00 Dollar signs are not permitted. 

38) Letters are not permitted. 

17.45— Operational signs, if used, must appear to the left of the 
number. 


A numeric literal, then, is a constant that may be used in the PROCEDURE 
DIVISION of a COBOL program. Numeric literals are numeric constants that 
can be used for arithmetic operations. These rules must be employed when 
defining a numeric literal. 


2. Nonnumeric Literal 
A nonnumeric or alphanumeric literal is a constant that may be used in the 
PROCEDURE DIVISION for all operations except arithmetic operations. The 
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following rules must be employed when defining a nonnumeric or alpha- 
numeric literal: 


RULES FOR FORMING NONNUMERIC LITERALS 


1. The literal must be enclosed in quotation marks.! 

2. A maximum of 120 characters, including spaces, may be used. 

3. Any character permitted in the COBOL Character Set? may be used 
except the quotation mark. 


The following are valid nonnumeric literals: 


VALID NONNUMERIC LITERALS 
“CODE” 
"ABC 123° 
“1490007 
“INPUT / 
"$100.00" 
“MESSAGE ’ 


Moving any of these literals to a print area and then writing the print record 
results in the printing of those characters within the quotation marks; that is 
CODE, ABC 123, 1 +000, etc. will print if they are moved to a print area. Note 
that a nonnumeric literal may contain all numbers. ’123/ is a valid nonnu- 
meric literal. It should be distinguished from the numeric literal 123, which 
is the only type permitted in arithmetic operations. 

Suppose we wish to move the message ‘INVALID RECORD’ to an output 
field, MESSAGE-FIELD, before we write an output record. The following is a 
valid COBOL instruction: 


MOVE ‘TNVALID RECORD’ TO MESSAGE-FIELD, 


“INVALID RECORD’ is a nonnumeric literal. It is a value specified in the 
PROCEDURE DIVISION and does not appear in the DATA DIVISION, MESSAGE - 
FIELD is not a literal but a data-name. It conforms to the rules for forming 
programmer-supplied words. It could not be a nonnumeric literal, since it is 
not enclosed in quotation marks. All data-names, such as MESSAGE-FIELD, 
must be defined in the DATA DIVISION. 

In summary, a nonnumeric literal is any constant defined directly in a 
source program that is not used for arithmetic operations. It must conform to 
the rules specified above. Any character may be used to form a nonnumeric 
literal. That is, once the string of characters is enclosed within quotes, the 
computer does not check to determine if a reserved word is being used. Thus 
’paTA’ and ‘MOVE’ are valid nonnumeric literals. 


1 We have adopted the notation of a single quotation mark or apostrophe to delineate nonnumeric 
literals. Some compilers, however, use the double quotation marks (/). Check your specifications 
manual. On all systems there are commands that enable you to change the specification for a 
nonnumeric literal from an apostrophe (single quote) to a quotation mark (double quotes) or from 
double quotes to an apostrophe. 

? Characters in the COBOL character set are those characters that are permitted within a COBOL 
program. Appendix A lists these characters. 
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3. Figurative Constant 
A figurative constant is a COBOL reserved word that has special significance 
to the compiler. We discuss in this section two figurative constants: ZEROS 
and SPACES. 

The figurative constant ZEROS is a COBOL reserved word meaning all zeros. 
Consider the following instruction: 


MOVE ZEROS TO TOTAL, 


This operation results in the data field TOTAL being filled with all zeros. ZEROS 
is a figurative constant having the value of all zeros. ZERO, ZEROES, and ZEROS 
are equivalent figurative constants, all having the same value. They may be 
used interchangeably in the PROCEDURE DIVISION of a COBOL program. 

SPACES is a figurative constant that means all blanks. Consider the follow- 
ing instruction: 


MOVE SPACES TO CODE-OUT. 


This results in blanks being placed in every position of the field CODE-OUT. 
The word SPACES is a COBOL reserved word having the value of all blanks. 
It may be used interchangeably with the figurative constant SPACE. 

ZEROS and SPACES are the two figurative constants most frequently used. 
We will, however, discuss other figurative constants later in this book. 

In summary, three types of data may be specified in the PROCEDURE 
DIVISION: a numeric literal, a nonnumeric literal, and a figurative constant. 
Variable data fields whose names appear in PROCEDURE DIVISION entries 
must be described in the DATA DIVISION. 

In future discussions of PROCEDURE DIVISION entries, the use of constants 
will become clearer. Right now, you should be able to recognize literals and 
to distinguish them from the names used to define data fields. The specific 
formats of ADD and MOVE statements, in which these literals were illustrated, 
are discussed more fully later. 


CHAPTER SUMMARY 
A. Data Organization 

1, File An overall classification of data pertaining to a specific business 
use or application. 

2. Record A unit of data within a file that contains information of a spe- 
cific nature. 

3. Field A group of consecutive positions reserved for one item of data. 
(a) Group item A field that is subdivided. 
(b) Elementary item A field that is not subdivided. 


Note: Files, records, and fields are all defined in a COBOL program by 
data-names. 


4, Figure 2.2 illustrates the hierarchy of data. 
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B. 


Types of data 
1. Variable data 
Definition: Data that originates outside the program. 
Files 
Records ¢ Defined by data-names 
Fields 


2. Constant or literal 
Definition: Data that is defined within the program; fixed data required 


for processing that is not entered as input to the system. 

(a) Numeric literal: A constant that may be used in the PROCEDURE 
DIVISION for arithmetic operations. 

(b) Nonnumeric literal: A constant that may be used in the PROCEDURE 
DIVISION for all operations except arithmetic operations. 

(c) Figurative constant: A COBOL reserved word with special signifi- 
cance to the COBOL compiler such as ZERO or ZEROES or ZEROS, 
SPACE or SPACES, 


FILE 
(MAY BE ON DISK, TAPE, CARDS, PRINT, ETC.) 


RECORDS RECORD 


FIELDS 


Figure 2.2 
The hierarchy of data. 


RECORD RECORD 


CHAPTER SELF-EVALUATING QUIZ 


The contents of fields defined within input and output records are (fixed, variable), 


A constant is defined as é 
A constant may be used in the —_______ DIY STON as part of an instruction. 
Data fields whose names appear in PROCEDURE DIVISION statements must be 


defined in the _______ DIVISTON. 
The three types of constants are 7 , and 
What types of constants are the following? 

a) ‘ABC’ (d) ZERO 

b) ¢123°¢ (ce) “SPACE ’ 

c} 123.5 

What, if anything, is wrong with the following numeric literals? 
(a) 123. (d) $38.90 

(b) 15.8- (e) 58 

c) 11000 7900,00 
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8. 


What, if anything, is wrong with the following nonnumeric literals? 
(a) ‘THE MESSAGE ‘CODE’ MUST BE PRINTED’ 


(b) “INPUT ’ (d) ‘123° 
(c) /ZERO’ {e) ¢ 
9. The literal’ ', if printed, would result in the printing of two 
10. Quotation marks (are, are not] part of the literal. 
11. Two examples of figurative constants are ______ and 
12. A figurative constant is defined as a 
13. Consider the following instruction: 
MOVE ’1’ TO FLDIi 
he Isa : 
FLD1 is a___ and must be defined in the _____ DIVISION. 
14, To print the ________ ‘ZEROS’ results in the printing of ______.. To print 
the ______ ZEROS results in the printing of 
Page 
1. variable 31 
2. a fixed value or literal necessary for processing but not dependent on the 31 
input to the program 
3. PROCEDURE 31 
4. DATA 39 
5. numeric literals 31 
nonnumeric or alphanumeric literals 32 
figurative constants 34 
6. (a) Nonnumeric literal. 33 
b) Nonnumeric literal. a3; 
c}) Numeric literal. 32, 
d) Figurative constant. 34 
e) Nonnumeric literal. (Note that SPACE is enclosed in quotes; any group 33 
of characters enclosed in quotes is a nonnumeric literal.) 
7. (a) Decimal point may not be the last character. 32 
b) Minus sign must be to the left of the number. 32 
c) Commas are not permitted. 32 
d) Dollar sign is not permitted. 32 
(e) Nothing wrong. 32 
8. (a) Quotation marks may not be used within a nonnumeric literal. 33 
(b}-(e) Nothing wrong. 33 
9, blanks or spaces 83 
10. are not (They merely define the limits of the nonnumeric literal.) 33 
ll. ZERO, ZEROES, ZEROS; SPACE, SPACES 34 
12. COBOL reserved word that represents a specific value 34 
13. nonnumeric literal—enclosed in quotes 33 
data-name—not enclosed in quotes 33 
DATA 33 
14. nonnumeric literal 33 
the word ZEROS 33 
figurative constant 34 
a zero value (all 0’s) 34 
KEY TERMS 
Alphanumeric literal Field 
Constant Figurative constant 
Data-name File 


Elementary item Group item 
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Master file Reserved word 
Nonnumeric literal Update procedure 
Numeric literal Variable data 
Record 


Ee REVIEW QUESTIONS 


I, True-False Questions 

(T or F) A field is a collection of data records. 

(T or F) Files are collections of data records. 

(T or F) PICTURE clauses are used to describe elementary fields in a record. 
(T or F} Numeric literals use quotation marks. 

(T or F] A numeric literal may be from 1 to 30 characters long. 

(T or F) A comma may not be used in a numeric literal. 

(T or F) Data-names are names that may be assigned to fields and records, 
(T or F) SPACE is a figurative constant. 

(T or F] The contents of a field may not exceed 30 characters, 

(T or F) MOVE SPACES TO FL.O1 is a valid statement regardless of the size of FLD1. 


Oo & Opi 


SOON D 


1 


S 


II, General Questions 

1. Make necessary corrections to the following data-names: 
a) CUSTOMER NAME 

b) AMouUNT~ 

c) INVOICE-NO. 

d) PROCEDURE 

e] TAX-% 

f) QUANTITY-OF »~PRODUCT~ABC-ON=HAND 

g) AMT-OF-SALES 

2. Make necessary correcticns to the following literals: 
a) ‘123° 

b) 123 

c) ‘ABC’ 

(d) ABC 

(e) $100,00 

f) /$100,00° 

g) 1000 

h) 100,7- 

i) 54 


In each of the following cases, state the contents of the data field, FIELDA, after the 
MOVE operation: 

3, MOVE ‘ABC’ TO FIELDA. 

MOVE ABC TO FIELDA, 

MOVE 100,00 TO FIELDA, 

MOVE ‘SPACES’ TO FIELDA, 

MOVE SPACES TO FIELDA, 


at ot oy 


| PROGRAMMING ASSIGNMENTS 


1. Using Figure 1.6 in the previous chapter, indicate which elements in the program 
are: 
(a) Files. 
(b) Records. 
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Fields. 


d) Numeric literals. 


) Nonnumeric literals. 


f) Figurative constants. 


sing Figure 1.8, indicate which elements in the program are: 
Files. 

Records. 

Fields. 

Numeric literals. 

Nonnumeric literals. 

Figurative constants. 

sing Figure 1.9, indicate which elements in the program are: 
Files. 

Records. 

Fields. 

? umeric literals. 

Nh onnumeric literals. 


Figurative constants. 


The IDENTIFICATION 
DIVISION 


. BASIC STRUCTURE OF A COBOL PROGRAM 
Self-Evaluating Quiz 

CODING REQUIREMENTS OF THE IDENTIFICATION DIVISION 
A. Paragraphs in the IDENTIFICATION DIVISTON 
B. Rules for Interpreting Instruction Formats 

C. Examples 

CHAPTER SUMMARY 

CHAPTER SELF-EVALUATING QUIZ 

KEY TERMS 

REVIEW QUESTIONS 

PROGRAMMING ASSIGNMENTS 


Il, 
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OBJECTIVES 


To familiarize you with: 

1. The basic structure of a COBOL program. 
2. General coding and format rules. 

3. IDENTIFICATION DIVISION entries. 


40 
[esis ces i tect a 
ee A] I. Basic Structure of a COBOL Program 


You will recall that all COBOL programs consist of four divisions. In the next 
four chapters, we discuss each division in detail. At the end of this discussion, 
you will be able to write elementary programs using all the divisions of a 
COBOL program. Before we begin, however, some basic rules for coding these 
programs must be understood. 

COBOL programs are generally written on coding or program sheets (Figure 
3.1) before they are keyed into a computer. Programmers who key in programs 
without first writing them on coding sheets will find that the debugging process 
takes far more time. 


COBOL Program Sheet 
System Punching Instructions Sheet of 


Graphic L | 


Identification 
Program 


Programmer Punch [80 


Sequence HH by 8 COBOL Statement 
(Pager | (Serial 


1 3]4 617 )8 12 16 20 24 28 32 36 40 44 48 52 56 60 64 68 72| 
erkecttercero SENnEREETENNTE 

a0 CeCe 
o}3 


SEE EEE 
Coe HAFOBIESEWGWGVGBEOIBUT 


a 
| 


: 


Figure 3.1 


COBOP coding sheet The coding sheet has space for 80 columns of information. Each line of a 


program sheet will be keyed into one line on a terminal or one punched card. 
When keypunching into cards, the COBOL card, which has the specific margin 
rules printed on it, is sometimes used (Figure 3.2). 
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Figure 3.2 
COBOL source program 
card. 


Thus, for every line written on the coding sheet, we will create one line on 
a terminal or one punched card. The entire program is referred to as the COBOL 
source program. 

Let us examine the COBOL coding sheet more closely. The main body of 
the form is subdivided into 72 positions or columns. The information or COBOL 
statements coded in these columns will be keyed into positions 1-72, respec- 
tively, on the terminal or in a punched card. On the righthand side of the form 
there is provision for the program identification entry, labeled positions 73-80, 
The identification entry will be entered into positions 73-80 of all lines or 
cards keyed from this form. 

The rest of the data recorded on the top of the form is not keyed into the 
source program. It supplies identifying information only. Figure 3.3 illustrates 
the conversion of a COBOL program sheet into two lines of code. 


IDENTIFICATION DIVISION. 
PROGRAM-ID. SAMPLE. 


Figure 3.3 


Using a terminal to enter a 
COBOL program. no 
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The identification entry, positions 73-80, and the page and serial number, 
positions 1-6, are optional entries in a COBOL program. Both, however, can 
be useful for ensuring that a program is sequenced properly and that one 
program is not intermixed with another. We sequence programs by serial or 
line numbers using multiples of 10; for example, we start with line 010, then 
use line 020, and so on. If a line is inadvertently omitted between lines 020 
and 030, we can give it a line number of 024 or 025. In this way, we have 
enough extra numbers so that it is possible to insert lines in their proper place. 
When page and line numbers are supplied, then, insertions can be easily made. 

Page number generally refers to the number of the coding sheet. The first 
page is usually numbered 001, the second 002, and so on. 

‘As noted, identification numbers are also optional, but they are quite useful. 
They make it easy to distinguish one keyed program from another. 

Column 7 of the program sheet is a continuation position. It has two pri- 
mary purposes: (1) it is used for the continuation of nonnumeric literals, as 
we will see in Chapter 8, and (2) it can be used for designating an entire line 
as a comment or note by coding an * (asterisk) in column 7. The following 
illustrates the use of a comment in a COBOL program: 


MON Oo oo 
| AIT GGHSGLHGLTGGTOGHUGREGE 


HME! 


tal nnn 

a int TEEECEECH 
om et HH ELEC HTH 
ie wis HH EHH HTT TH HH 


Such comment lines are useful for providing documentary information on 
how the program will process data. Comments are also used as notes to remind 
the programmer about some specific aspects of the program. In many of our 
programs, we will insert a blank comment line with an * in column 7 between 
DIVISIONS to make the program easier to read. If column 7 of any line con- 
tains an *, that entire line is not compiled, but is printed on the listing to 
serve as documentation only. 

Positions 8-72 of a standard COBOL program represent the main body of 
the program. Note, however, that column 8 is labeled A, and column 12 is 
labeled B. These are referred to as Areas. Certain entries must begin in Area 
A and others must begin in Area B. 

If an entry is to be coded in Area A, it may begin in position 8,9, 10, or 11. 
Most often, Area A entries are coded beginning in position 8. If an entry is to 
be coded in Area B, it may begin anywhere after position 11. That is, it may 
begin in position 12, 13, 14, and so on. Note that margin rules specify the 
beginning point of entries. A word that must begin in Area A may extend into 
Area B. 


Example AUTHOR, a paragraph-name, must begin in Area A. Any sentence or statement referring 
to AUTHOR may then follow in Area B as in the following: 


Brie? onm oor 2s TANNA RHA TOD VABDOETOEERARREEO OER NOEOEORENH 


The a of AUTHOR is placed in column 8, or Area A. The word itself extends into 
Area B. The next entry must begin in Area B or in any position after column 11. In 
our example, the statement containing a name begins in position 16. 
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COBOL programs are divided into divisions. The divisions have fixed names: 
IDENTIFICATION, ENVIRONMENT, DATA, and PROCEDURE. They must always 
appear in that order in a program. Divisions may be subdivided into sections. 
The DATA DIVISION, for example, which describes all storage areas for data 
needed in the program, is divided into two main sections: the FILE SECTION 
and the WORKING-STORAGE SECTION. The FILE SECTION of the DATA DI- 
VISION describes the input and output areas, and the WORK ING- STORAGE SEC- 
TION of the DATA DIVISION describes the intermediate work areas necessary 
for processing. Each section may be further subdivided into paragraphs. 

All other entries in the program are considered COBOL statements. A state- 
ment or series of statements that ends with a period is referred to as a sentence. 


Types OF COBOL ENTRIES 
Divisions 
Examples: IDENTIFICATION DIVISION, 


ENVIRONMENT DIVISION: 
DATA DIVISION. 


Divisions, PROCEDURE DIVISION. 
sections, and 
paragraphs Sections 
begin in Area A Examples: FILE SECTION. 
WORKING-STORAGE SECTION, 
Paragraphs 
Examples: PROGRAM~ID+ 
CALC-RTN« 
Statements and Statements and Sentences 
sentences Examples: MOVE NAME-IN TO NAME-OUT. 
begin in Area B ADD AMT TO TOTAL, 


MARGIN RULES 


1. Division, section, and paragraph-names begin in Area A. 
2. All other statements, clauses, and sentences, begin in Area B. 


We will see that the great majority of COBOL entries begin in Area B. 
Figure 3.4 provides an example of these margin rules. The ENYIRONMENT 
DIVISIO begins in Area A, as does the CONFIGURATION SECTION, SOURCE- 
COMPUTER and OBJECT-COMPUTER are paragraph-names which must also be- 
gin in Area A, SOURCE-COMPUTER and OBJECT-COMPUTER must have COBOL 
statements following them in Area B, either on the same line or the next. 


38 EP 36 10 aa 8 32 36 oo @ mo 7| 


i i6 IM 4 
| | 
ICE |- EIR| 


i 
fObo rs 


: 
i 


Illustration of margin rules. 


| 

| ER 

iis SECITION. | CHT 
SELECT SALE-FILE! ASSIGN Tol DIrskdl, 
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Each entry is followed by a period. Note that ENVIRONMENT DIVISION, 
CONFIGURATION SECTION, and SOURCE-COMPUTER are each followed by a 
period. A sentence, which consists of a statement or series of statements, must 
also end with a period. Where several sentences appear on one line, each period 
will be directly followed by at least one space. In the PROCEDURE DIVISION, 
for example, where several sentences may appear on one line, the following 
is permissible: 


2 fl 32 36 40. cy cy 


50 co ae 


ie ata AR uP 


iT 


0 


We will, however, use the convention of coding one statement per line for the 
sake of clarity and for ease of debugging. This method of coding is also con- 


sidered 


good style. 


Division and section names must, however, always appear on a line with 
no other entry. Paragraph-names may appear on the same line as statements. 


Keep in mind, however, that each period must be followed 


space. 


Che following, then, is acceptable: 


by at least one 


1-6 


Columns 


REVIEW OF COBOL CopinG Form 


Use 
Sequence numbers or Page 


and Line numbers (optional) 


Continuation or comment 


Explanation 
Used as a method for 
ensuring that lines are 
sequenced properly. 


Used to continue 
nonnumeric literals (see 
Chapter 8} or to denote a 
line as a comment (* in 
column 7). 


8-11 


Area A 


Specific entries such as 
DIVISION, SECTION, and 
paragraph-names must begin 
in Area A. 


12-72, 


Area B 


Most COBOL entries, 
particularly those in the 
PROCEDURE DIVISION, are 
coded in Area B. 


73-80 


Program identification 
(optional) 


Used to identify the 
program. 
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2. Paragraph-names: 


3. Sentences: 


REVIEW OF CODING RULES 


1. Division and section names: 

Begin in Area A. 

End with a period. 

c) Must appear on a line with no other entries. 


op. 


a) Begin in Area A. 

b) End with a period. 

c) May appear on a line by themselves or with other entries; must 
always be followed by at least one space. 


a) Begin in Area B. 

b) End with a period. 

(c) May appear on a line by themselves or with other entries; must 
always be followed by at least one space. 

d) A sentence consists of a statement or series of statements. 


Self-Evaluating Quiz 


Solutions 


a 


. COBOL programs are written on 


Each line of the coding sheet corresponds to one _______ in a program deck or 
one ______ on a terminal. 


3. The entire program keyed from the coding sheets is called the 
4. The optional entries on the coding sheet are ______ and 
5. Area A begins in position 


6. 


Area B begins in position 


If an entry must begin in Area A, it may begin in position ____, if an entry 
must begin in Area B, it may begin in position 


7. COBOL programs are divided into (no.} divisions. 


. In the order in which they must appear, these divisions are sy fe cy 
, and 
. All F , and names must be coded beginning in 
Area A. 


. Most entries, such as PROCEDURE DIVISION instructions, are coded in Area 


. All entries must be followed by a 


Each period must be directly followed by a 


and ______ must each appear on a separate line. All other entries 
may have several statements on the same line. 


coding or program sheets 

card; line 

COBOL source program 
. identification (positions 73-80) 

sequence, or page and serial number (positions 1-6} 
. 8; 12 

8,9, 10 or 11; 12, 13, 14, and so on 

four 
» IDENTIFICATION; ENVIRONMENT; DATA; PROCEDURE 
. division; section; paragraph- 

B 
. period 
. space 


. Division names; section names 
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HE. coding Requirements of the IDENTIFICATION DIVISION 


A. Paragraphs in the IDENTIFICATION DIVISTON 


The IDENTIFICATION DIVISION is the smallest, simplest, and least significant 
division of a COBOL program. As the name indicates, it supplies identifying 
data about the program. 

The IDENTIFICATION DIVISION has no effect on the execution of the 
program but is, nevertheless, required as a means of identifying the program 
to the computer. 

The IDENTIFICATION DIVISION is not divided into sections. Instead, it 
may consist of the following paragraphs: 


Format 


The division name, IDENTIFICATION DIVISION, is coded in Area A. Para- 
graph-names are also coded in Area A, and each must be followed by a period. 


B. Rules for Interpreting Instruction Formats 


The rules for interpreting an instruction format like the one above are as 
follows: 


1. Capitalized words are COBOL reserved words with special meaning to 
the compiler. 

Lower case words represent programmer-supplied entries. 

Underlined words are required in the paragraph. 

Punctuation specified in the format is required as indicated. 

Brackets { | mean the clause or paragraph is optional. 


The use of dots |... .) means that additional entries of the same type may 
be included if desired. 


GS On. Fe Bon tS 


C. Examples 


The preceding format indicates that the only entry required within the IDEN- 
TIFICATION DIVISION is the PROGRAM-ID. That is, all programs must be 
identified by a program name. All other entries are enclosed in brackets, mean- 
ing that they are optional. 
The name that follows PROGRAM-ID is an external-name, it must be coded 
in Area B. Typically, external-names can consist of eight letters and digits. 
That is, the eight characters of the external-name actually identify the program 
for the computer. 

In summary, the first two entries of a program must be IDENTIFICATION 
DIVISION and PROGRAM-1D, with an appropriate program name as follows: 


40. coy a8 2 6 a0 & 8 7a 


RATentont GaHGAtSaHtGRESOqSOIEOGEL 


THE IDENTIFICATION DIVISION AT 


PROGRAM-1ID is followed by a period and then at least one space. The ex- 
ternal-name is coded in Area B and must conform to the rules specified above. 
The two entries may also be coded as follows: 


36, a cy a 2 56 60 a cr 72 


MISton.[ [1] La Co 


AUEREREGEL ERHOTSWSWOREGLGLOGE 


Since PROGRAM-ID is a paragraph-name, the external-name SAMPLE! may 
appear on the same line as PROGRAM-1D or on the next line. In either case, 
PROGRAM~ID and the program name must each be followed by a period. 

The other paragraph-names listed above are optional. They are useful items 
that provide significant facts about the nature of the program, but they are 
not required. Whichever ones are included must, however, be coded in the 
sequence specified in the format statement. Each paragraph-name is followed 
by a period and at least one space. 

If used, AUTHOR would include the name of the programmer, INSTALLATION 
would be the name of the company or the computer organization; DATE-WRIT- 
TEN is the date the program was coded. For most ANS COBOL users, the 
DATE-COMPILED paragraph can be coded with an actual date or simply as: 


DATE-COMPILED. | 


In systems in which DATE-COMPILED can be coded without a comment-entry, 
the compiler itself will automatically fill in the actual run date, Thus, if the 
program is compiled three different times on three separate dates, it is not 
necessary to keep revising this entry. The compiler itself will list the actual 
run date if the entry DATE-COMPILED appears on a line by itself. 

SECURITY would simply indicate whether the program is classified or con- 
fidential. This coding would not, however, actually control access to the pro- 
gram. That would be done by passwords or other job control mechanisms, 

In addition to PROGRAM-ID, any, or all, of the preceding paragraphs may be 
included in the IDENTIFICATION DIVISION. As paragraph-names, these en- 
tries are coded in Area A. Each paragraph-name is generally followed by a 
statement or comment-entry, which may contain any character including a 
period. The only requirement is that each entry end with a period. 

The IDENTIFICATION DIVISION, as well as the other divisions, frequently 
includes comments that describe the program. Recall that an * in column 7 
may be used to designate any line as a comment line. Comments are extremely 
useful for making programs user-friendly, because they help to clarify proce- 
dures in the program.! 

The following example illustrates typical coding of the IDENTIFICATION 
DIVISION, 

INSTALLATION, as well as the other entries, may extend to several lines, 
Each entry within a paragraph must, however, be coded in Area B. The last 
character must be a period. 


' Users of 1968 ANS COBOL can also use a paragraph-name called REMARKS as the last paragraph 


in the IDENTIFICATION DIVISION to specify comments. For consistency, however, we recom- 
mend that all users designate comment lines with an » in column 7. 
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78 iz 16 20 24 28 7] 36 a0, 4 a 2 56 0 mH oe 7a 
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IDATECOMPITILIED. TOOT ann in 
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MLL THITS| PROGRAM WILL! CREATE | || [i | | HH 
1 A MASTER AYIRIOLL SYSTEM 4 | i COO 

be CE EDITING |THE [INPUT [DATA [AND | Co Co 
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CHAPTER SUMMARY 

A. Paragraphs within the IDENTIFICATION DIVISION inform the reader 
about the nature of the program. 

_ The IDENTIFICATION DIVISION and its paragraphs do not affect the exe- 
cution of the program. 

C. The first item to be coded in a program is: 
IDENTIFICATION DIVISION. 

D. The second item to be coded in a program is: 
PROGRAM-ID. program-name. 

. The program-name is typically eight characters or less, letters and digits 
only. 

F. All other paragraphs and identifying information in this division are op- 

tional, Paragraphs that may be included are: 


ios) 


m 


AUTHOR» 
INSTALLATION, 
DATE-WRITTEN: 
DATE-COMPILED, 
SECURITY. 


In many systems, if no entry follows the DATE-COMPILED paragraph, the 
compiler will insert the date of run on the listing. 

G. The paragraphs to be coded in the IDENTIFICATION DIVISION must be in 
the sequence specified above. 

H. Comments can be included in the IDENTIFICATION DIVISION, as well as 
all other divisions, by coding an * in position 7. This makes the entire line 
a comment. We encourage you to use comments throughout your programs 
as a documentation tool. 


| CHAPTER SELF-EVALUATING QUIZ 


iby 


Ms 


3. 


The first two entries of a COBOL program must always be —___— and 


Each of these entries must be followed by a _____,, which, in turn, must be 
followed by a : 
The preceding entries are both coded beginning in Area 


. The name that follows PROGRAM-1ID is a(n) _______-name. 
- Code the IDENTIFICATION DIVISION for a program called EXPENSES for a corpo- 


ration, Dynamic Data Devices, Inc., written July 15, 1986. This program has a 


TH 
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security classification and is available to authorized personnel only. It produces a 
weekly listing by department of all operating expenses. 


6. The DATE-COMPILED paragraph usually does not include an entry because 

Page 

Solutions 1, 46 
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2. period; space or blank 45 

3. A 45 

4. external or program 46 

5. The following is a suggested solution: 48 
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Note: Only the IDENTIFICATION DIVISION and PROGRAM-1D are required. 
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Key TERMS 


Area A INSTALLATION 
Area B Paragraph 
AUTHOR PROGRAM-ID 
Coding sheet Program sheet 
Continuation position Section 
DATE-COMPILED SECURITY 
DATE-WRITTEN Sentence 
Division Statement 
IDENTIFICATION DIVISION 


REVIEW Questions 


I. True-False Questions 


1 
2. 


3. 
4. 
: 


6. 


. (T or F) Only one statement is permitted on a coding line. 

. (T or F) IDENTIFICATION DIVISION, PROGRAM-1D, and AUTHOR are the three re- 
quired entries of the division. 

(T or F) SAMPLE 12 is a valid external-name. 

(T or F) A division name must appear as an independent item on a separate line. 
(T or F) The IDENTIFICATION DIVISION contains instructions that significantly 
affect execution of the program. 

(T or F) Information supplied in the IDENTIFICATION DIVISION makes it easier 
for users to understand the nature of the program. 
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7. (T or F) COBOL programs are designed to be self-documenting. 

8. (T or F) DATE-COMPILED typically requires no additional entries. 

9. (T or F] Every period in a COBOL program must be followed by at least one space. 
10. (T or F] The INSTALLATION paragraph is restricted to one line. 


II. General Questions 
Make necessary corrections to each of the following (1-5): 


i, 


BF C8 Laat ae ne at Rea 


Pi re 
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4. 
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PROGRAM-ID.. SANBLEA.| | {| {I | 
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6. State which of the following entries are coded in Area A: 
(a) IDENTIFICATION DIVISION 
(b) PROGRAM-1D 
(c) (name of author] 
(d) FILE SECTION 
(e) (COBOL statement) ADD TAX TO TOTAL 
7. Indicate the rules for forming program- or external-names. 
8. What is the difference between the DATE-WRITTEN and the DATE-COMPILED para- 
graph? 


Sequence [2 
rial 8 
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PROGRAMMING ASSIGNMENTS 


1. Code the IDENTIFICATION DIVISION for a program called UPDATE for the United 
Accounting Corp. The program must be written by 8/25/86 and completed by 10/25/86, 
and it has a top secret security classification. The program will create a new master 
disk each month from the previous master disk and selected transaction tape records. 

. Code the IDENTIFICATION DIVISION for a program that will print bills for the 
American Utility Co. 

3. Consider the program excerpt in Figure 3.5. Code the IDENTIFICATION DIVISION, 

Include self-documenting paragraphs and comments that describe the program. 


i) 


COBOL Statement 
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Figure 3.5 
Program for Programming 
Assignment 3. 
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The ENVIRONMENT 
DIVISION 


I. THE SECTIONS OF THE ENVIRONMENT DIVISION 
A, CONFIGURATION SECTION 
B. INPUT-OUTPUT SECTION 
Il, ASSIGNING FILES TO DEVICES IN THE ENVIRONMENT DIVISION 
A. Overall Format 
1. File-Name 
2. Device Specifications 
. More Detailed Device Specifications 
C. Interpreting the Device Specification 
1. Symbolic Device 
2. Device Class 
3. Device Number 
4, Method of Organization 
5. External-Name 
D. The RESERVE Clause of the SELECT Statement 
E. Practice Problem 
CHAPTER SUMMARY 
CHAPTER SELF-EVALUATING QUIZ 
KEY TERMS 
REVIEW QUESTIONS 
PROGRAMMING ASSIGNMENTS 
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OBJECTIVES 


To familiarize you with: 
1. The basic features of the ENVIRONMENT DIVISION. 


2. The format of the two sections within the ENVIRONMENT DIVISION, the 
CONFIGURATION SECTION and the INPUT-OUTPUT SECTION. 


3. The ways in which device specifications are made on many systems. 


I. The Sections of the ENVIRONMENT DIVISIO 


The ENVIRONMENT DIVISION of a COBOL program supplies information con- 
cerning the hardware or equipment to be used in the program. The ENV IRON- 
ENT DIVISION entries are therefore machine-dependent. Unlike the other 
divisions of a COBOL program, the entries in this division will be dependent 
on (1) the computer system and (2) the specific devices used in the program. 
The ENVIRONMENT DIVISION is composed of two sections: 


SECTIONS OF THE ENVIRONMENT DIVISION 


CONFIGURATION SECTION, 
INPUT-OUTPUT SECTION, 


The CONFIGURA 


ION SECTION supplies information concerning the computer 


on which the COBOL program will be compiled and executed. The INPUT- 


OUTPUT SECTIO 
in the program. 
are devices that 
the ENYIRONME 


supplies information concerning the specific devices used 
Terminals, printers, tape drives, disk units, and card readers 
are typically referred to in the INPUT-OUTPUT SECTION of 
DIVISION, 


The ENVIRONMENT DIVISION is the only division of a COBOL program that 


will change sign 
Since computer 
has unique ENV 
the ENVIRONME 

installation. Thro 


ificantly if the program is to be run on different computers. 
users have varied models and equipment, each installation 
RONMENT DIVISION specifications. The entries required in 
DIVISION are generally supplied to the programmer by the 
ughout this discussion, we will use some sample statements, 


keeping in mind that such entries are dependent on the actual computer used 


and the devices t 


hat will be accessed by the program. 


A. CONFIGURATION SECTION 


The CONFIGURATION SECTION of the ENVIRONMENT DIVISION indicates: 
(1) the SOURCE-COMPUTER—the computer that will be used for compiling the 
program—and (2) the OBJECT-COMPUTER—the computer that will be used for 
executing or running the program, SOURCE ~COMPUTER and OBJECT-COMPUTER 
provide information that is used for documentation purposes only. 

Officially, the CONFIGURATION SECTION is required for 1974 ANS COBOL 
users and is optional for 1968 and 1985 users. In actuality, however, most 
1974 COBOL compilers permit the user to omit this section if desired. We 
will consider the features of the CONFIGURATION SECTION, but generally we 
omit it from our programs, 

You will recall that all section names, like division names, are coded in 
Area A. Thus, the CONFIGURATION SECTION, if coded, will follow the 
ENVIRONMENT DIVISTON entry, in Area A. SOURCE-COMPUTER and OBJECT- 
COMPUTER, as paragraph-names, would also be coded in Area A. 
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The SOURCE- and OBJECT-COMPUTER entries must specify: 


ENTRIES FOR SOURCE-COMPUTER AND OBJECT-COMPUTER PARAGRAPHS 
1. The computer manufacturer. 
2. The computer number. 
3. The computer model number, if needed. 


Consider the following sample entries: 


a a8 2 56 0 co cy 7 


Example 


| 
IETSSAETSSHITGGHESaITOGGLELGR 


Each paragraph-name is directly followed by a period and then a space. The 
designated computer, NCR-8600, is also followed by a period. 

In the example, the source and object computers are the same. In general, 
this will be the case, since compilation and execution are usually performed 
on the same computer. If, however, the program will be compiled on one 
model computer and executed, at some future time, on another model com- 
puter, these entries will differ, as in the following example: 


ENVIRONMENT DIVISION, 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. IBM-4931. 
OBJECT-COMPUTER. UNIVAC-1100, 


In this example, the program will be compiled on an IBM 4331 and executed on a 
UNIVAC 1100. The computer number and model is generally supplied by the instal- 
lation since it remains the same for al] COBOL programs run there. 


A third paragraph that is optional in the CONFIGURATION SECTION is called 
SPECIAL-NAMES. We discuss the SPECIAL-NAMES paragraph of the CONFIG- 
URATION SECTION in Chapter 13, since it is most often used in conjunction 
with the printing of reports. 


B. INPUT-OUTPUT SECTION 


The INPUT-OUTPUT SECTION of the ENVIRONMENT DIVISION follows the coNn- 
FIGURATION SECTION (if coded) and supplies information concerning the de- 
vices used in the program. In this chapter, we will discuss the F 1LE-CONTROL 
paragraph of the INPUT-OUTPUT SECTION. In the FILE-CONTROL paragraph, a 
file-name is selected for each file to be used in the program; in addition, each 
file-name selected is assigned to a device. 


eee Il. Assigning Files to Devices in the ENVIRONMENT DIVISION 


A. Overall Format 


Thus far, we have the following entries that may be coded in the ENY [RONMENT 
DIVISION: 
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The FILE-CONTROL paragraph consists of SELECT statements, each of which 


is coded in Area B followed by a period. A SELECT statement defines a file- 
name and assigns a device to that file. The format may be as follows, using 
the rules for instruction formats noted in the previous chapter: 


Format 


1, Uppercase words are reserved words, lowercase words are programmer- 
supplied. 
2. Underlined words are required in the statement. 


1. File-Name 
The file-name assigned to each 


device must conform to the rules for forming 


programmer-supplied data-names: 


RULES FOR FORMING PROGRAMMER-SUPPLIED DatTA-NAMES 


. From 1 to 30 characters, 


. No special characters except a hyphen. 


1 
2 
3. No embedded blanks. 
4 


. At least one alphabetic character, 


In addition to‘conforming to 


these rules, the file-name must be unique, that 


is, the name assigned may not be used for any other data-name in the program. 
It is also suggested that file-names assigned by the programmer be meaningful. 
Thus, SALES-TAPE would be a more appropriate file-name than §-T, 


For each device used in the program, a SELECT statement must be specified. 
If a program requires a disk as input and produces a printed report as output, 


two SELECT statements will be 


specified. One file will be assigned to the disk 


file, and the other to the print file. 


2, Device Specifications 


Device specifications, sometimes referred to as implementor-names, vary widely 
among computer manufacturers. We will consider both the simplified versions 


and the more detailed ones, 


Most systems enable the programmer to access frequently used devices by 
special device names. The following are common short-hand device specifi- 
cations that you may be able to use with your system. 


Input from a terminal 
Output on a terminal 
Card reader 

Printer 

Disk 


SYS$IN 

SYS#OUT 

SYSIPT, SYSRDR, or SYSIN 
SYSLST or SYSOUT 

DISC 
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Hence, for many systems, the following entries would be valid for a program 
that uses cards as input and a printed report as output. a 


Example FILE-CONTROL, SELECT TRANSACTION-FILE ASSIGN TO SYSIPTs 


Examples 


SELECT ACCT-REPORT ASSIGN TO SYSLST+ 


Sometimes the device specification can be any programmer-supplied data- 
name that will be assigned to a device later at execution time using special 
job control commands. For these systems, the ASSIGN clause simply specifies 
an external-name. Consider the following, which is valid on a DEC VAX sys- 
tem: 


SELECT SALES-FILE ASSIGN TO INDEVICE. 
During execution, the user will be asked to define what INDEVICE is. 


B. More Detailed Device Specifications 


Device specifications vary among computer manufacturers. The following for- 
mat of a SELECT statement is standard for some COBOL compilers: 


Device Specifications 


Symbolic Device Device Method of 
device class number organization 


The external-name entry may be optional on your computer. 


IBM 
SELECT PAY-CARDS-IN ASSIGN TO SYS8005-UR-2540R-S. 
SELECT SALES-TAPE-OUT ASSIGN TO SYSOOB-UT-3400-S, 


UNIVAC 
SELECT INVENTORY-TAPE ASSIGN TO SYSO10-UT-590-S. 
Shorter versions that may be acceptable include: 
SELECT SALES-DISK ASSIGN TO SYSOQ7-DA-S. 
The FILE-CONTROL paragraph may seem unnecessarily complex but the 


entries are standard for each installation. The only programmer-supplied entry 
is the file-name. 


C. Interpreting the Device Specification 


Let us define the five entries for the device specification and then discuss each 
in detail. You may skip this section if you are not required to provide specific 
device assignments with your programs. 


1 Consult your computer’s specifications manual to see if these device specifications are used. 
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DEVICE SPECIFICATIONS 
1. Symbolic Device 
Supplied by the computer center that assigns a number to each 


device. 
$YSnnn is common, where nnn may be a number from 001 to 256. 


UR 


2. Device Class 4UT 
DA 


The braces mean that any one of the following may be used: 


UR—unit-record (cards, terminal, printer) 
utT—utility (tape or sequential disk) 
bA—direct-access (disk) 


3. Device Number 
Supplied by the computer manufacturer. 


4. Method of Organization 
§ for sequential (cards, terminal, printer, tape, or disk) 


I 
Re only for disk files to be accessed randomly 


5. External-Name (optional on many systems} 


1, Symbolic Device 

The system number or symbolic device is dependent on the particular instal- 
lation. The item will vary among computer centers. Each physical device in 
a computer facility will have a unique system number. The system number 
may be an external-name or may have the format $Y8nnn, where nnn is‘a 
number from 001 to 256. 


2. Device Class 

The classifications that may be used are standard entries. There are three types 
of device classifications: UR for unit-record, UT for utility, and DA for direct- 
access. The printer, terminal, card punch, and card reader are unit-record de- 
vices because each record associated with these devices is always the same 
fixed length. A card, for example, is a unit-record document, since it must 
consist of 80 positions of data. A printed report is similarly a unit-record 
document since each line always consists of the same number of print posi- 
tions. This is true of terminal data as well. Thus card, terminal, and print 
devices will have a classification of UR for unit-record. 

Tape is not a unit-record device since tape records can be any size. Some 
tape files have 80-character records, for example; others have 100- or 200- 
character records. Tape and sequential disk can be classified as UT for utility 
device. Direct-access units such as disk are typically classified as DA. 


3. Device Number 
The device number is provided by the computer manufacturer. IBM, for ex- 
ample, often uses the following device numbers for its input/output units: 


TAPE 3400 
READER 2540R or 2501 
PRINTER 1403 or 3203 


DISK 3330+ 3340+ 3350+, 2311+ 2314 
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4, Method of Organization 
The method of organization will always be § for card, tape, terminal, and print 
files. § may also be specified for disks that are organized sequentially. The 1, 
R, and D methods of organization are discussed in Chapter 23; they pertain 
only to disk processing, where files can be organized in different ways so that 
records can be accessed randomly. 

The clause following ASSIGN TO contains device specification entries sep- 
arated by hyphens. Omitting these hyphens in coding will cause syntax errors. 


5. External-Name 
The external-name entry is optional on many systems. Some operating sys- 
tems require an external-name to access a file (see Appendix D). Since the 
rules for forming external-names are system-dependent, check your comput- 
er’s manual for the requirements. 

Let us consider the following illustrations, using arbitrary system numbers 
since these will depend on the installation. 


A card file, consisting of transaction data, may be assigned as follows for an IBM 
system: 


ET 0, mH B 7 


Example 2 


TiRANS|-FILE! Msisr[en Mo. |s¥seod-ue-esaans.( 11 TTI H 


The filename, TRANS-FILE, is supplied by the programmer. The remaining data in 
the statement is necessary when using the reader. The reader is a UR or unit-record 
device with number 254k and is assigned to $Y8004 for this installation. 

Note that SELECT statements are coded in Area B. 


A tape file, consisting of employee data, may be assigned as follows for a UNIVAC 
system: 


24 


28 32 


PLE Assen Svsiar aaa FTP 


EMPLOYEE-FILE is the name assigned to the tape file. All entries after the words 
ASSIGN TO are supplied by the installation to indicate a specific tape drive. 


D. The RESERVE Clause of the SELECT Statement 


Some computer installations require each device specification to include the 
phrase RESERVE NO ALTERNATE AREAS or RESERVE n AREACSI, where 1 is 
an integer required by the installation. 


SELECT PAYROLL ASSIGN TO SYSIN 
RESERVE NO ALTERNATE AREAS: 


The RESERVE clause relates to the way in which input and output is handled 
by the computer and is discussed in detail in Chapter 13. At this point, it is 
only necessary for you to determine whether you need to include this clause 
with your SELECT statements. 

The entry in the SELECT statement that is most important to you is the 
file-name assigned. This name is referenced in the DATA DIVISION to desig- 
nate the input or output area to be used by the file. It is also referenced in the 
PROCEDURE DIVISION to access the file. The other entries in the SELECT 
statement are computer-dependent. The system numbers, however, must be 
obtained from the particular installation. Any system numbers used in this 
book are arbitrary assignments. 
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The preceding discussion should serve as a general guide for users. Consult 
your specifications manual or instructor for the requirements of the SELECT 
statements at your computer center, 


E. Practice Problem 


Code the IDENTIFICATION and ENYIRONMENT DIVISION entries for the fol- 
lowing system: 


All SELECT statements are coded in Area B. The order in which the files 
are specified is not significant. The following is a suggested solution, 


mH a8 i 56 00, co 08 7] 
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CHAPTER SUMMARY 
A. The format for the ENVIRONMENT DIVISION is as follows: 
VIRONMENT DIVISION. 
[CONFIGURATION SECTION,| 
[SOURCE~COMPUTER, computer-name] 
(OBJECT-~COMPUTER, computer-name| 
[SPECTAL~NAMES.] To be discussed in Chapter 13, 
[INPUT-OUTPUT SECTION. 
(FILE-CONTROL, 
SELECT file-name-1 
ASSIGN TO device specification 
[RESERVE clause]. 


iT 
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B. The CONFIGURATION SECTION is usually optional. It supplies documentary 
information on the computers being used. The SPECIAL-NAMES paragraph, 
also optional, will be considered in Chapter 13. 

C. The INPUT-OUTPUT SECTION is also optional, but it must be included if 
any files are assigned to devices in a program. Since practically all programs 
use files, we will always include the INPUT-OUTPUT SECTION. 

D. If you look at a COBOL specifications manual, you will find that the full 
format for the ENVIRONMENT DIVISION is far more extensive than speci- 
fied in this chapter. We have extracted the most commonly used elements. 

E. The ENVIRONMENT DIVISION is the only division of a COBOL program 
that will vary depending on the computer used. You will need to obtain the 
exact device specifications from your computer center or your instructor. 
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Solutions 


1. The ENVIRONMENT DIVISION of a COBOL program supplies information about 
2, The entries in the ENVIRONMENT DIVISION are dependent on and 
3. The two sections of the ENVIRONMENT DIVISION are the _____ SECTION and 
the SECTION. 
4. The entries in the ENVIRONMENT DIVISION will, will not) change significantly if 
the program is run on a different computer. 
5. The two main paragraphs required in the CONFIGURATION SECTION, if coded, 
are and : 
6. The above entries are coded in Area —__—— and are followed by a 
7, The INPUT-OUTPUT SECTION of the COBOL program supplies information about 
the : 
8. Files are defined and assigned in the ———— paragraph of the INPUT-OUTPUT 
SECTION. 
9, FILE-CONTROL consists of a series of statements. 
10, For every device used in the program, a -name must be specified. 
11. The filename used in the SELECT statement must conform to the rules for 
forming 
12. The SELECT statement assigns the file toa device that may have five specifications: 
( ; , and 
13. The three types of device classifications are for unit-record, 
for utility, and for direct-access. 
14. A unit-record device is one that 
15. A card reader and a printer are examples of devices. 
16. A tape drive is a device. 
17. The device and system number are ____-dependent entries. 
18. SELECT statements are coded in Area i 
19. Code the IDENTIFICATION and ENVIRONMENT DIVISION entries for a program 
that reads an input transaction tape, creates an error listing for all erroneous records, 
and creates a master disk file that is organized sequentially. 
Page 
1. the equipment to be used 53 
2. the computer, the specific devices used 53 
3, CONFIGURATION; INPUT-OUTPUT 53 
4, will—It is the only division that would change significantly. 53 
5. SOURCE-COMPUTER, OBJECT-COMPUTER 53 
6. A; period 53 
7. devices being used 54 
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8. FILE-CONTROL 55 
9. SELECT 55 
10. file 55 
1, programmer-supplied data-names 55 
2. symbolic device or system number; device class; device number; method of 56 
organization; external-name 
3. UR; UT; DA af 
14. consists of records of a fixed length 57 
5. unit-record 57 
6. utility 57 
7. machine or computer 57 
18. B 58 
9, 59 
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CONFIGURATION SECTION OBJECT-COMPUTER 
ENVIRONMENT DIVISION SELECT 
FILE-CONTROL SOURCE -COMPUTER 


INPUT-OUTPUT SECTION 


View QUESTIONS 


I. True-False Questions 


1. (T or F) The ENVIRONMENT DIVISION of a COBOL program, like the other three 
divisions, is generally the same regardless of the computer on which it is run, 

2. (T or F) A tape is a utility device. 

3. (T or F) A magnetic disk may sometimes be considered a unit-record device, 

4, (T or F) The INPUT-OUTPUT SECTION of the ENVIRONMENT DIVISION assigns the 
filenames. 

5. (T or F) The CONFIGURATION SECTION is an optional entry. 

6. (T or F) FILE-CONTROL is a required entry in the ENVIRONMENT DIVISION for 

rograms that use files. 

7. (T or F) The SOURCE-COMPUTER and OBJECT-COMPUTER entries must be exactly 
the same. 

8. (T or F) S in an ASSIGN clause is an abbreviation for “standard.” 
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9. (T or F) Rules for forming file-names are the same as for forming data-names. 
10. (T or F) A maximum of three files may be defined in the INPUT-OUTPUT SECTION. 


II. General Questions 

1. Indicate which entries are coded in Area A: 
a) ENVIRONMENT DIVISION. 

b) CONFIGURATION SECTION. 

c) SOURCE-COMPUTER. 

d) FILE-CONTROL. 

(ec) SELECT statement. 

2. Define each of the following: 

a) OBJECT-COMPUTER. 
b) Utility. 

c) Unit-record. 

d) File-name. 


e] CONFIGURATION SECTION: 

3. Which entries of the ENVIRONMENT DIVISION are coded in Area A, and which are 
coded in Area B? 

Make the necessary corrections to each of the following; assume that device specifi- 
cation, where noted, is correct (Questions 4-7): 

4. 
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Note Code these program excerpts for the computer used at your installation. 


1. Code the IDENTIFICATION DIVISION and the ENVIRONMENT DIVISION for a COBOL 
update program that uses a terminal for entering transaction data and the previous 
week’s master inventory tape file to create a current master inventory tape file. 


THE ENVIRONMENT DIVISION 63 


2. Code the IDENTIFICATION DIVISION and the ENVIRONMENT DIYISION fora COBOL 
program that will use a sequential master billing disk to print gas bills and electric 
bills. 

3. Consider the program excerpt in Figure 4.1. Code the IDENTIFICATION and EN- 
VIRONMENT DIVISIONS for this program. Be as complete and as specific as possible. 
Include comments that describe the program. 


COBO- Program Sheet 
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Figure 4.1 
Program for Programming 
Assignment 3. 
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I. THE FILE SECTION 
A. File Description Entries 
1, LABEL RECORD(S) Clause—Required 
2. RECORD CONTAINS Clause—Optional 
3, BLOCK CONTAINS Clause—Optional 
4, DATA RECORD(S) Clause—Optional 
Self-Evaluating Quiz 
B. Record Description Entries 
1, Level Numbers 
Self-Evaluating Quiz 
2. PICTURE (PIC) Clauses 
3. Use of FILLERs in Record Description Entries 
4, Summary of PIC Specifications 
5, The Use of the Implied Decimal Point in PIC Clauses 
6. Summary of Record Description Entries 
7. Multiple Record Formats Within a File 
Il. THE WORKING-STORAGE SECTION: AN OVERVIEW 
CHAPTER SUMMARY 
CHAPTER SELF-EVALUATING QUIZ 
KEY TERMS 
REVIEW QUESTIONS 
PROGRAMMING ASSIGNMENTS 
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OBJECTIVES 


To familiarize you with: 

1. How data areas that are part of input or output files are defined. 

2. How storage can be reserved for fields not part of input or output, such as 
constants and work ‘areas. 

3. The ways in which data is structured in COBOL. 

4. The entries coded in the DATA DIVISION. 


The DATA DIVISION is the part of a COBOL program that defines and describes 
data fields in storage. Any area of storage that is required for the processing 
of data must be established in the DATA DIVISION. We will focus on the FILE 
SECTION and the WORKING-STORAGE SECTION of the DATA DIVISION, 

Any program that (1) reads data from input files or (2) produces output files 
requires a FILE SECTION to describe the input and output areas. Since almost 
all programs read input files, operate on them, and produce output files, the 
FILE SECTION will be an essential part of almost all programs. 

We will see that the WORK ING-STORAGE SECTION is used for defining fields 
that are not part of input or output but are also needed for storing data. Counters, 
end-of-file indicators, and final total accumulators are examples of fields stored 
in WORK ING-STORAGE. 


I. The FILE SECTION 


The DATA DIVISION can consist of the following four sections. We will focus 
on the first two: 


SECTIONS OF THE DATA DIVISION 


1, FILE SECTION—defines all data areas that are part of input or out- 

put files. 

2, WORKING-STORAGE SECTION—reserves memory or storage for fields 

not part of input or output but nonetheless required for processing. 
These include constants and work areas. 

3, LINKAGE SECTION—used for passing data from one program to 
another. See Chapter 25. 

4, REPORT SECT1ON—describes the specific format of reports that are 
generated by the Report Writer feature. This section is coded only 
for specific types of report processing and is not generally used in 
the majority of COBOL programs. It is discussed in Appendix H. 


The sections used in the DATA DIYISION of a program must appear in the 
above sequence. This chapter will discuss in detail the FILE SECTION, the 
first section of the DATA DIVISION, The WORK ING~STORAGE SECTION, which 
follows the FILE SECTION if used in a program, is briefly mentioned at the 
end of this chapter, but it is considered in more detail in Chapter 8. Most 
COBOL programs include these two sections. 

The FILE SECTION, as the name implies, describes all input and output files 
used in the program. Such files have already been defined in the ENVIRONMENT 
DIVISION, in a SELECT statement, where the file-name is designated and an 
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input/output (I/O) device is assigned to it. Let us use the following sample 
statements as examples: 


7fe 20 24 28 7] 36 40 my mo a ca w 4 38 7A 

legal To rot [| 

| ae EA TORY|-|FLULIE ASSIGN TIO SIYSTIN. H 

{Tift ii vie T-lFIIUE au 10 Cee tr A 1 

(TTT ISEVECT | RROR-UIST | JASSIIGN [Td Sysourl.| | | | TT 
In every SELECT statement written in the ENVIRONMENT DIVISION, a file- 


name is defined. Thus, for every SELECT statement, we will have one file to 
describe in the FILE SECTION of the DATA DIVISION. 

The FILE SECTION, as mentioned, describes the input and output areas in 
the program. An input area is storage reserved for records from an incoming 
file. A READ instruction, in the PROCEDURE DIVISION, will transmit one record 
of the designated file to this input area. Similarly, an output area is storage 
reserved for records to be produced on an output file. When a WRITE statement 
is executed, any data in this output area is transmitted as one record to the 
specified output device. The device and file-names are assigned in the ENVI- 
PONMENT DIVISION ina SELECT statement. The input or output area for each 
file is then described in the FILE SECTION of the DATA DIVISION. 


A. File Description Entries 


The FILE SECTION describes each file with an FD sentence that consists ofa 
series of clauses and ends with a period. FD is an abbreviation for File Descrip- 
tion. Each FD entry will describe a file established by a SELECT statement in 
the ENVIRONMENT DIVISION. Thus, as an example, we may have: 


tt iz is 20 n 28 32 36 0 a4 cr i 56 wo 8 7a 
| an 
N }) 


Each file description entry is followed by record im 7] 


description entries for records within the file. || 
TT 4 TTT TT 
{| [| 


a! 


Lf || [{ | 
SERRE TEROOROE HH 
CT 


LITT LT 
tH | { ia CLEC 


Every FD entry will be followed by a file-name and certain clauses that 
describe the file and the format of its records. Since there are three SELECT 
statements in the preceding example, there must be three FD entries in the 
FILE SECTION. 

The two entries, DATA DIVISION and FILE SECTION, are coded in Area A. 
FD is also coded in Area A. The file-name, however, is coded in Area B. No 
period follows the file-name. FD ACCTS-RECEIVABLE, for example, signals the 
compiler that the ACCTS-RECEIVABLE file is about to be described. Several 
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clauses may be used to describe a file. These will follow the FD file-name, and 
no period will be written until the last clause is specified. Consider the fol- 
lowing examples, which include full Fp entries: 


awa 


= 


| 


L L “FE L E 24 Ol 28 32. 36 40 it 4a 52 56 
cD BRE 3 al PERRET fils: Beseiption JL | i 
N 
CORD IS) EMPLOVEE-REC | J CeCe 
rT | rly Record Description T 
{ erties for that 
| | [ | | 
T TONLFII |_| | | | lait | 
i" DS! ARE! STANDARD le beleltnl 44 LTT 
INS! 5G. CHARACTERS! | | [Ete pren 
B ING! 2 R Ds a ia 
D D/ US| TRANSACTITON-REC|. | | U 
| 
| 


Tt “" im 
| } } Record Description + {- 
entries for that 
si | file 


We will focus on File Description entries first and then consider Record 
Description entries for records within each file. 


1, LABEL RECORD(S) Clause—Required 


Format 


The braces { } denote that one of the enclosed items is required. 

Data on a disk or a tape cannot be “read” as one reads a book, a line on a 
terminal, or a printed report, that is, data is stored on tape or disk as mag- 
netized bits that cannot be seen by the naked eye. 

Label records, then, are usually created as the first and last records of a tape 
or disk to provide identifying information about the file.! Since the data ona 
tape or disk is not visible, these label records will provide a check to see if 
the correct file is being used for a specific program. Labels are created on 
output files so that, when the same file is later read as input, the labels may 
be checked. That is, labels are created on output files and checked on input 
files. The COBOL compiler will supply the routine for writing labels on output 
files or for checking labels on input files if the following entry is denoted as 
one of the File Description entries: 


LABEL RECORDS ARE STANDARD 


This clause signifies two things: 


1. The first record on a tape or disk file will be a standard 80-position 
header label identifying the file to the system; similarly, the last record 
will be a trailer label. 

2. With input files, these labels will be computer-checked; with output 
files, they will be computer-created. 


' See Appendix B for a full description of magnetic tape features; see Chapter 23 for a full description 
of magnetic disk features, 


68 


Example 1 


AN OVERVIEW OF COBOL 


Although no further COBOL statements are necessary to perform the label 
routines, typically a job control statement must be supplied when executing 
the program. This job control statement contains the information that should 
appear on the labels.” 

The clause LABEL RECORDS ARE STANDARD is permitted only for tape or 
disk files. Unit-record devices such as a printer or terminal do not use label 
records, since identifying information is unnecessary where data is visible to 
the human eye. For unit-record files, then, the following entry is required: 


LABEL RECORDS ARE OMITTED 


Similarly, a tape or disk file may sometimes include the entry LABEL RECORDS 
ARE OMITTED when checking for correct files is unnecessary. In that case, 
label records will be neither created nor checked. If an output file is created 
with standard labels, the clause LABEL RECORDS ARE STANDARD must also 
be designated when that file is read as input at some later date. 

The LABEL RECORD(S) clause itself is a required entry for each file. We 
will generally indicate STANDARD labels for tape or disk files. The clause LABEL 
RECORDS ARE OMITTED must be used for unit-record files. 


A card or print file called EMPLOYEE-FILE would include the following: 


28 32 36 40 aa co “82 56 30 oa 38 7) 


PRLERRRD Hine ae aan 


Example 2 


CEH 


A tape or direct-access file called INVENTORY -FILE would include the following: 


2 Ev 40, cy a8 a 6, 64, 8. 7 


MaRS ane 8 


Format 


Sra asreEUUseAT LLELLaaEt 


2. RECORD CONTAINS Clause—Optional 


The RECORD CONTAINS clause indicates the size of each record. A print 
file, for example, may have the following entry: 


RECORD CONTAINS 133 CHARACTERS | 


The clause RECORD 133 could be used instead since CONTAINS and CHARAC- 
TERS are optional, but the above entry is more user-friendly. 

You will recall that printers have differing numbers of characters per line— 
80, 100, 120, and 132 are common. We will typically use 132 characters per 
line. For 132-character printers, we establish our records as 133, to allow one 
extra position for carriage control, which provides for the movement of the 
paper as a line is printed. On many systems, the first or leftmost position in 
these 133-position print records is typically the carriage control position and 
is not actually printed. Thus, positions 2-133 of the record represent the data 
that will be printed and position 1 is used by the printer for spacing of the 
form. 


2 See Appendix D. 
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A card file will have the following entry: 


RECORD CONTAINS 80 CHARACTERS 


Data entered on a terminal is typically specified with the clause RECORD 
CONTAINS 86 CHARACTERS, although the number of characters will depend 
on how many characters can be stored on one line of the specific terminal. 

For tape or direct-access files, the RECORD CONTAINS clause varies. One of 
the advantages of storing data on these files is that records can be any size. 

The RECORD CONTAINS clause in the File Description entry is optional. 
However, it is advisable to include it, since it provides a check on record size. 
For example, if the RECORD CONTAINS clause indicates 80 CHARACTERS in 
the record, but inadvertently the PICTURE clauses specify only 79 characters, 
a syntax error will occur during the compilation. If the RECORD CONTAINS 
clause were not included, however, the failure to account for the 80th position 
in the record would not be detected until the program is actually run. 


Example 3 An Fp entry for a tape file called SALES-FILE with 80-character records may be: 


co 7p 


6 20 Fr 26 2 36 40 a a8 R 56 


FIL | i ee (aa 


i. CLL 
ra amaaeatam TT TTT EH 


Example 4 An Fo entry for a disk file called PERSONNEL-FILE with 150-character records may 


be: 
R 16 20. a AT 1 re 32 il AO f ‘i 48 | 56 60 64 68 72] 
B Na RE} STANDARD | | 1 
REGORD, CONTAINS. 18@™chanacrRs 1-1/1 | 


3. BLOCK CONTAINS Clause—Optional? 


Format 


The BLOCK CONTAINS clause is only included in the File Description entry 
for files in which tape or disk records have been blocked. Blocking is a tech- 
nique that increases the speed of input/output operations and makes more 
effective use of storage space on disk and tape (see Appendix B). A specific 
number of logical records are included within one block to maximize the 
efficient use of a disk or tape area. 

It is sometimes not the programmer’s task to ascertain the most beneficial 
blocking factor; he or she may obtain this information from a systems analyst. 

Note that even though a disk or tape file may be blocked, the program 
processes records in the standard way. 

By indicating the number of records in a block for an input disk or tape, 
the computer is able to read the correct block. Similarly, by indicating BLOCK 
CONTAINS for an output disk or tape, the computer is able to create the correct 
block of records. Thus the BLOCK CONTAINS clause of a disk or tape file is 
the only entry required to perform operations on blocked data. No additional. 
COBOL statements are necessary. 


* The BLOCK CONTAINS entry is frequently unnecessary or designated as BLOCK CONTAINS © since 
the job control statements can be used for indicating a blocking factor. 
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When blocking of records is not required, as with unit-record files and un- 
blocked tape or disk files, the BLOCK CONTAINS clause itself is omitted. 


4, DATA RECORD(S) Clause—Optional 


(eee | 


The DATA RECORD(S) clause identifies the record formats within the file. 
If there is only one record layout, DATA RECORD 1S record-name may be used. 
Any record-name may be specified. The name, however, must conform to the 
rules for forming programmer-supplied data-names. A record-name must also 
be unique. That is, a name that appears as a file or record-name may not be 
used for any other item in the program. The DATA RECORD(S) clause serves 
as a dc cumentation entry, since all it does is name the record formats. 

If more than one record format exists for a file, you may specify DATA 
RECORDS ARE record-name-1 record-name-2 .... Note that while DATA RECORDS 
ARE ... specifies more than one format for the file, additional storage is not 
reserved, Specifying several record formats for one file does not set up extra 
I/O areas; it merely redefines a single input or output area in several ways. 


After all clauses within the FD are coded, place a period at the end. Note 
that no other period will appear in the FD. Recall that the LABEL RECORD(S) 
clause is the only clause that is always required within an FD. The BLOCK 
CONTAINS clause may be required if disk or tape records are blocked. 


Example 5 The following is a description of a file that will be entered on a terminal and will 
contain employee records: 


a 
F HH 


OVEE-REC. a 


Example 6 The following is a description of a disk file containing transaction credit records and 
transaction debit records. Record size is 50, block size is 20: 


ia 
saul ut 4 H 


The four clauses discussed are the most commonly used entries in the FD, 
but they are not the only ones. For most applications in COBOL, they are 
quite adequate. Table 5.1 provides a summary of these clauses. 


1 ololo 
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EMPLOYEE-REC 


Clause Entries Optional or Required Use 
LABEL RECORD(S) [1s OMITTED Required STANDARD is specified if 
[ARE | [STANDARD header and trailer labels 
are used on tape or disk; 
OMITTED is used for unit- 
record files 
RECORD CONTAINS Integer) CHARACTERS Optional Indicates the number of 
characters in the record 
BLOCK CONTAINS Integer) RECORDS Optional (required if disk or Indicates blocking factor for 
tape records are blocked) tape or disk 
DATA RECORD(S) [1s Optional Indicates the name of each 
-name(s, ‘ 
fA tecord-name(s]| record in the file 
Table 5.1 


Summary of FD entries 


RULES FOR CODING FILE DESCRIPTION ENTRIES 


1. FD is coded in Area A. 

2. All other entries are coded in Area B. 

3. No period is coded until the last clause has been specified. 

4, Commas are always optional in a program to separate clauses. 

5. If commas are used, they must be followed by at least one blank. 

6. Each clause may appear on a separate line or the clauses may be 
coded in paragraph form (see Figure 5.1). We will use one clause per 
line for clarity and ease of debugging. 

7. The only clause always required in the FD is a LABEL RECORD(S) 
clause, The BLOCK CONTAINS clause may also be required if disk or 
tape records are blocked. 


7 @ ie 20 


HAO Pavigouil 


FD | TRANSACTION-FIL “L|IRECORDS [ARE STANDARD, RECOR i 
| ca " The caaadctens, BI och CONTAINS 20, RECORDS, Od 
TT iReddaos ARE | DEBIT, TRANS-CREDIT. 
cet iF Te Tor i 
TRANS-DEBIT and Je [| _ 
TRANS-CREDIT aif 
Figure 5.1 


File Description entries coded 
in paragraph form. 


The word 18 or ARE in any COBOL statement may be omitted. To say, 
LABEL RECORDS STANDARD, for example, is entirely appropriate. You will see 
from the instruction format that the words 1s and ARE are not underlined, 
which indicates that they may be omitted. 

Last, the order of the clauses within the FD is not significant. Any clause 
may appear first in an FD entry. 
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Example 7 The following is a correctly coded File Description specification, even though the 


sequence of clauses is not the same as described above. 


a8 Ed 56 


Strtiset it 
SHeHHEEEU aaa 


Self-Evaluating Quiz 


17. 


. The four clauses that may be used with an FD entry are 


The DATA DIVISION is the part of a COBOL program that —____. 
The two primary sections of a DATA DIVISION are the ___— and the 


The FILE SECTION defines all data areas that are 


. The first time a file-name appears in a COBOL program is in a _______ statement 
of the ___-_ DIVISION, 
Filenames must be from one to (no.} characters in length, contain at least one 
, and have no a 
. FILE 1 is not a valid file-name because it 


File-names (must, need not) be unique. 


For every file defined in a SELECT statement, there will be one ______ entry in 
the FILE SECTION. 


, and 


. For unit-record devices, LABEL RECORDS ARE 
| When LABEL RECORDS ARE STANDARD is specified, theiten and trailer labels will 


be ________ on input files and ________ on output files. 


| The LABEL RECORD(S) clause is (optional, required). 

. The RECORD CONTAINS clause is (optional, required). 

| The BLOCK CONTAINS clause is only used for —____. 

| The DATA RECORD(S) clause is (optional, required) and defines the —__—. 

_ Write an FD entry for a sales file on a tape, blocked 20 with 100-position records 


and standard labels; one record format exists. 


Write an FD entry for an error report to be printed with a heading line and detail 
records. (Note that HEADING and DETAIL are reserved words. 


Make corrections to the DATA DIVISION entries in Questions 18 and 19. 


18. 
78 i 16 4 2 32 36 40 rn a8 2 2 0. wu co 7 
| | [| al | ial 
| He L | | 
(Fin | | [ttt | | 
| | 
LH 
DATA RECORD y Caste tOaETLGRRELGGRTSGRLGGRE 
19, 
ts i 16 20 rn 8 2 36 0 7 a @ 6 0 mo oy 7a 
FOL FILET] [ : an 
tit aac | | | 
HH | HHA FH 
20. Which clause is required in an FD? 
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Solutions 1. defines and describes data fields in storage 

2. FILE SECTION; WORKING-STORAGE SECTION 

3. part of input or output 

4. SELECT; ENVIRONMENT 

5, 30; alphabetic character; special characters (except -} 
6. contains an embedded blank 

7. must 

8. FD 

9, LABEL RECORD(S); RECORD CONTAINS, BLOCK CONTAINS; DATA RECORD(S) 
10. OMITTED 

11. checked; created 
12. required 

13. optional 

14. blocked tape or disk files 

15. optional, name of records within the file 


16. 
10. 4 24 28. = 32 36. 40. cry 48 te 56. cy 64 6 72) 
ALIEIS|-TFIMWEL | {11 | {| | 
ABE|L| REICORDIS| (AIRE STANDARD | a i | 
RECORD CONTAINS! |i CHARACTERS | | {|||} i | na 
IBLIOCIK [CONITIAIIINS| [216 RECORDS | [ [| 
ialTia| RECORD! |rs| Rell] ||} | | PTT [ Cy 


cre a 
NERTMREE RABINE LENE: -DETAYCELONESTTL Ct FLEPEET 


18. No hyphen between FILE and SECTION. 
Period after all section names. 
No period after FD SALES~FILE. 
LABEL clause should read LABEL RECORDS ARE OMITTED (assuming that it does 
not have any labels). 
A period is required after the last clause. 


Corrected entry: 


ZITO | 


Wom 
Ee) 
iw 
Cee) 
= 
i 
S 
eit 
— 
4 
4 
m 
ws 
| 
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19. PRINT REC may not have an embedded blank. 
File Description entries must end with period. 
A LABEL RECORD(S) clause must be coded. 


Corrected entry: 


[TF BRI a ik a . ED 
aiane CORDS F | T 

{|| | REC ON iS. Bi CHARAC 
[| DATA RECORD IIs PRINT 


Figure 5.2 

The relationship between 
SELECT, FD, 01, and field en- 
tries. 


20. LABEL RECORD(S) 


B. Record Description Entries 


1. Level Numbers 
After a file is described by an FD, record description entries for each record 
within the file follow. A record description is required for each record in the 
FD. The record description specifies the format of a record. Record description 
entries indicate: 

1. What items appear in the record. 

2. The order in which they appear. 

3. How these items are related to one another. 


Just as the file-name is specified on the FD level, a record-name is coded on 


the 01 level (see Figure 5.2). 


SELECT Names a file and assigns it to 


the hardware device that will 
contain each file 


Describes the file 


FD ——.@_—<—__)»> 


01 Names the record format 
ee rrrnormat ly 


02-49 Describes the fields within a mn 
record format 
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Examine the following illustrations. 


Example 1 
78 {iz 16. 2 24 28 2 3 10 ny a8 86 co cH 7 
FID TRAINSAICTTON-IFITLIEL_ | | ] i 
SANTEE Cugeh ne AR st D Co [ in | 
ECORD |C IINS | | 


fe} 
WD! 


wt 


| \ 4 Cla 4 + L| a tH {| 
| BILIOICIK_|CONT! ‘a hil 
Dara RECoRD et RR cd, BREA. COPA 
Le iC REC t Hl || t 1 al 
i‘ Entries to be discussed if ri H a ql | 
s | ia || a | [| eee 
D 


|e ES 


| 
| | + 
Entries to be discussed 

(i se He 


[ 
apo {+} 7 a} 
TH rH HH tT ERECT 


Each FD must be followed by record description entries for the file. We have 
observed that records are defined on the 01 level. We now indicate what fields 
are contained in each record of the file and how the items are organized. 

Data is grouped in COBOL using the concept of a level. Records are con- 
sidered the highest level of data in a file and thus are coded on the 01 level. 
Any field of data within the record is coded on a level subordinate to 01, that 
is, 02, 03, and so on. Any level number between 02 and 49 may be used to 
describe data fields within a record. 


a 
= 


at tee at 


Example 3 Let us examine the following record layout: 
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The record description entries following the FD may be as follows: 


PEE EE 


The name of the record, ENPLOYEE-REC, is coded on the 01 level, which is 
an Area A entry. All fields within the record are coded on any level between 
02 and 49, anywhere in Area B. By specifying these fields on the 05 level, two 
facts are established. 


1. All fields on the 05 level are subordinate to, or part of, the 01 level 
entry. 


2. All fields that are coded on the same level, 05 in this example, are 
independent items; that is, they are not subordinate to one another, 


Thus, NAME, ANN-SALARY, and JOB-DESCRIPTION are fields within 
EMPLOYEE-REC, and each is independent of the others. 

We use 05 rather than 02 to define fields within a record in case we wish 
to provide additional levels between 01 and the level specified. That is, if 
NAME and ANN-SALARY are later to be part of a field called MAJOR, we could 
easily modify our coding as follows, without changing the existing level num- 
bers: 


Ol EMPLOYEE-REC, 
O03 MAJOR. 
OS NAME 
95 ANN-SALARY 
03 JOB-DESCRIPTION 


In general, we will use 05 as the level of fields that are subdivisions of 01. 
Let us redefine this input: 


In this case, all fields are not independent of one another, as in the preceding 
input layout; that is, a field may be subordinate to, or contained within, an- 
other field in a record. INITIALi, INITIAL2, and LAST-NAME, for example, 
may be fields within NAME, which itself is contained within a record, INITI ALI, 
INITIAL2, and LAST-NAME, then, would be coded on a level subordinate to 
NAME. If NAME were specified on level 05, INITIAL1, INITIAL2, and LAST- 
NAME could each be specified on level 06, 07, etc. To allow for possible inser- 
tions later on, we will use 10 for the level subordinate to 05. 
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Example 4 The record description for the preceding redefined input is as follows: 


Wvansys pyee- aa aneal 
TTT ols] NAME i 
CECE toy intr reir | 
Le he HIN L2 | 
CECE ol | alsiri- NAME 
Los! | AINN-ISALIAIRY [ 
o5|_| JOB-DESICRIIPITIIION 
COLLECT Mle | otolB- mit Tie 
| ite HRaaeSnT BGnRE 
| 4 = 
jt 1+ 
i i DUT, T rH 


There are three major fields within the record: NAME, 
JOB-DESCRIPTION, all coded on the 05 level. The NAME field is further sub- 


divid 


ANN-SALARY, and 


ed into INITIAL1, INITIAL2, and LAST-NAME. These level 10 items are 


1 

contained within NAME. Similarly, JOB-TITLE and DUTIES are subdivisions 
of JOB-DESCRIPTION. JOB-TITLE is further subdivided into LEVEL and JOB- 
POS 


Z 


TI 


ON. 
ote that all fields are coded in Area B. Only the highest level of organi- 


zation, the record or 01 level, is coded in Area A. Note also the indentation 
of subordinate levels. While this indentation is not required by the compiler, 
it does make the lines easier to read. Using this method, the fact that INITIAL1, 
INT 

Names used to define fields, like the names of records and files, must con- 
form to the rules for establishing programmer-supplied data-names: 


IAL2, and LAST-NAME are contained within NAME is quite clear. 


AnPfonwre 


PROGRAMMER-SUPPLIED DATA-NAMES 


. From | to 30 characters. 
. No special characters except a hyphen. 
. No embedded blanks. 


At least one alphabetic character. 


. No COBOL reserved words. 
. The name used should be meaningful. 


Level numbers may vary from 02 to 49 for fields of data. As we have seen, 


level 


numbers need not be consecutive. Frequently, we use 05, 10, 15, and so 


on, as level numbers so that other level numbers can be inserted later on if 


the need arises. The following, however, are also valid entries: 


28 


RB 36, 40, coy oy 2 id 60 coy cr P| 


TRE} 


eee 


f 1 


This is another illustration of a FILE SECTION where level numbers are not 
consecutive. Note that MONTH and YEAR, on the 07 level, are contained within 
DATE-OF-HIRE, on the 93 level. 
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Consecutive level numbers can also be used if desired: 


OL REC-A, 
O2 DATE-OF-HIRE 
03 MONTH 
03 YEAR 
O02 NAME 
Observe t 


he following invalid illustration: 


co 


Ht 


Hit 


att ||| 


HEH 


Inaccurate level number 


This entry is 
in LAST-NA 


HA 


independent subdivisions of NA 
To place them both on the 03, 04, or 05 level would have been accurate, 

The order in which fields are placed within the record is crucial. If NAME is 
the first item specified within DISK-REC, this implies that NAME is the first 
data field in the record. 

A field that is not further subdivided is called an elementary item. A field 
that is further subdivided is called a group item. In Example 4, NAME is a group 
item that is subdivided into three elementary items, INITIAL1, INITIAL2, 
and LAST-NAME. ANN-SALARY, on the same level as NAME, is an elementary 
item since it is not further subdivided. 

All elementary items must be additionally described with a PICTURE clause 


H+ 


ro 


not correct. It implies that FIRST-NANE, an 05 item, is contained 
E, an 03 item. To 


indicate that LAST-NAME and FIRST-NAME are 
E, they both must be coded on the same level. 


that indicates the size and type of the field. A group item needs no further 
specification and ends with a period. Thus we have, for example: 


z 16 2 2a 2 7 ca 20 cn 8 2 6 w wa m7 A 
| TAPE-Re, HAREAERETEESGUAT AER SETATATEEITEAETEINETE 
| | —| 
r u —| in| || (entry required) | rH | ] | | | 
CCEA Ti eels erin eve FLLEEEEEEE LLL 
int (0) C N- (entry required) | | | | | 
| - OF - S N. | | | | | 

[I a 1 (entry required) | H | | 
| I (ent jired) 
root 9 HH rH ! a | 1 


Note that there is a period at the end of each group item in this illustration, 
Elementary items require further description with a PICTURE clause. We treat 
the record entry, on the 01 level, as a group item, since it is, in fact, a data 


element that is further subdivided. 


Self-Evaluating Quiz 


All records are coded on the 


dx 

2. Levels 

3. An 03 level item may be subordinate to an 
4, 


through 


level. 
may be used to represent fields within a record. 


level item if it exists. 


What, if anything, is wrong with the following field names: 
(a) CUSTOMER NAME 
(b) TAX% 
(c) DATA 
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5, An elementary item is defined as ___—_, and a group item is defined as 

6. The level number 01 is coded in Area ; level numbers 02-49 are coded 
in Area ——_____. 

7, Write record description entries for the following in so far as you are able: 


TRANSACTION RECORD 


OL 
. 02; 49 
. 02 (or O14) 
. (a) No embedded blanks allowed (CUSTOMER -NAME would be okay). 
(b) No special characters other than the hyphen are permitted; % is not valid. 
(c) DATA is a COBOL reserved word, 
5. one that is not further subdivided, one that is further subdivided 


Solutions 


il 
2 
3 
4. 


6. A)B 


a8 B2 cy 0 cy 


Fi ‘ate a a SEABED 
ELEC HEHE HECHT ce 
HEH 


HAHGLTGGHERHR CEH 

PECL EEE EEEEECEE CCE Cet 
(TION. [tI | 
: tH 

LT HH MTT 


TG UG a al 3 a earth ea 


_ 


Note: Periods follow group items only, Elementary items will contain PICTURE 
clauses as specified in the next section. 


2. PICTURE (PIC) Clauses 

Group items are defined by a level number, a name, and a period. Elementary 
items are those fields that are not further subdivided but must be described 
in detail with a PICTURE clause: 


FUNCTIONS OF THE PICTURE CLAUSE 


1. To specify the type of data contained within an elementary item. 
2. To indicate the size of the field. 
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A PICTURE clause associated with an elementary item will describe the 
type and size of data in that elementary item. 


(a) Types of Data Fields There are three types of data fields. 


TYPES OF DATA FIELDS 
1. Alphabetic 
A field that may contain only letters or blanks is classified as alpha- 


betic. A name field or an item description field can be considered 
alphabetic. 


2. Alphanumeric 
A field that may contain any character is considered alphanumeric. 
An address field, for example, would be classified as alphanumeric 


(or alphameric}, since it may contain letters, digits, blanks, and/or 
special characters. 


3. Numeric 


Any signed or unsigned field that will contain digits only is consid- 
ered numeric. 


To denote the type of data within an elementary field, a PICTURE clause 
will contain: 


CHARACTERS USED IN PICTURE CLAUSES 
4 for alphabetic 
x for alphanumeric 
9 for numeric 


Generally, we use 9’s for numeric fields to be used in arithmetic operations, 
and x’s for nonnumeric fields; that is, we will avoid the use of 4’s. Since 
nonnumeric fields are all represented the same way internally in the computer, 
we will follow the convention of designating each such item (e.g., NAME-IN, 
ADDRESS-IN, etc.) with a PICTURE of X's, 


(b) Size of Data Fields We denote the size of a field by the number of A’s, 
X's, or 9’s used in the PICTURE clause. For example, consider the following: 


| 95 AMT PICTURE IS 99999, ] 


ANT is a five-position elementary item consisting of numeric data. The entry: 


OS ITEML PICTURE XXXx, | 


defines a four-position storage area called 1TEM1 that will contain alpha- 
numeric data; that is, it can contain any character. 
Observe the following entries: 


Ol REC-1. 
OS ITEML PICTURE XXxXx, 
03 AMT PICTURE 99999. 


OS CODEX PICTURE KX, 
ITEM1 is the first field in the record. If REC-1 defined a card record, columns 
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1-4 would represent the field called 1TEM1. AMT, as the second entry specified, 
would describe the next field of data in columns 5-9. Thus, the five positions 
directly following 1TEM1 would represent the field called AMT. 

If a field is numeric, its PICTURE clause will contain 9’s; if a field is alpha- 
betic, its PICTURE clause can contain all 4’s; if a field may contain any char- 
acter or combination of digits, letters, and special symbols, it is defined with 
4 PICTURE of X’s. Numeric fields may contain a maximum of 18 digits. Thus 
a PICTURE clause of 9(20), for example, is typically invalid unless the com- 
piler permits it through an enhancement.* 

The following is acceptable to denote a 10-position alphanumeric field: 


OS NAME PICTURE IS K(10). 


Parentheses may be used to designate the size of the field, rather than 10 
ws. The word 18 in the PICTURE clause is optional, as in all COBOL state- 
ments. A period will follow each PICTURE clause. The abbreviation PIC may 
be used in place of PICTURE. Thus, the above field may be defined as: 


O5 NAME PIC X(10)s 


(c) A Matter of Style Some organizations prefer a format whereby all PIC 
clauses are specified as x(n}, 9(nn), or (nn), where nn indicates the number 
of characters. In this way it is easier to read the record description entries 
because they are all properly aligned as in the following: 


O1 REC-1+ 
OS ITEM PIC A(O4). 
oS AMT PIC 9(05)5 
OS CODEX PIC X(02), 


In this text, we will simply align PIC clauses for ease of reading. 


(d) Format of P1c Clauses Group items are those fields that are further 
subdivided and are coded without PICTURE clauses. Elementary items require 
4 PICTURE clause, which denotes the size of a field and its type, that is, the 
type of data it will contain. 

Consider the following record layout: 


1. 328 20 21 25 26 45 46 50 51 54 55 80 


4 There is no such limitation in the 1968 version of ANS COBOL. 
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Its record description entry could appear as follows: 


The PICTURE clause may appear anywhere on the line following the data- 
name. As noted, for purposes of clarity, we will place each PICTURE clause in 
the same position on the line; this is not, however, required. At least one 
space must follow the word PICTURE. All 4’s, X’s, or 9/s must appear con- 
secutively with no spaces between these characters. Similarly, if parentheses 
are used to denote the size of a field, no spaces may appear within the clause. 
The following entries are invalid: 


HH 


Invalid entries 7 
Note the arrows) 


PPPEECUELEEETCEEEEEEEE PEPE EE 


The PICTURE clauses in a record description entry should, in total, yield 
he number of characters in the record. Thus, if CREDIT-CARD-ACCT is a disk 
ecord consisting of 80 characters, all PICTURE clauses on the elementary level 
should total 80 positions of storage. 

As noted, the A specification is rarely used in actual practice. The x spec- 
ification can encompass alphabetic data and is usually used to represent all 
nonnumeric data. Thus, we will code x’s in a PICTURE clause for any field 
not used in arithmetic operations. 


52 cy 0 cy cr) 7 


i 


—— 


Rot, 


3. Use of FILLERs in Record Description Entries 
Examine the following record layout: 


SAMPLE RECORD LAYOUT 


1-25 EMPLOYEE-NAME 
26-30 not used 
31-35 HOURS-WORKED 
36-80 not used 


Record positions 26-30 and 36-80 may contain data, but it is not pertinent 
to the processing of our program. These areas, however, must be included as 
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fields in the record description entry. Note that the following is not correct 
coding for this sample layout: 
O1 EMPLOYEE-REC. 
OS EMPLOYEE-NQME PICTURE A(Z5)+ 
05 HOURS-WORKED PICTURE 9(5). 


The above record description entries cause two major errors: 


1. The computer will assume that HOURS-WORKED immediately follows 
EMPLOYEE-NAME, since it is the next designated field. A READ command, 
then, would place record positions 26-30, not 31-35, in the storage area 
called HOURS-WORKED. 

2. The PICTURE clauses should account for 80 positions of storage. Instead, 


only 30 positions have been defined. 
Thus, the preceding is incorrect and could be coded instead as: 
28 32 36. A0 44 48 82 56 60 = 64 98 72) 
AME! | | lpiricl lac | q 
LL Ipi BAP [i {I | f | 
Ipiricl Iida. || ttt | TO 
ED IPtlcl \4.c\51> |. +H | | +H 
pac basny FTE FLEE 
There is a COBOL reserved word called FILLER used to denote fields of data 
that will not be specifically referenced in the program. FILLER may be speci- 


fied instead of data-names such as UNUSED1 and UNUSED2. A FILLER with an 
appropriate PICTURE clause designates an area set aside for some part of a 
record that will not be individually referenced in the PROCEDURE DIVISION. 
That is, FILLER may not be accessed in the PROCEDURE DIVISION. To say: 
OVE FILLER TO OUT-AREA, for example, is invalid. The use of FILLER is 
the programmer's way of indicating that the field will not be accessed in this 
program, Thus, our record description entry could be coded as: 


tte {iz 16 20 2 28 @ 36 10 a we 2 36 0 @ @ 7 
ial | REC. PT emR TREAT 

| - IP AS IE See) \| + 

| | 

att Ht 
| | j 

Y | rt i 


LX 


rT ry 


Except for the COBOL reserved word FILLER, we will not use the same 
name for different fields. As we have seen, a record or a file-name must never 
be used more than once in the DATA DIVISION but field-names need not be 
unique; to simplify our programs, however, we will keep all data-names unique. 
We will see in Chapter 7 that the same data-name may be used to define 
several fields if it is properly qualified. 


4, Summary of PIC Specifications 
In general, a field is denoted as numeric, with a PICTURE of 9’s, when an 
arithmetic operation is to be performed. When a field is so designated, the 
data in the area may consist of digits and a sign only. A space, for example, 
is not a valid character in a numeric field. Thus, if a field is denoted as nu- 
meric, it must contain only valid numeric characters. 

An alphanumeric field may contain any data, including all numbers. Thus 


123 in FLDA, where FLDA has PIC XXX, is acceptable. FLDA, however, with a 
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PIC of XXX may not be used in arithmetic operations. This is because only 
fields with numeric PICTURE clauses may be used in computations. In short, 
then, fields that are to be part of calculations must be defined with a PICTURE 
of 9’s; all other fields will be coded with a PICTURE of ¥’s. 


5. The Use of the Implied Decimal Point in PIC Clauses 
Because numeric fields are used in arithmetic operations, their PICTURE clauses 
may use entries in addition to the basic 9. Most of these will be discussed 
later, since they are necessary only in more advanced COBOL programs. The 
symbol ¥, however, which denotes an implied decimal, will be discussed here 
because of its widespread use, even in elementary COBOL programs. 
Suppose a five-position amount field with contents 10000 is to be inter- 
preted as 100.00. That is, the computer is to “assume” that a decimal point 
exists. The data is five positions, and there is no decimal point within the 
field, but we want the computer to assume its existence. When calculations 
are performed on the amount field, the computer is to assume the data has 
three integer positions and two decimal positions. Its PICTURE clause, then, 
is: 


95 AMT PICTURE 999y99, 


Note that V does not occupy a storage position. AMT is stored as five posi- 
tions. The means that the field has three integer and two decimal positions, 
If 38726 is read into the area, it will be interpreted as 387.26. All arithmetic 
operations will function properly with decimal alignment when we specify 
the PIC as 999yg9. 


6, Summary of Record Description Entries 
In summary, for every record specified in the DATA RECORD(S) clause of the 
FD, an 01 level and its corresponding entries must be included. 

All records within an FD are coded before the next FD is defined. The DATA 
DIVISION in Figure 5.3 shows the sequence in which entries are coded. 
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COBOL Program Sheet 


System Punching Instructions | Sheet =. —- 
oa en int tt 
Sevens lel a 
TET He aR CeETE ee Fe 

“pC PIRD | ACC TS-RECELVABLE-FIL Co 

lf ABEL! RECORDS (ARE OMITTED. L 

als RECORD ICONTAINS 80 GHA i : a 

SORE DAM bai ARE [DEBIT-REC | \CREDIT-REC 

o|7 | a] 

ofp nl CUS “NA PIC |. 

ols (05 | IADDRESS-1)_ BIIC a) 

‘[p “105 |AMTOF - DEBIT PII] 199999. 

CE TU RTOROA( Rc BNAE Tee 

a 5 

ol iOd Peent Cl. | nk r TT 

a00 5 NAME! | || PIC C2). 

PEELE @5_[AMT-0F-(CREDI PIC 1999V99. | 

ifs FaL ER BIC C54). [ a 

LET LL CODE-2 PIC. (9. (a | 

lel TAD coe ILE | [ 

a0 LABEL! [RECORDS |Al STANDARD 

io IRECORD [CONTAINS [25 C ARAC ERS, | 

Hou BAA RECORD TS REC-OUT|. 
C 05 | NAME-OUT| Bre M20) | 
[L 5 | AMT|<OF TRANS TC 9qgqV9q. 
Figure 5.3 
Sample DATA DIVISION 
entries. 7, Multiple Record Formats Within a File 


The input file called ACCTS-RECEIVABLE-FILE in Figure 5.3 has two records. 
Assume that the debit record has a 1 in record position 80, and the credit 
record has a 2 in record position 80. The computer establishes only one input 
area for each file. When a record is read, the computer must be instructed as 
to whether it is a debit or credit record. That is, do we move AMT-OF -DEBIT 
or AMT-OF-CREDIT to the output record? We must check record position 80 
to determine if the record is a credit or a debit. If, for example, CODE~-1 (po- 
sition 80 of the incoming record) is equal to 1, then we can treat this record 
as a debit record and move AMT-OF -DEBIT to the output area. This test and 
data transfer operation is performed in the PROCEDURE DIVISION as follows: 


IF CODE-1 = 1 
MOVE AMT-OF-~DEBIT TO AMT-OF-~TRANS, 


If CODE-1 (record position 80) is not equal to 1, then CODE-2 (record position 
80 of the same record) should equal 2, designating this record as a credit record. 

Thus, we can see that an input record is placed in an input area. If there is 
more than one record format in a file, a code is usually included to determine 
the type of record being processed and the record format to be used. 
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Il. The WORKING-STORAGE SECTION: An Overview 


The following discussion provides an introduction to the WORK ING-STORAGE 
SECTION of the DATA DIVISION. Chapter 8 gives a more detailed account. 

Any field needed for processing that is not part of input or output may be 
defined in the WORKING-STORAGE SECTION. For example, if an end-of-job in- 
dicator field is to be initialized with a value of 0 and changed to 1 only when 
the last record has been read, we can define that field in the WORK ING-STOR- 
AGE SECTION. If some intermediate total areas are necessary for processing, 
they, too, may be defined in this section. If we want to count occurrences of 
a specific condition, we can define a counter in WORK ING-STORAGE. 


RULES FOR USING THE WORKING-STORAGE SECTION 
1. The WORKING-STORAGE SECTION follows all entries in the FILE 
SECTION. 


2. WORKING-STORAGE SECTION is coded on a line by itself, beginning 
in Area A and ending with a period: 


3. A group item that will be subdivided into individual storage areas 
as needed may then be defined. For example: 


WORKING-STORAGE SECTION, 
O1 STORED-AREAS, 


Group items may be part of records or coded on the 01 level them- 
selves. 


4. All necessary fields are then defined within an 01 level entry: 


WORKING-STORAGE SECTION. 
O1 STORED-AREAS. 
OS END-OF-FILE-SWITCH 
05 GROSS-AMT 


5. Names associated with group items and with elementary items 
must conform to the rules for forming data-names. 


6. Each independent elementary item must contain a PIC clause: 


WORKING-STORAGE SECTION, 
O1 STORED-AREAS, 
OS END-OF-FILE-SWITCH PIC 9, 
03 GROSS-AMT PIc g99yaqg, 


7. Each elementary item may contain an initial value, if desired: 


WORKING-STORAGE SECTION, 

O1 STORED-AREAS,. 
05 END-OF-FILE-SWITCH PIC 9 VALUE ZERO, 
OS GROSS-AMT PIC 989V99 VALUE 0, 


VALUE clauses for initializing fields may only be used in the WORK - 
ING-STORAGE SECTION, not in the FILE SECTION. Either figura- 
tive constants or literals may be used in VALUE clauses. 
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If the field called END-OF-FILE-SWITCH is to contain a 1 when no more 
input records exist, it may be used in the PROCEDURE DIVISION as follows: 


READ FILE-IN AT END MOVE 1 TO END-OF-FILE-SWITCH. 


END-OF-FILE-SWITCH is usually initialized at zero in the WORK ING-STOR- 
AGE SECTION. It remains at zero until there are no more input records to be 
processed, at which point a 1 is moved into the field. 

GROSS_ANT is an item that may be defined in WORK ING-STORAGE for storing 
an intermediate total. WORK ING-STORAGE entries may have VALUE clauses, 
but these are not required. 


CHAPTER SUMMARY 
A. FD Entries 

1. FD is coded in Area A; the file-name is coded in Area B. 

9. The filename must be the same name as in the SELECT statement. 

3. Only the LABEL RECORD(S) clause is required: LABEL RECORDS ARE 
OMITTED for card, print, and other files entered or displayed on a termi- 
nal, LABEL RECORDS ARE STANDARD is used for disk and tape files. 

4, BLOCK CONTAINS may also be required if disk or tape files are blocked. 
The format for this clause is: 


BLOCK CONTAINS integer RECORDS 
5. The other clauses that may be included are: 
RECORD CONTAINS integer CHARACTERS 


RECORD 18 | |, ‘ 
DATA bate ad record-name ... 


6. Each FD entry ends with a period after all the clauses have been coded. 
B. Record Description Entries 

1. Record-names are coded on the 01 level. 

9. Field-names are coded on levels 02-49. We will use 05, 10, 15, and so 
on to allow for insertions if they become necessary. 

3, Level 01 is coded in Area A; all other levels are coded in Area B. 

4, Items with higher-level numbers are considered subordinate to, that 
is, contained within, items with lower-level numbers. In the follow- 
ing, DEPT is contained within JOB-DESCRIPTION: 


02 JOB-DESCRIPTION 
o4 DEPT 


5. Asa matter of style, we indent subordinate items for clarity: 


02 JOB-DESCRIPTION 
04 DEPT 


6. Group items are further subdivided, elementary items are not. 
7. Only elementary items have PICTURE clauses to describe the data: 
x—alphanumeric 
A—alphabetic 
9—numeric 
y—implied decimal position (used only with numeric fields) 


8. Items must be defined in the DATA DIVISION in the same sequence 
as they appear in the record. 
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9. FILLER is a COBOL reserved word used to define areas within a 
record that are not referenced in the PROCEDURE DIVISION, 
10. A period must follow a PICTURE clause in 
riod directly follows a group item name. 


an elementary item; a pe- 


WORK ING-STORAGE entries will be described in more detail in Chapter 8. 


CHAPTER SELF-EVALUATING Quiz 


Solutions 


1. A PICTURE clause must be used in conjunction with each 


record description. 


NADA WH 


contains 


What, if anything, 
rately. 
8. O1 
05 
10 MONTH 
10 YEAR 
FIELDA 
FIELDB 


9. 08 
10. 04 


should, in total, equal 


12. The COBOL reserved word 


. A PICTURE clause specifies the 
. The three types of data fields are 
The characters that may be included in an alphabetic field are 

. The characters that may be included in an alphanumeric field are 
. The characters that may be included in a numeric data field are 
. An alphanumeric PICTURE clause contains 


and the 


of a data field. 


, and 


TRANSACTION-REC, 
DATE-OF-SALE PICTURE 9999, 
PICTURE 99, 

PICTURE 99, 

PICTURE 
PICTURE xX 
11. The sum of the x’s, 4’s, 


KK, 


(22), 


will not be used for processing. 
is used to denote an implied decimal point in an arithmetic 


13. The symbol 
field. 


7 


14. A PICTURE clause of 9¥9 indicates a (no. -position numeric data field. 


15. If a three-position tax field is to be inter 


be 
16. The 
17. 


contents of fields. 


item in a 


; an alphabetic PICTURE clause 
; 4a numeric PICTURE clause contains 


is wrong with the entries in Questions 8-10? Consider each sepa- 


or 9's in all the PICTURE clauses in a record description 


is used to denote an area of a record that 


preted as .XXX, its PICTURE clause should 


SECTION of the DATA DIVISION usually follows the FILE SECTION. 
WORKING-STORAGE entries may contain 


clauses to indicate the initial 


18. Is the use of level numbers in the following correct? Explain your answer. 


OL INREC, 

OS NAME-IN, 
07 LAST-NAME PIC 
07 FIRST-NAME PIC 
07 MIDDLE-NAME PIC 

0S ADDRESS-IN, 
10 STREET PIC 
10, CITY PIC 
10 STATE PIC 


1. elementary 
2. size; type 


3. alphabetic; numeric; alphanumeric 


K(10), 
K(10)4 
X(10), 


K(10), 
K(10)4 
XC10)4 


Page 
79 
79) 
80 
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4. letters and blanks 80 

5. any characters in the COBOL character set (letters, digits, and special sym- 80 
bols) 

6. digits, and a plus or minus sign 80 

7. X’s; 0's; 9's 80 

8. Group items, such as DATE-OF-SALE, should not have PICTURE clauses. 81 

9, Okay 81 


10. Should be: 04 FIELDB PICTURE X(22). There should be no space be- 82 
tween x and (. 


11. the number of positions in the record 82 
12.. FILLER 83 
13: ¥ 84 
14. two (the ¥ does not occupy a storage position) 84 
15, vaa9 84 
16. WORK ING-STORAGE 86 
17. VALUE 86 


18. Yes, although it is somewhat unusual. All level 07 items are contained within 77 
NAME-IN, and all level 10 items are contained within ADDRESS-IN. Thus, 
the same level number need not be used for all elementary items. In the first 
case, LAST-NAME with a level of 07 is an elementary item and, in the second 
case, STREET with a level number of 10 is also an elementary item. 


ey is 


BLOCK CONTAINS Header label 

Blocking LABEL RECORD(S) 

DATA DIVISION Level number 

DATA RECORD(S) PICTURE (PIC) 
Elementary item RECORD CONTAINS 

FD Trailer label 

FILE SECTION VALUE clause 

FILLER WORKING-STORAGE SECTION 


Group item 


REVIEW QUESTIONS 


IL. True-False Questions 
1, (T or F} There may be only one 01 level for a specific file. 


2. (T or F) The order in which fields are specified in a record description is not 
significant. 


3. (T or F} Group items must not have PICTURE clauses. 
4. (T or F) Elementary items may or may not have PICTURE clauses. 


5. (T or F) A FILLER is a COBOL reserved word that may be used in the DATA and 
PROCEDURE DIVISIONS. 


6. (T or F) A record name is assigned in the ENVIRONMENT DIVISION, 

7. (T or F) Two files may be assigned the same name in a COBOL program. 
8. (T or F) Levels 03, 08, 75 may be subordinate to a record level. 

9. (T or F) The WORKING-STORAGE SECTION follows the FILE SECTION. 


10. (T or F} Entries not part of input or output but necessary for processing are coded 
in the WORKING-STORAGE SECTION. 
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II. General Questions 
1. Which of the following entries are coded in Area A? 
(a) FD 
(b) FILE SECTION 
(c) o4 
(d) 03 
(e) LABEL RECORDS ARE OMITTED 
. Name the clauses that are required within an FD. 
Name the clauses that are optional within an FD. 
. Under what conditions is the BLOCK CONTAINS clause required? 
. State exactly what is meant by the PICTURE clause 99999999. 


. Which entries are coded in the FILE SECTION? Which are coded in the WORKING- 
STORAGE SECTION? 


7. What are the rules for forming data-names? 


8. How many characters should be included in the PICTURE clauses used to describe 
a card record? 


9. Correct the following DATA DIVISION: 


AnRon 


8 12 16 24 28 32 4 44 4B 52 56 60 84 72) 
ia 
PH 
9999. | 
OX 
LT 
A\cid'5') 
A\A\A [| 
TIURIE! Ixixl.I | 
CCC 
oy 
10. Consider the following pictorial description of a record called PURCHASE-ORDER. 


Code the record description entries for it. 


Fe 


ss 


Boao 


Ee) ae 5D 


Z| 

: 

= 
zai 


a 
: 
- 
= 
3 
: 


PURCHASE-ORDER ACCT-NO 


CATEGORY 


CREDIT-RATING 


ACTIVITY-CODE 


TRANSACTION-DATA 


NAME 
VENDOR-NUMBER 
TRANSACTION-STAT DATE-OF-TRANS 
AMT 


15 


i < i=} = 
| ii 
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Ee | PROGRAMMING ASSIGNMENTS 


1. Write the Fp and record description entries necessary for an inventory file with the 
following record format. The inventory file will be on magnetic tape with standard 
labels and a blocking factor of 20. 


1112 16 17 


50 51 55 56 62 63 67 68 


(Unless otherwise noted, fields are numeric) 
XXX.XX denotes a PICTURE clause of 999V99 


9. Write the Fb and record description entries for the following purchase record: 


Positions 
Field to Right of 
Item Description Field Type Size Decimal Point 
nia iiininleanniiEee | 

Name of item Alphabetic 20 _ 
Date of order Numeric 6 0 
(month, day, year) 

Purchase order number Numeric 5 0 
Inventory group Alphanumeric 10 _ 
Number of units Numeric 5 0 
Cost per unit Numeric 4 0 
Freight charge Numeric 4 0 
Tax percent Numeric 2 2 


3. Write FD entries for the following card format: 


T 2 3 2021 4041 5051 6061 6364 6667 6970 7576 78 
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4. Write FD entries for a master tape file with the following two record formats. The 
master tape has standard labels and is blocked 10. 


Debit 
record 


25 26 3031 32 33 36 37 3839 40 


Credit 
record 


56 20 21 25 37 3839 40 


5. Write FD entries for the following file of records. The file is on magnetic tape. The 
tape has standard labels and is blocked 50. 


Type of account ° Alphanumeric 
5 positions 
Customer name ° Alphabetic 
Account 20 positions 
identification [Store no. ° Numeric 
Acct. 5 positions 
[no. [File no. es Numeric 
3 positions 
Yr. began ° Numeric 
2, positions 
Account Highest balance ° Numeric 4 integer 
history 6 positions 2 fractional 
ACCTS-RECV-REC (Date of last ° Numeric 
transaction 6 positions 
° Numeric 
| Last [Trans. no. 5 positions 
month <= ~~ Numeric 4 integer « 
parante 6 positions (3 | 
o Numeric 
| This [Trans me 5 positions 
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AN OVERVIEW OF COBOL 


OBJECTIVES 


To familiarize you with the methods used to: 
1. Provide access to input and output files. 

2. Read data from an input file. 

3. Perform simple move operations, 

4. Write information onto an output file. 

5. Accomplish specific end-of-job operations, 


6. Execute paragraphs from a main module and then return control to that 
main module. 


I. A Review of the First Three Divisions 


Thus far, three of the four divisions of a COBOL program have been discugsed 
in detail. The PROCEDURE DIVISION, the last to be studied, is unquestionably 
the most significant. The PROCEDURE DIVISION contains all the instructions 
to be executed by the computer. 

The IDENTIFICATION and ENVIRONMENT DIVISIONS supply information 
about the nature of the program and the specific equipment that will be used, 
The FILE SECTION of the DATA DIVISION defines, in detail, the input and 
output areas. The input area is storage reserved for one record from an input 
file. The output area is storage reserved for the data to be produced as output 
by the program. The WORKING-STORAGE SECTION of the DATA DIVISION is 
used for defining any areas not part of input and output but nonetheless re- 
quired for processing; these include work areas such as counters and end-of- 
file indicators, It is as a result of instructions in the PROCEDURE DIVISION, 
however, that data is read and processed and output information is produced. 

As we have seen, the first three divisions are fairly straightforward, it is the 
coding of the PROCEDURE DIVISION that is at the heart of programming. Since 
all instructions are written in the PROCEDURE DIVISI ON, the majority of chap- 
ters in this book will focus on these entries, 

In this chapter, we will consider simple instructions that access files, read 
data, move data from one area to another, produce output, and accomplish 
end-of-job functions. Knowledge of these types of instructions will be suffi- 
cient for writing elementary COBOL programs in their entirety. The PROCE- 
DURE DIVISION coding used in the book will illustrate the structured ap- 
proach to writing COBOL programs. 


ME |). The Format of the PROCEDURE DIVISION 


A. Paragraphs that Serve as Modules 


The PROCEDURE DIVISION is divided into paragraphs. Each paragraph consists 
of an independent module or routine that includes a series of instructions 
designed to perform a specific set of operations. 

Paragraph-names, like the PROCEDURE DIVISION entry itself, are coded in 
Area A. All other entries in the PROCEDURE DIVISION are coded in Area B. 
Paragraph-names, like the PROCEDURE DIVISION entry, end with a period. 

Rules for forming paragraph-names are the same as rules for forming data- 
names except that a paragraph-name can be all digits. Paragraph-names must 
be unique in a COBOL program. Thus, two paragraphs may not have the same 
name. Similarly, a data-name cannot also serve as a paragraph-name. 

In some organizations, paragraphs are designated with a descriptive name 
such as CALC-RTN, END-OF-JOB-RTN, or PRINT-RTN. In large programs where 
a PROCEDURE DIVISION may consist of numerous pages, sequential numbers 
that consist of page and line numbers are used along with or in place of de- 
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scriptive names. The numbers in a paragraph-name will make it easier to 
locate each paragraph, the descriptive paragraph-name also makes it easier to 
follow the logic. 

‘As a general rule, we will use descriptive paragraph-names such as CALC~- 
RTN throughout the first half of the text where programs tend to be relatively 
short. In the second half of the text, we will use a combination of page and 
line numbers along with descriptions for some paragraph-names as follows: 


Sequence No. COBOL Coding 


oOZ010 PROCEDURE DIVISION. 
g02020 Q0Z020-MAIN-MODULE + 
: : 

OOd050 904050-CALC-RTN« 


’ 
‘ 


We recommend that you use this latter format for long programs. 


-B. Statements and Sentences Within Paragraphs 


Each statement in COBOL begins with a verb such as READ, MOVE, or WRITE, 
ora conditional such as IF A = B+ + es 

Each paragraph consists of sentences, where a sentence is a statement or 
group of statements to be treated as a unit. A sentence ends with a period. 

Although sentences and statements can be written across the coding sheet 
as in Figure 6.1, it is highly recommended that each statement be coded on 
an individual line as in Figure 6.2. This latter format will make it much easier 
to read and debug programs. 

‘As you can see from both figures, all statements are coded in Area B. 
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Figure 6.1 
PROCEDURE DIVISION entries 
written in paragraph form. 
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Figure 6.2 
PROCEDURE DIVISION entries 
coded in a more user-friendly 


way. 


96 


Format 


AN OVERVIEW OF COBOL 


C. The Sequence of Operations 


All statements are executed in the order written unless a PERFORM instruction 
transfers control temporarily to another paragraph in the program. For ex- 
ample, consider the following: 


MOVE NAME-IN TO NAME-OUT, 
MOVE AMT-IN TO AMT-OUT. 
WRITE DATA-REC, 


In this routine, the MOVE statements will be executed first and then the 
WRITE statement will be executed. 

Figure 6.2 illustrates a paragraph labeled MAIN-MODULE. It contains instruc- 
tions that are normally coded in the main routine of all programs. All process- 
ing is controlled by PERFORM statements in this main module. The actual 
processing of input records in Figure 6.2, for example, depends on what is 
coded in the paragraph labeled CALC-RTN, which is executed from the main 
module. 

Let us begin by discussing the instructions in the paragraph labeled maIn- 
MODULE. These instructions will be coded in all our subsequent programs. The 
only changes that will be necessary will be in the file- and paragraph-names 
used; it also may be necessary to add some functions to our main module in 
more complex programs. 

After this main module has been explained in detail, we will discuss sample 
entries that can be coded in CALC-RTN. 


D. Format Specifications for COBOL Statements 


Before discussing actual COBOL statements in detail, let us review the format 
specifications that will be used to describe each statement. Consider, for ex- 
ample, the following format specification for an OPEN statement that acccesses 
the input and output files in a program: 


All instructions will be presented in a boxed entry entitled ‘Format’ that 
is used to indicate the rules for that instruction. The following rules will help 
you interpret format specifications: 


FORMAT SPECIFICATIONS 


1. Capitalized words are COBOL reserved words. 


2. Underlined words are required elements in the statement or option 
specified. 


Lowercase words are programmer-supplied. 

Braces { } denote that one of the enclosed items is required. 
Brackets | | denote that the enclosed item is optional. 
Punctuation, when included in the format, is required. 


The use of three dots (. . .) indicates that the preceding item may be 
repeated if desired. 


PEON OF a Go 
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Computer manuals include the same format specifications as used in this 
book. Sometimes, however, we simplify a format by including only options 
pertinent to our discussion or those most frequently used. 

The above specifications tell us the following about an OPEN statement: 


1. The word OPEN is a COBOL reserved word because it is capitalized; it 
is also required in the statement because it is underlined. 

2. Either the {INPUT file-name-1 ...} or {QUTPUT file-name-2 .. .} clause 
must be used, since they are in braces; most frequently, they are both 
used. If the first clause is used, the underlined word INPUT is required. 
The file-name, designated in lowercase, is programmer-supplied. The 
dots denote that any number of input files may be included. Similarly 
if the {OUTPUT file-name-2 .. } clause is used, the word OUTPUT is re- 
quired. The output file-names are also programmer-supplied. 


We will see in the next section that the OPEN statement accesses files and 
designates them as either input or output. For now, you should familiarize 
yourself with the basic rules for format specifications because they will be 
used throughout the text. 


wee m. Statements Typically Coded in the Main Module 


Format 


Example 


A. OPEN Statement 


Before an input or output file can be read or written it must first be activated 
or accessed with the use of an OPEN statement. 
As noted previously, an OPEN statement in COBOL has the following format: 


Recall that for every SELECT statement in the ENVIRONMENT DIVISION a 
file-name is defined and a device is assigned. 


SELECT PAYROLL-FILE ASSIGN TO SYS0O8-UT-S-3400, 
SELECT PAYCHECKS-OUT ASSIGN TO SYSOUT+ 


The filename PAYROLL-FILE is assigned to a tape drive by the SELECT statement 


and the fileename PAYCHECKS-OUT is assigned to a device called sySQUT which is 
typically the printer or a display unit. 


Files that are defined in SELECT statements must be described in FD entries. 
The OPEN statement, however, actually designates which files will serve as 
input and which will serve as output. Consider the following: 


28 EY 36, 40, co 18 be id oO & 


Yai 
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This statement instructs the computer that the storage positions assigned to 
PAYROLL-FILE will serve as an input area and the storage positions assigned 
to PAYCHECKS-OUT will serve as an output area. Data from PAYROLL-FILE 
will be read by the computer, and data from PAYCHECKS-OuT will be written 
by the computer. 

‘An OPEN statement, then, designates files as either input or output. It also 
accesses the specific devices. Since PAYROLL-FILE, for example, is an input 
tape file in the program, the OPEN statement accesses the specific tape drive 
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to determine if it is ready to read data. If not, execution would be suspended 
until the operator readies the device. 

In addition to distinguishing input files from output files and accessing 
specified devices, an OPEN statement performs certain checking functions. If 
label records for an input tape file are indicated as STANDARD, an OPEN state- 
ment checks the header label to determine if the correct tape has been mounted. 
If label records for an Output tape file are designated as STANDARD, the OPEN 
statement creates the header label. The actual header information, however, 
is frequently entered as part of Job Control (see Appendix D). 

In summary, three basic functions are performed by the OPEN statement: 


OPEN STATEMENT FUNCTIONS 
1. Indicates which files will serve as input or output. 
2. Makes files available for processing. 


3. Performs header label routines if label records have been designated 
as STANDARD, 


Programs are often written using several input and output files. An update 
program, for example, takes an OLD-MASTER-IN file and a file of transaction 
or change records called TRANS-FILE and uses them to create a NEW-MASTER- 
OUT. In addition, an error listing called ERR-LIST may also be produced. The 
OPEN statement for such a program can be coded as: 


OPEN INPUT OLD-MASTER-IN 
TRANS-FILE 
OUTPUT NEW-MASTER-OUT 
ERR-LIST, 


Although the OPEN statement can be written across the coding form, it is best 
to format the sentence as above, for ease of reading and debugging. 

All input files follow the COBOL reserved word 1 NPUT and, similarly, all 
output files follow the COBOL word ouTPUT. The word INPUT need not be 
repeated for each incoming file. The word OUTPUT may also be omitted after 
the first output file is noted, 

The above statement may also be written as four distinct sentences: 


<2 


When separate sentences are used, the word INPUT or OUTPUT must be indi- 
cated for each file that is opened. This method is preferable when files are to 
be opened at varying intervals throughout the program, that is, the program 
processes one entire file before it accesses the next. Unless such periodic 
intervals are required for the opening of files, however, it is considered inef- 
ficient to issue an independent OPEN statement for each file. 

The order in which files are opened is not significant. The only restriction 
is that a file must be opened before it may be read or written; a file must be 
accessed before it may be processed. Since the OPEN statement allows the 
accessing of files, it is generally the first instruction issued to the computer 
in the PROCEDURE DIVISION, 
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Self-Evaluating Quiz 


Solutions 


Format 


1. The PROCEDURE DIVISION contains all _____ to be executed. 
9. The PROCEDURE DIVISION is divided into 

3. Each paragraph defines a 

4. A routine is a ____—_.. 
5. Paragraphs are divided into 
6 

7 

8 

9, 


_ Statements are executed in the order unless a occurs. 
. An OPEN statement indicates ____—_, and it also _______ the devices. 
. Before a file may be read, it must be 

. The OPEN statement is coded in Area 


10, The file-name in the OPEN statement also appears in a _______- statement in the 
ENVIRONMENT DIVISION and in a{n) _—__— in the DATA DIVISION. 


. instructions 

paragraphs or modules 

. routine or module 

series of instructions designed to perform a specific set of operations 
. sentences or statements 

. in which they appear; PERFORM 

which files are input and which are output; accesses or activates 

. opened 

. B (All statements or sentences are coded in Area B.} 

. SELECT; FD 


WO ONDAAR WHE 


= 
Oo 


B. READ Statement 


After an input file has been opened, it may be read. A READ statement trans- 

mits data from the input device, assigned in the ENVIRONMENT DIVISION, to 

the input storage area, defined in the FILE SECTION of the DATA DIVISION. 
The following is the format for a READ statement: 


The filename specified in the READ statement appears in three previous 
places in the program: 


1. The SELECT statement, indicating the name and the device assigned to 
the file. If a tape drive is the device assigned, for example, a READ oper- 
ation transmits data from an input tape drive to the input area, 

2. The FD entry, describing the file. 

3. The OPEN statement, accessing the file and activating the device. 


The primary function of the READ statement is to transmit one data record 
to the input area reserved for that file. That is, each time a READ statement 
is executed, one record is read. 

The READ statement has, however, several other functions. Like the OPEN 
statement, it performs certain checks. It checks the length of each input record 
to ensure that it corresponds to the length indicated in a RECORD CONTAINS 
clause in the DATA DIVISION, if specified. If a discrepancy exists, an error 
message prints, and execution of the program is terminated. 

The READ statement will also use the BLOCK CONTAINS clause, if specified, 
to perform a check on the blocking factor. Although the primary function of 
the READ command is the transmission of data, these checking routines are 
essential for proper execution of the program. 
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The AT END clause in the READ statement tests to determine if there is any 
more input. An AT END clause of the READ statement tells the computer what 
to do if there is no more data to be read. The READ instruction is generally 
written in the form: 


READ filename AT END MOVE 1 TO EOF, 


MOVE 1 TO EOF is executed only when there are no more input records to 
process. EDF is a WORKING-STORAGE item that always contains a 0 except 
when an end-of-file condition occurs, at which point a 1 is moved to the field. 


Example READ MASTER-INVENTORY-FILE AT END MOVE 1 TO EOF, 


An input record will be read from the input device specified, and the next sequential 
instruction in the program will be executed unless there are no more input records. If, 
in fact, there are no more input records, the digit one (1) is moved to EOF. If, for 
example, 10 records constitute the input file, the eleventh attempt to read a record 
will cause a 1 to be moved to EOF. 


On many computers, an end-of-file or trailer record can be created with 
a /* (slash-asterisk) or /LOGOFF in the first positions of the record. In either 
case, the / or trailer record causes an AT END condition to be recognized. 

An AT END clause must be specified for every READ statement for a file that 
is read sequentially.’ The computer must be told what to do when there is no 
more data to process. 

Examine the following DATA DIVISION entry: 


Pe RHE aeeeein ast OTT aer itt 
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Suppose the statement READ ACCOUNTS-RECEIVABLE AT END MOVE 1 To 
EOF is executed. The first 15 positions of data from the tape will be placed in 
storage in the field called NAME. The next five tape positions will be placed in 
the field called ANT-OF-TRANS. The sequence in which entries are coded in 
the DATA DIVISION is crucial, data is placed in the fields in the order in 
which the data-names are specified. The READ command will also perform a 
checking function. The length of the tape block will be compared to 200 
positions, or 10 records, when a block is read. Any discrepancy constitutes a 
wrong length record error, which would cause execution to be terminated. 

Similarly, if data is read from cards or a terminal, the first columns would 
be placed in the first data field specified in the DATA DIVISION. A less elab- 
orate checking routine would be performed, since there is no blocking of cards 
or data entered on a terminal. 


' The aT END clause may be omitted when input is on a disk that has been designated for random 
access. This is discussed in Chapter 23, which describes random-access processing. Until Chapter 
23, all our programs will have an aT END clause with each READ statement. 


Format 


Example 
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C. PERFORM . « « UNTIL Statement 
The format of the PERFORM ... UNTIL statement is as follows: 


This statement is critical for implementing the structured programming 
approach. First, it transfers control to the paragraph named. This paragraph is 
executed continually until the condition specified is met. When the condition 
is met, control returns to the statement directly following the PERFORM. 


PERFORM CALC-RTN UNTIL EOF = 1. 


The instructions in CALC-RTN will be executed repeatedly until EOF = 1. Recall 
that EOF is a programmer-supplied entry. It is a WORKING - STORAGE end-of-file indicator 
in storage that is initialized at zero and will contain a 1 only when an AT END condition 
is met. Hence, the PERFORM statement is really indicating that all instructions in CALC- 
RTN are to be executed until there are no more records to process, at which point 
control will return to the statement following the PERFORM in the main module. 


The condition used to terminate the PERFORM should be a condition that 
is eventually reached within the paragraph named. That is, to say PERFORM 
CALC-RTN UNTIL EOF = 1 implies that CALC-RTN will have an instruction 
that at some point moves 1 to EOF: READ + « + AT END MOVE 1 TO EOF 
is the critical statement here. If it were not included, CALC-RTN would be 
executed endlessly. The programmer-supplied data-name EOF is used as an 
abbreviation for “end-of-file indicator,” but any data-name could be used. 

The following sequence of instructions is typical of those that appear in 
most COBOL programs: 


PROCEDURE DIVISION. 

MATN-MODULE + 
OPEN see 
READ +++ AT END MOVE 1 TO EOF. 
PERFORM CALC-RTN UNTIL EOF = 1, 
CLOSE ++ 


+ 
‘ 


CALC-RTNs 


’ 
‘ 


READ »++ AT END MOVE 1 TO EOF. 


After a file is opened, an input record is read. The PERFORM statement then 
transfers control to CALC-RTN, where the following steps are executed: 


SEQUENCE AT CALC-RTN 


1. The first input record is processed. 

9. The next input record is read. 

3. A test is performed to see if EOF = 1. It will only be a 1 if the AT 
END condition has been met. 

4. If EOF is not equal to 1, CALC-RTN is executed again. That is, the 
next input record is processed. 

5. This sequence continues until there are no more input records to 
process, at which point EQF is set to 1. When EOF = 1, control re- 
turns to the statement following the PERFORM in the main module, 
in this case the CLOSE statement. 
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If there are 10 input records to process, the eleventh attempt to read a record 
is the one that causes an AT END condition to be executed, The very last record, 
therefore, is processed in the usual way—it does not cause an AT END condition 
to be executed; it is the next READ that results in an AT END condition, 

The PERFORM, . . UNTIL within the first paragraph labeled MAIN-MoD- 
ULE enables that module to serve as an independent routine—in fact the main 
routine. CALC-RTN is also a separate module that processes the input data. 

The PERFORM statement causes all instructions within the named paragraph 
to be executed. Consider the following: 


PERFORM RTN1 UNTIL EOF = 1, 
RTN1I. 


RTNE, 


Only those instructions that follow RTN1 and precede RTN2 will be executed 
by the PERFORM. The range of the PERFORM includes all instructions within 
the named paragraph until another paragraph name is sensed or until there 
are no more instructions. Within RTN1 there should be a statement that in- 
cludes: READ « » . AT END MOVE i TO EOF, 

The PERFORM.» . . UNTIL involves a conditional test, That is, a condition 
must be met for control to return to the statement following the PERFORM. 
Note that the test is made initially even before the named paragraph is exe- 
cuted, and then again each time the paragraph has been executed in its en- 
tirety. Thus, if the condition is met when the PERFORM is encountered, the 
paragraph will be executed 0, or no times. The schematic for this is as follows: 


(Execute statement directly 
following PERFORM) 


be 
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With this sequencing in mind, examine the following and see if you can 
determine why it is not a correct alternative for the previous example: 


+ a 
Continue 

+4 processing +44 
the record 

HI fT ett + reer 


ole : 0 24 2 a 38 40 a4 or @ 6 0 ui 38 ‘a 
L cLic-RItN| UNTIL! Elk} | Hi.!} t [| | 
t + a + ia | ! 
cll { HH 
| “Lat ehip| Mowe, 4| Tro Fir. ian | Hl PEeee [ 
| {4 a 


Incorrect Structuring In our original example, a data record was read in the main module and then control 
of a Program was transferred to the CALC-RTN module, where that first record was processed, another 
record read, and so on. Here, the main mod ule does not contain a READ. Instead, CALC ~ 


RTN begins by reading a record and processing it. 


The sequence of steps in both these procedures are exactly the same except 
for the processing of the last record. We have seen in the original example 
that when an effort is made to read a record but there is no more input, an 
AT END condition occurs. In a structured program with an initial READ in the 
main module, a READ is also typically the last instruction in CALC-RTN. Hence, 
once an end-of-file condition is reached, control immediately returns to the 
main module, that is, to the statement after the PERFORM. This is not so with 


the above incorrect coding. 


What happens in the preceding incorrect case when an effort is made to 
read a record and there is no more input? The AT END condition is executed, 


and EOF is set equal to 1, But the test to return control to the main module 


is not performed until after the entire paragraph is executed. This means that 
processing will continue in CALC-RTN even though there are no more input 
records, Only after this processing of a nonexistent record is completed will 
control return to the main module. What usually results if the above is coded 


is either (1) the last data record is processed twice, or (2) the 


the run because there is no record to process. 
In short, when using the following statement: 


computer aborts 


PERFORM paragraph-name UNTIL EOF 


as we will in our programs, the paragraph named should contain as its last 
instruction a READ statement. In this way, an AT END condition will always 
result in the immediate transfer of control back to the main module. 
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Thus, all our structured programs will have the following form: 


2 2 736. cn mH 7 = = wz = = ad 
oph-name UNTIL [Ede I= lal! | ||| 
ee Lit LI | L 
1 +—} j— 
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To make our programs more user-friendly, we may code EOF in an alter- 
native way, as a three-position alphanumeric field that is initialized with a 
contents of ‘NO’. When an end-of-file condition is reached, we move ‘YES’ 
£0; 1! 


OPEN sae 

MOVE ‘NO’ TO EOF. 

READ see 

PERFORM paragraph-name UNTIL EOF = ‘YES’, 


ry 
+ 


paragraph-name. 


+ 
READ 4+. AT END MOVE ‘YES’ To EOF, 


Thus, EOF may be a one-position numeric field with a value of 0 until an 
end-of-file condition occurs and 1 is moved to it. Or, EOF may be a three- 
position alphanumeric field with a value of ‘NO’ until an end-of-file condition 
is reached and ‘YES’ is moved to it. You may use either method for coding 
EOF. 


Self-Evaluating Quiz Consider the following statement for Questions 1-4, 


READ PAYROLL-FILE AT END MOVE 1 TO END-OF-IT, ] 


1. PAYROLL-FILE must be defined as an _____in the DATA DIVISION. 
2. (T or F) PAYROLL-FILE is defined in a SELECT statement, 
3. (Tor F) READ PAYROLL-FILE AT END MOVE 1 TO END-OF-1T isa valid statement. 
4, Where must END-OF-1IT be defined? 
5. The PERFORM paragraph-name UNTIL (condition) transfers control to the 
. When the condition specified is met, control returns to the ; 
6. In the statement PERFORM RTN1 UNTIL EOF = i, EOF should be initialized at 
. Show how EOF is defined and initialized. 
7. Write the first three instructions that would normally be coded in the main module 
of a simple structured COBOL program. 
8. (T or F) In Question 7, the paragraph named in the PERFORM statement will nor- 
mally have a READ command as its first instruction. 
9. Consider the following statement: 
PERFORM CALC-RTN UNTIL ABC = i, 
Code the Jast instruction that should be included within caLc-RTN, 


Solutions 


Format 
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10. Why should the last statement in the paragraph include a READ command? 

ll. If there are 15 records to be read, the [no.) attempt to read a record causes an AT 
END condition to be executed because : 

12. When a PERFORM paragraph-name UNTIL (condition) is executed, how does the 
computer know when the paragraph to be executed is completed? 


FD 

T 

_ T—Although we have been using EOF, END-OF-IT isa valid data-name. 
As an elementary item in the WORKING-STORAGE SECTION 

. named paragraph; statement directly following the PERFORM 

. 0Q—Actually any other value but 1. 


DAapwone 


WORKING-STORAGE SECTION. 
O1 STORED-AREAS, 
05 EOF PIC 9 VALUE 0, 


Ts GPEN «ou 
READ... 
PERFORM paragraph-name UNTIL (condition) 
8. F—The first record read in the main module has not yet been processed. The named 
paragraph should begin with a set of instructions for processing that first record. 
9, READ filename AT END MOVE i TO ABC. (ABC is simply a data-name.) 

10. The condition in the PERFORM statement is tested initially and then again after 
the paragraph has been executed. Once the AT END is executed, when there are no 
more input records, we want to immediately transfer control to the main module. 
This can only be accomplished if the READ is the last statement in the paragraph. 

11. sixteenth; the sixteenth record has a special end-of-file indicator that signals the 
end of the data 

12. When it senses another paragraph-name or when it reaches the end of the program. 


D. End-of-Job Processing: The CLOSE and STOP RUN Statements 


Let us continue with the main module of Figure 6.2 before considering options 
to be included in CALC-RTN. 

CALC-RTN will be performed until EOF = 1, that is, until there are no more 
records to process. At that point, control will return to the instruction directly 
following the PERFORM statement in the main module. After all records have 
been processed, we will want to execute end-of-job functions. This usually 
includes releasing all files and terminating the processing (see Figure 6.2). It 
may contain other procedures as well, such as printing totals. 

There are two statements, however, that are a necessary part of’ every end- 
of-job routine. We must first CLOSE all files to indicate that they are no longer 
needed for processing, and we must instruct the computer to STOP, or ter- 
minate execution of the program. 


1, CLOSE Statement 

As we have seen, files must be accessed by an OPEN statement before data 
may be read or written. Similarly, a CLOSE statement is necessary at the end 
of the job after all records have been processed to release these files and deac- 
tivate the devices. The format of the CLOSE is: 


All files that have been opened at the beginning of the program must be 
closed at the end of a program. The CLOSE statement, like the OPEN, will 
perform additional functions. When creating disk or tape records, for example, 
the CLOSE will create trailer labels; it will also rewind a tape. 
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A CLOSE statement, unlike an OPEN command, does not denote which files 
are input and which are output. We say, for example, OPEN INPUT PAYROLL- 
FILE QUTPUT PAYCHECKS to access the files, but to release them, we simply 
Say CLOSE PAYROLL-FILE+ PAYCHECKS. Distinguishing between input and 
output files is essential before processing commences, but it is not meaningful 
when the job is being terminated. Commas are optional in all statements. 

As with an OPEN statement, the following two routines are equivalent: 


Accesses 


<UTsT 


Avice 


each | Baier FTP aon 
Cee ) LL 
EEEELECEELEEEEEEEEHE CEE ETH 


Unless files are closed at different points in the program, the latter method is 
considered inefficient. 


Prd 


2. STOP RUN Statement 
The STOP RUN instruction tells the computer to terminate the program. All 
programs end with a STOP RUN statement. This instruction will cause the 
computer to discontinue the processing of the current program and automat- 
ically load in the next program. 

You will note that we have discussed the following main module in detail: 


24 2B R % 40, a w i 36 wo co 7 A) 


devices 


Reads 

one record 
Processes 
all records 
until there 
is no more 
input 


Releases 
files 


ent Ht 


ae aoe 
i HERS ant 


1 
L__ Terminates processing 


Wy. statements Typically Coded for Processing 


Example 


Input Records and Producing Output 


The instructions specified at CALC-RTN will include: 


1. The processing of an input record. 
2, A READ command to read succeeding records. 


3. An AT END condition that instructs the computer to MOVE 1 TO EOF 
when there is no more data. 


CALC-RTNy 


+ 
+ 


READ TRANSACTION-FILE AT END MOVE 1 TO EOF, 


Presumably, at CALC-RTN we will want to manipulate data in some way and then 
produce output records. For now, let us concentrate on the simplest processing instruc- 
tions—the MOVE operation and the WRITE operation. 


Now that we are able to OPEN and READ files, it will be necessary to store 
data in the output area so that when we issue a WRITE instruction, there will 
be some information to be created as output. 
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A. Simplified MOVE Statement 
A simple MOVE statement has the following format: 


Format 


Fields in storage may be moved to other fields with the use of the MOVE 
instruction. You may find that some manuals use the word ‘identifier’ in place 
of ‘data-name’ in a format specification, but the meaning is the same. 


Sample Problem Consider the following input and output formats for a program that is to produce output 
disk records from an input tape: 


INPUT OUTPUT 


NAME “0 “OF | —> 


1 15 16 20 21 25 26 80 1 15 16 20 21 25 


The first three divisions of the program conform to the rules of the last three chap- 
ters, Figure 6.3 illustrates the coding of these DIVISIONS.” 
We may include the following coding in the PROCEDURE DIVISION: 


COBOL Program Sheet 


System Punching Instructions Sheet of 
Program Graphic | | = 5 ~Tdontification 
Programmer Date Punch Form 73) [80 
a 8 COBOL Statement 
UREN A AUETSGGAATHGSHH EEE 
TEETH de | HH cL 
0 He in CL ra 
7 Eel! | | | | | 
= LITT COPCEPE Mina | 
ve, eA HURRRUSUALAELEALEIE HHH H H 
be in | EL a 
roig stir Cpa CCEEEEEET 
|_|_|record's —| = 
mine i" 1C| rl Ht | nH HH 
ry | 


HAH MEREHREGERREEORRERE 


2 As in all illustrations, the ENVIRONMENT DIVISION entries are samples. The ENVIRONMENT 
DIVISION is a machine-dependent division and will, therefore, vary from computer to computer. 
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COBOL Program Sheet 


System Punching Instructions Sheet of 
prbaramn eerie Card L init L| 
Programmer [pate Punch a imi Form 73 (80 | 
Sequence z ie: 
eS aya is COBOL Statement ail 
1 34 67 \8 [iz 16 20 24 28 32 36 40 44 48 52 56 60 64 68 72 
Leh TDEN TIFICATION DIMISION.| TTT TTT TT EME era 
°F) PROGRAM-ID.| SAMPLE. | | TTT 
ofa ENRON ENT [DIVISTON. ia 
[e|:| | INPUT-OUTPUT! [SEICITITION. kK ia 
as FILE-CONTROL nl | He q Coo 
ole SEL INPUT-IFILIE AISISIGN! To [UT-S-Isyis 
of? | SELEICT, OUT PUT-FILE aSssteN TO Fase oege al 
ole] | DATA DIMIISTIOIN.| | | LI] 
[ele HELE SECITION. [| CO 
‘el | FD. | INPUT Fite i HEH 
Fp LABEL! RECORDS ARE! |STANDARD. 
‘PCT 6a) | INPUT-REKC. | || HH tt HH 
Fe (05 |NAME-TN Pic] XC45)). 
ifs te ier =O -CREDIT-In FIle! faicisi}.| alan] 
bis) T1105. AMT-lOF-DEBT T-IN Piric| l9¢'5, 
ifs ©5_| FILLER || iciel Kicissp/.. TT TT TTT ia 
“PLP. OUnP um FRLe TTT Coo HH 
fife LABEL REICORDS| ARE STANDARD ae CT 
‘lel | fe! | OurPuri=Reic.| | | | | | LITT ty LTT 
ao (05 | NAME!-[OUIT| PTic] KICKS). | || 8 
al 65 | |AMT-loF-DEBIT-ouT! LLL. Prel acshl. HH rid cH 
65 | AMT-lOF-clREDIIT-oulT) | | | | Pe alcisiyt.l TTT 
ORKING-ISTORIAGE SECTION. ee, 
|| 04) | 'STORED-|AREAS|.| | | | [TT 
rt iB FEOF Pitt {Hf rT | Pie §L VALUE Perce eri nt LTT 


Figure 6.3 
IDENTIFICATION, ENVIRON- 
MENT, and DATA DIVISIONS 
for sample problem. 


Assuming the PICTURE clause of the output field is the same as the PICTURE clause 
of the input field, a MOVE operation duplicates input data at the output area. That is, 
the input field still retains its value. Note that the technique of using the same base 
name for different fields while altering only the prefix or suffix is considered good 
programming form. That is, the distinction between AMT-OF-CREDIT-IN, as an input 
field, and AMT -OF -CREDIT-QUT, as the same field for the output, is clear, which means 
that these data-names are useful. 

Recall that CALC-RTN is a separate module. It is executed under the control 
of the PERFORM statement. To complete CALC-RTN, we will need to WRITE 
the record stored at the output area and then READ the next input record. 


B. WRITE Statement 


The WRITE instruction takes data stored in the output area of the DATA DIVISION 
and transmits it to the device specified in the ENVIRONMENT DIVISION. 
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A simple WRITE statement has the following format: 


Format 


Note that although files are read, we write records. The record-name ap- 
pears on the 01 level and is generally subdivided into fields. The record de- 
scription specifies the format of the output. With each WRITE instruction, we 
tell the computer to write data that is in the output area. 


Example Suppose the following file is defined in the DATA DIVISION. 
7s 12 16 20, 2 28. A 36 om a oF 2 BB w co oe 72 
ep | olirielur|- Feit he | 
LT | AJA) RECORIDS! OMITTED 
| CORD CONTATNG| 25! CHARACTERS if 
rm | a a Be 1'S| OUTPUT -R) Ie | 
\( UTE A 
LTE | 5] | NAME-OU'T, PLC) XC15)). LOT 
| 0) T-|OF|-DEBIT|-|OU PILIc| 1@(C/5))I. 
LLL) HAMT'-\OF [CREDIT -0 tel fa). HEA 
To write information on this file, the appropriate instruction is WRITE OUTPUT-REC, 
not WRITE OUTPUT-FILE, When we write or produce information, we use the 01 record- 


name; when we read from a file, we use the FD or filename. 

To say WRITE OUTPUT-REC transmits data to the output device according to the 
way in which data has been stored in the record called OUTPUT-REC. If more than one 
record format were specified for OUTPUT-FILE, then the record format to be created 


would be indicated in the WRITE statement. For example, consider the following: 
a a “tz is “20 24 = 2 36 10 aa 8 a 66 0 a ob iD) 
| PINT Et | WOR HERS 
L-TCLABEL| RECORD. ARE: OM a 
Se ee NNR EAT Rana TH 
CL atl RECORDS! ARE| WbG| DENAIL-REG. CO 
Al | | | 
He ah tH 
ECE rH 
['oa| | DETATL-REC|. | CA 
1 _ bt Ve 
| le 
t i I 
HEAL ERUIREBERED 


Depending on the format desired, we would code either WRITE HDG or WRITE DETAIL- 
REC. 
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We may now code the PROCEDURE DIVISION for our sample program in 
its entirety, keeping in mind that after a complete record has been processed 
and an output record created, we want to read another input record: 


COBOL Program Sheet 


a 
t= 


System Punching Instructions Sheet of 
Program Graphic | | ] ésit. Identification 
Programmer Date Punch L | | | Form 7a [go 
Sequence |z Ty. 
oe Pea - - ~ 16 20 24 28 32 36 — — 48 52 56 60 64 68 = 
REO a Divisio. TTT] LT TT] 
ofe IN-MODULIE.. 
BCU L OBE COLT TWP -FIUE TT HHH 
TTT louTpuT! loumpuTerue.t Cre TT 
Cee CCCC READ INBUT =F TTT a 
Cee TEND. [MOWE! 4! ‘Tio Eo Ct a 
Hak ole | || 
ele TT C IT dhe Lt | 
== bi ro . 
Lip Ig pit aa ttt a 
VW2 T | ing 
eh Hi ai 
PECL a DEBT our TTT im 
‘fe | Tl-OF- -CREDI : 
+ + { at ‘a 
fo RITE [OUT ROC Be ia 
“PCP READ ai “Fil 
| 
| 


xq 
ae 


The format of this coding is considered the most user-friendly and the eas- 
iest to debug. Where feasible, each clause should be coded on a separate line. 


EV. Review of Comments in COBOL 


You will find that as programs become more complex, comments may be 
included as reminders and explanations of the processing being performed. 

The following is the method that may be used for inserting comments in 
a COBOL program: 


COMMENTs IN COBOL 


An asterisk (*) in column 7 (the continuation position) of any line 
makes the entire line a comment. Use comments to make your pro- 
gram user-friendly and easier to understand. 
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Example of a program excerpt with a comment: 

7 t SION. 28 32 36. 40 a4 48. $2 66 64 

peo i‘ ane 
bt 4 THES) Bl M_Usels| THE! STRUCTURED, APPROACH 
heed DDE 

| 0 

E TNVENTORNEF TLE J 
i AYMEINT FILL | 
LI FITILE|_|AT| END) MOVE i Tlol_EIOF\.|_ | 

| rN) UNITITL| [EIOE| | 4. | | i 

CHAPTER SUMMARY 
Most programs illustrated or required in this text will use the following structure: 


(te 2 sc} 20, 2 2 En 3% 70 a 
| 


EDUALE [pit|visi0N. | | 
cegapreres 


elisleel 1k | 


IR slele| IAT MOME TTA IE. a 
Ip. RIM \paraqraph=niame | TIL EOF) = 4 


‘ 


steps for 
each record a 


H 
Man it age 


. Paragraph-names are coded in Area A and end with a period. 
‘All statements are coded in Area B, either in paragraph form or one state- 
ment per line. The latter is highly recommended. 

| Instructions are executed in the order in which they appear unless a PER~ 
FORM statement transfers control. 

. The following main module is usually coded for most structured programs. 
(Lowercase entries require programmer-supplied names.) 


o> 


Go 90 


OPEN INPUT file-name OUTPUT file-name. 
READ filename AT END MOVE 1 TO EOF. 
PERFORM paragraph-name UNTIL EOF = 1. 
CLOSE file-name(s). 

STOP RUN. 


E. The paragraph specified in the preceding PERFORM is executed repeatedly 
until there are no more input records. 

F. The last statement in the paragraph specified by the PERFORM is usually a 
READ statement: 


CALC -RTNe 


’ 


' 
READ filename AT END MOVE 1 TO EOF, 
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Per SELF-EVALUATING Quiz 


Solutions 


16, Two statements that are required at the end of a job are ; 
17. For every file that is opened, a_______ statement must appear in the end-of-job 


1. Before a file may be read it must be 
2. Consider the following instruction: READ FILEA AT END MOVE 1 TO EOF, FILEA 
appears in a________ statement of the ENVIRONMENT DIVISION, an 
entry of the DATA DIVISION, and statements of the PROCEDURE DIVISION. 
- With each READ statement for sequential files, a(n) _____ clause is used. 
A —________ instruction transmits data to the input area. 
. The AT END clause tells the computer what to do if ‘ 
. In the instruction READ TAPE-IN AT END MOVE 1 TO EOF, if there are 20 tape 
records, the (no.] attempt to read a record will cause a 1 to be moved to EOF. 
7. Unlike READ statements in which the _____-name is specified, a WRITE state- 
ment specifies the ____-name. 
8. The PROCEDURE DIVISION is divided into 
9. What is wrong with the following? 
(a) WRITE REC-1 AT END MOVE 1 TO EOF. 
(b) PRINT REC-2. 


Nap w 


10. To transmit data from one field of storage to another, the ______ statement is 


used. 


11. To obtain exactly the same data at the output area that appears in the input area, 


the _______ clause of both fields should be identical. 


12. The instruction used to transfer control from the main module to some other part 


of the program is a_______ instruction. 


13, If PERFORM STEP-5 UNTIL EOF = 1 isa statement in the program, STEP-5 isa 


that must appear somewhere in the program in Area 


14. Paragraph-names (must, need not) be unique within a program. 
15. In general, execution of statements will proceed ________ unless a 


statement is coded. 
and 


routine. 


18. CLOSE INPUT ACCTS-PAYABLE (is, is not) valid, 
19. The purpose of a STOP RUN command is to . 
20. If PERFORM STEP-1 UNTIL EOF = 1 is a coded statement in the main module, 


the last instruction of STEP-1 should be a 


Page 

1. opened 97 
2, SELECT; FD; OPEN and CLOSE 99 
3. AT END 100 
4. READ 99 
5. there is no more input data 100 
6, twenty-first 100 
7. file; record 109 
8. paragraphs 94 
9. (a) The AT END clause is only specified with a READ statement. 109 
(b) A WRITE command should be used, not PRINT. 108 

10. MOVE 107 
11. PICTURE or PIC 108 
12. PERFORM . . . UNTIL 101 
13, paragraph-name; A 101 
14. must 94 


15. sequentially; PERFORM 96 
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16. CLOSE; STOP RUN 105 
17, GLOSE 105 
18. is not (Note: INPUT or OUTPUT is not specified with CLOSE statements.} 106 
19, terminate the job 106 
20. READ file-name AT END MOVE 1 TO EOF 101 


| PRACTICE PROGRAM 


From this point on, each chapter includes one practice program with a 
suggested solution provided to assist you in reviewing the material and in 
coding the programming assignments that follow. Make every effort to code 
the practice program on your own. Then check your solution with the one 
illustrated, A problem definition is provided that includes (1) a systems 
flowchart, which is an overview of the input and output, (2) record layout 
forms, and (3) Printer Spacing Charts, if printed output is required. 


Write a program to write an output salary disk from input employee tape records. 
The problem definition is as follows: 


Systems Flowchart 


EMPLOYEE-FILE 


SALARY-DISK 


EMPLOYEE: FILE Record Layout 


NO. OF DEPENDENTS 


1 20 21 25 26 


SALARY-DISK Record Layout 


1 20 21 25 26 80 


Hint; You must move SPACES to the output record to ensure that the FILLER in the last 55 
positions is blank, 
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Figure6.4 * 


Solution to Practice Program. 


* 


® 


Figure 6.4 illustrates the coding for this problem. 


IDENTIFICATION DIVISION, 


PROGRAM-ID 


+ SAMPLEG. 


ENVIRONMENT DIVISION. 


CONFIGURAT 


ION SECTION, 


SOURCE-COMPUTER. IBM-4341, 


OBJECT-COM 
INPUT-OUTP 
FILE-CONTR 
SELECT 
SELECT 
DATA DIVIS 
FILE SECTY 
FD EMPLOY 
LABEL 
O1 EMPLOY 
oS EM 
oS SA 
oS NO 
OS FI 
OS ST 
OS FE 
oS FI 
FD SALARY 
LABEL 
Ol SALARY 
oS EM 
oS SA 
OS FI 
WORK ING-ST 
O1 WORK-A 
oS EO 
PROCEDURE 
MATN-MODUL 
OPEN I 


0 
READ E 
A 
PERFOR 
U 
CLOSE 


STOP R 
CALC-RTN. 

MOVE § 
MOVE E 
MOVE § 
WRITE 
READ E 

A 


PUTER. IBM-4341, 

UT SECTION, 

OL. 

EMPLOYEE-FILE ASSIGN TO UT-S-SYS008, 
SALARY-DISK ASSIGN TO DA-S-SYS007, 


ION, 
ON. 
EE-FILE 
RECORDS ARE STANDARD. 
EE~-REC, 

PLOYEE-NAME-IN PIC X(20), 
LARY-IN PIC 9(5), 
~OF-DEPENDENTS PIc 9, 
CA PIc g9gyvag, 
ATE-TAX PIC 9(4)y99g, 
D-TAX PIC 9(4)yV99, 
LLER PIC X(37), 
-DISK 
RECORDS ARE STANDARD, 

~REC, 

PLOYEE~NAME-OUT PIC X(20), 
LARY-OUT PIC 9(5), 
LLER PIC X(55), 
ORAGE SECTION, 

REAS. 
F PIC 9 VALUE 
DIVISION, 
Ey 

PUT EMPLOYEE-FILE 


UTPUT SALARY-DISK. 
MPLOYEE-FILE 

T END MOVE i TO EOF, 
CALC-RTN 

NTIL EOF = i, 
EMPLOYEE-FILE 
SALARY-DISK. 

UN, 


PACES TO SALARY-REC, 

PLOYEE-NAME-IN TO EMPLOYEE-NAME-OUT. 
ALARY-IN TO SALARY-OUT, 

SALARY-REC, 

PLOYEE-FILE 

T END MOVE 1 TO EOF. 


Oo. 
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KEY TERMS 

AT END READ 
CLOSE Routine 
Module Sentence 
MOVE Statement 
OPEN STOP RUN 
Paragraph WRITE 
PERFORM +++ UNTIL 


REVIEW QUESTIONS 


I. True-False Questions 


6. 


9. 
10. 


H. 
Ts 


2, 


3. 
4. 


ile 
2. 
3. 
4. 
5 


(T or F) Paragraph-names are coded in Area A of the PROCEDURE DIVISION. 

'T or F] An OPEN statement must be executed before a file is read. 

T or F} Files must be opened in the order in which they are read or written. 

T or F| A structured program treats each paragraph as an independent module. 
TorF)A PERFORM. » «UNTIL will be executed continuously until the condition 
specified is met. 

T or F) Consider the following statement: PERFORM CALC-RTN UNTIL EOF = 1. 
The data-name EOF must be defined in the FILE SECTION. 

T or F) Suppose EOF were initialized at 1. It would be correct to use the following 
as an end-of-file test: READ FILE-IN AT END MOVE 0 TO EOF. 

T or F) Consider the following statement: 


PERFORM CALC-RTN UNTIL EOF = 1. 
The last statement in CALC-RTN would usually be a WRITE statement. 


T or F) The last instruction to be executed in a program should be a STOP RUN. 
T or F) It is typically unnecessary to close files at an end of job. 


General Questions 

Indicate the DIVISION in which each of the following is coded and its purpose: 
a) DATE-COMPILED 

b) WORKING-STORAGE SECTION 

c) paragraph-name 

d) CONFIGURATION SECTION 

(e) FD 

f} level numbers 

g) LABEL RECORDS 

h) FILE SECTION 

(i) SELECT 

j) AUTHOR 

(k) STOP RUN 

1) at END clause 

m) INPUT-OUTPUT SECTION 

(n) VALUE 

0) PICTURE 

(p) FILE-CONTROL 

q) FILLER 

1) OPEN 

When the computer encounters a READ command in the PROCEDURE DIVISION, 
how does it know which of its input units to activate? 


Give two functions of the OPEN statement. 
When are paragraph-names assigned in the PROCEDURE DIVISION? 
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5. State which of the following, if any, are invalid paragraph-names: 
(a) INPUT-RTN 
(b) MOVE 
(c) 123 
(d) %-RTN 
6. If a READ statement is used for a sequential file, what clause is required? Why? 


Make necessary corrections to each of the following (Questions 7-9). Assume that 
spacing and margins are correct. 


Ey EA 36 cn co 52 56 00, 64 we 72 


ETE 


ER 
=a 


= 
=a 
L 

x 
_ 


deat 


CoC tt CoCo 


HH 
A RY 
HoH 


8. CLOSE INPUT FILE-A+ OUTPUT FILE-B 
9, WRITE REC-A AT END MOVE O TO EOF 


EE DEBUGGING EXERCISES 


Consider the following PROCEDURE DIVISION coding: 


PROCEDURE DIVISION, 
MAIN-MODULE. 
OPEN SALES-FILE 
PRINT-FILE, 
PERFORM CALC-RTN UNTIL EOF = 1, 
CLOSE SALES-FILE 
PRINT-FILE, 
STOP RUN, 
CALC-RTN 
READ SALES-FILE AT END MOVE i TO EOF, 
MOVE SALES-FILE TO PRINT-FILE, 
WRITE PRINT-FILE, 


The OPEN statement will result in a syntax error. Indicate why. 

. The MOVE statement will result in a syntax error. Indicate why. 

. The WRITE statement will result in a syntax error. Indicate why. 

. This programming excerpt does not follow the appropriate structured format. In 
fact, it will result in a logic error when the last record has been processed. Indicate 
why. 

5. The CLOSE statement does not have commas separating the files. Will this result 

in a syntax error? Explain your answer. 


6. Indicate where the SALES-FILE is defined in the program and where it is described. 
How can you determine what device it uses? 


Foner 
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7. Suppose that the READ statement were coded as READ SALES-FILE with no AT END 
clause. Would this cause an error? Explain your answer. 

8. After compilation, the line that contains the paragraph-name called CALC-RTN will 
be listed as containing a syntax error. Why? 


| PROGRAMMING ASSIGNMENTS 


The following notes apply to all Programming Assignments in this and subsequent 
chapters. 


1. Each of the following assignments specifies a particular form of input, such 
as disk, tape, cards, or terminal, as well as a particular form of output such as 
a printed report, disk, or tape. Your instructor may choose to modify these 
device assignments to make more effective use of the computer facilities at 
your school or installation. 

A program assignment that specifies an 80-position disk as input could 
easily be modified to indicate card, tape, or terminal input instead, Only the 
SELECT statement and possibly the LABEL RECORDS and BLOCK CONTAINS 
clauses would need to be altered. 

9. The first two or three Programming Assignments in each chapter will be 
specified in traditional problem definition form. Any additional assignments 
will be specified in narrative form to familiarize you with an alternative method 
for designating program specifications. 

3. Problem 2 in each chapter uses the same input format. A sample data set for 
this input format is provided in Appendix J. Your instructor may require you 
to use the data set provided. 

4. For Programming Assignments 1-3, if printed output is required, a Printer 
Spacing Chart will be included with the problem definition. For additional 
programming assignments where printed output is required, you should create 
your own Printer Spacing Chart. There are blank Printer Spacing Charts at 
the end of the text. 

5. When output is created on tape or disk, you will need to include a command 
that prints the contents of the output tape or disk so that you can check it 
during debugging. You may code DISPLAY record-name prior to each WRITE 
record-name to print each tape or disk record before actually creating it. Or 
you may use a job control command such as /PRINT to print the entire output 
file after processing, You will need to ask your instructor or a computer aide 
how this job control command is specified for your system. 

6. The Programming Assignments at the end of each chapter are arranged in 
increasing order of difficulty, with the last one being the most difficult. 
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1. Write a program to create a sequential master disk file from input sales records on 
tape. The problem definition is shown in Figure 6.5. 


Systems Flowchart 


SALES-FILE 

Epspesiion records SALES-MASTER 
standard labels | i 

20 records/block Standard abe 


20 records/block 


SALES-FILE Record Layout 


2526 2728 2930 3132 3738 4344 


SALES-MASTER Record Layout 


56 25 26 27 28 2930 3132 3738 4344 


Figure 6.5 
Problem definition for Pro- 
gramming Assignment 1. 


Systems Flowchart 
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9, Write a program to print all information from payroll records. The problem defi- 
nition is shown in Figure 6.6. The words in parentheses ( | on the Printer Spacing 
Chart identify the fields to be printed. 


PAYROLL-MASTER 
80-position records 
standard labels 

20 records/block 


PAYROLL-LIST 


PAYROLL-MASTER Record Layout 


1 56 


ATION 


25 26 27 28 


1. 
1}0Jafa) fafa} }2}2| | 
slo |>)ala)o}}2}a}a ah 

1 4. +. 

2 

3 dl | 

cu +} ++. 

5 

6 

7 

a Cit L {dai 

c NY |] 

10 

fap F| 

12) 


Figure 6.6 
Problem definition for Pro- 
gramming Assignment 2. 


3. XYZ Utility Company has master tape records each of which will be used to produce 
two disk records on a sequential disk file. The problem definition is shown in Figure 
6.7. Note that the program will create two disk records that will later be printed as 
bills for each input record. 


Hint: The pata RECORDS clause for the output file includes two record formats. You may 
code, for example, DATA RECORDS ARE GAS-BILL» ELEC-BILL for the output file. The sequence 
of instructions at CALC-RTN after a tape record has been read would be: MOVE + WRITE + MOVE» 
WRITE» READ. Thus, we code two write commands for every read command. 


120 AN OVERVIEW OF COBOL 


Figure 6.7 Systems Flowchart 
Problem definition 
for Programming 
Assignment 3. 
ACCOUNT-MASTER 


75-position records 

standard labels BILL-MASTER 

30 records/block 80-position records 
standard labels 
30 records/block 


ACCOUNT-MASTER Record Layout 


1 56 25 26 45 46 50 51 55 56 60 61 65 66 75 


BILL-MASTER Record Layouts 


ELEC-BILL 
1 56 25 26 45 46 50 51 55 56 80 


GAS-BILL 


I 56 25 26 45 46 


50 51 55 56 80 


4. Two input tape files are used to create one output master tape file. The format for 
the two input files is as follows: 


File 1 File 2 

1-20 Employee name 1-20 Employee name 
21-40 Address 21-40 Address 
41-43 Hours worked 41-45 Salary 
44-46 Wages X.XX 46 No. of dependents 

47 No. of dependents 47-51 F.LC.A. XXX.XX 

48-52 F.ILC.A. XXX.XX 52-57 Fed. tax XXXX.XX 
53-58 Fed. tax XXXX.XX 58-63 State tax XXXX.XX 
59-64 State tax XXXX.XX 64 Unused 


The format for the output file is the same as for the input files. Write a program to 
write on the output file all records from File 1 and then all records from File 2. All 
files have standard labels. The blocking factor is 30 for all Alles. 

5. Modify Problem 4 to first write on tape a record from File 1 and then a record from 
File 2. Alternate writing in this way until records from both files are all processed. 
Assume that File 1 and File 2 have the same number of records, 
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OBJECTIVES 


To familiarize you with: 

1. The rules for moving numeric fields and literals to numeric fields. 

9. The rules for moving nonnumeric fields and literals to nonnumeric fields. 
3. The various options of the MOVE statement in general. 

4. The use of decimal points and dollar signs in printed output. 


Example 1 


Example 2 


I. Introduction 


The MOVE statement has the following components. 


Sending field 


MOVE FIELDA TO FIELDB Receiving field 


In this COBOL statement, MOVE is called the verb. Recall that every COBOL 
statement in the PROCEDURE DIVISION, like every English sentence, must 
contain a verb. The data-name F 1ELDA is called the sending field. The contents 
of FIELDA will be transmitted, that is, copied or sent, to another field (FIELDB) 
as a result of the MOVE operation. F IELDB is called the receiving or result field. 
The contents of FIELDB will be replaced by the contents of FIELDA as a result 
of the MOVE operation. FIELDA will remain unchanged. 

The result of the MOVE operation, then, is that the data stored at the sending 
field, FIELDA, will be transmitted to the receiving field, FIELDB. 

The MOVE statement, like all COBOL imperative statements, appears only 
in the PROCEDURE DIVISION. FIELDA and FIELDB, however, are data-names 
and as such must be defined in the DATA DIVISION. You will recall that 
elementary items in the DATA DIVISION require PICTURE or PIC clauses to 
indicate (1] the type of data in the field (numeric, alphanumeric, or alphabetic) 
and (2) the size of the field. To perform a MOVE operation that replaces the 
contents of FIELDB with the very same contents as FIELDA, the PICTURE 
clauses of both fields must be identical. 


MOWE TAXA TO TAXB 


TAXA PICTURE 999 TAXB PICTURE 999 
Contents 123 Contents 456 


If the statement MOVE TAXA TO TAXB is performed, the contents of TAXB will be replaced 
by 123, the contents of TAXA. This will occur only if TAXA and TAXB have identical 
PICTURE clauses (in this case, 999). The original contents of TAXB, 456, is lost during 
the MOVE operation. When moving a sending field to a receiving field, the original 
contents of the receiving field is always completely replaced. 

Note also that data is not physically moved from the sending to the receiving field, 
but, instead, is copied from one field to the other; that is, the contents of the sending 
field, TAXA in this case, is duplicated at the receiving field, TaxB. At the end of the 
operation, the two fields will have the same contents. Thus the contents of TAXA is 
not erased during the operation. TAXA remains unchanged, its contents is transmitted, 
or duplicated, at TAXB. 


MOVE FIELDA TO FIELDB 


FIELDA PICTURE XXxKX FIELDB PICTURE XXXX 
Contents ABCD Contents EFGH 
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After the operation MOVE FIELDA TO FIELDB is performed, FIELDB has ABCD as its 
contents and F 1ELDA also remains with ABCD. Since the fields have the same PICTURE 
clauses, they will have identical contents at the end of the operation. 


Self-Evaluating Quiz 


Solutions 


Use the following statement to answer Questions 1-6: 


MOVE FIELD1 TO FIELDZ 


1. MOVE is called the _____. FIELD1 is called the ——_____.. FIELD2 is called 
the 

2. The MOVE statement appears only in the DIVISION, while FIELD1 and 
FIELD2 must be defined in the _____ pryts ton, 

3. To duplicate the exact information of FIELD1 at FIELD2, the fields must have the 
same ______ clauses. 

4. A PICTURE clause indicates numeric data by —_____, alphanumeric data by 

, and strictly alphabetic data by 

5. The number of 9’s, X's or A’s in a PIC clause denotes the ——_—— of a data field. 

6. Assume FIELD1 has contents of 128 and FIELD? has contents of 736, assume also 
that the fields have the same PICTURE clauses. At the end of the MOVE operation, 
FIELD2 will have _______as its contents and FIELD1 will contain 


1. verb or operation; sending field, 4. 9's; X’s; A’s 
receiving or result field 5. size 
2. PROCEDURE; DATA 6. 128; 128 


3. PICTURE or PIC 
Note: The contents of a sending field remains unchanged in a MOVE operation. 


a Tes Il. The Formats of the MOVE Statement 


Format 1 


Format 2 


We have thus far discussed one format of the MOVE statement: 


Data-name-1 and data-name-2 must be defined in the pata DIVISION. To 
obtain in data-name-2 the same contents as in data-name-1l, the PICTURE 
clauses of both fields must be the same. 

A second form of the MOVE statement is as follows: 


Recall that there are two kinds of literals: numeric and nonnumeric. The 
rules for forming these literals are as follows: 


REVIEW OF LITERALS 


Numeric Literals 

1 to 18 digits 

Decimal point (optional, but may not be the last character) 

Sign (optional, but if included it must be the first character) 

Nonnumeric or Alphanumeric Literals 

1 to 120 characters 

Any characters may be used (except the quote mark or apostrophe) 

The literal is enclosed in single quotes or apostrophes (some systems 
use double quotes instead) 
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Examples of MOVE statements where a literal is moved to a data-name follow: 


Example 1 


co 52 56 0, 04 oa P| 


Ca a 
me = 
a 
Se 
a 
= 
za 


Cin Cac TnL 
at 
, ia a 


| { 
(Your computer system may require dou ble quotes rather than single quotes for non- 


CUASSTETCAT LON. { 
numeric literals.) 


ze se el ie BS 


Although data-names must be defined in the DATA DIVISION, literals may 
be defined directly in the PROCEDURE DIVISION. Assuming an appropriate 
PICTURE clause in the receiving field, the exact contents or value of the literal 
will be placed in that field. Keep in mind that the receiving field of any MOVE 
instruction must always be a data-name. 

In Example 1, the literal 123 is a numeric literal. We know that it is a literal 
and not a data-name because it contains all numbers, while data-names must 
have at least one alphabetic character. To move a numeric literal to a data 
field, the field should have the same data type as the literal, namely, it should 
be a numeric field. Thus, in Example 1, DEPT must have a PICTURE of 9’s. To 
obtain exactly 123 in DEPT, DEPT should have a PICTURE of 999, to indicate 
that it is a three-position numeric field. 

In Example 2, ‘CODE1’ is a nonnumeric literal. We know that it is not a 
data-name because it is enclosed in single quotation marks. To move a non- 
numeric literal to a data field, the data field must have the same format as 
the literal; namely, it must be an alphanumeric field. Thus, in Example 2, 
CLASSIFICATION must have a PICTURE of x’s to indicate that it is alpha- 
numeric. To obtain exactly ‘CODE1’ as the contents of CLASSIFICATION, 
CLASSIFICATION must have a PICTURE clause of X(5) to specify a five- 
position alphanumeric field. 

To say MOVE 123 TO ADDRESS-1 would be poor form if ADDRESS-1 hada 
PICTURE of XXX, because the literal does not have the same format as the 
receiving field. If ADDRESS-1 has a PICTURE of %(3), the literal moved to it 
should be nonnumeric. Thus we should code: MOVE ‘123’ TO ADDRESS-1. 

A third form of the MOVE statement is as follows: 


Format 3 


You will recall that a figurative constant is a COBOL reserved word, such as 
SPACE (SPACES) or ZERO (ZEROS or ZEROES), that represents a specific value. 


126 BASIC COBOL OPERATIONS 


The following examples illustrate the use of figurative constants in a MOVE 
statement: 


Example 3 | MOVE ZEROS TO TOTAL | 


Example 4 | MOVE SPACES TO HEADING! | 


In Example 3, ZEROS is a figurative constant, meaning all 0’s. Since 0 is a 
valid numeric character and also a valid alphanumeric character, TOTAL may 
be numeric, having a PICTURE of 9’s, or it may be alphanumeric, having a 
PICTURE of X’s. In either case, TOTAL will be filled with all zeros. In this case, 
the size of TOTAL is unimportant; a zero will be placed in every position of 
that field regardless of its size. Thus, when using a figurative constant as the 
sending field, the size of the receiving field need not be any specific length. 

In Example 4, SPACES is a figurative constant meaning all blanks. Since 
blanks are not valid numeric characters, the PICTURE clause of HEADING 
must specify x’s, indicating an alphanumeric field, or 4’s, indicating an al- 
phabetic field. Again, the size of HEADING! is unimportant since blanks will 
be placed in every position, regardless of its length. 

Combining the formats specified above, we have: 


General Format 


The braces indicate that any one of the three elements may be used as a 
sending field. The receiving field must always be a data-name, The words MOVE 
and TO are COBOL reserved words required in the statement; thus, they are 
capitalized and underlined. 

Any nonnumeric literal may be moved to an alphanumeric field. However, 
only those nonnumeric literals with alphabetic data or spaces should be moved 
to an alphabetic field. As noted previously, we typically use X’s ina PICTURE 
clause of any nonnumeric field and avoid the use of A’s. We will see that it is 
always the receiving field that determines the type of move. 


Self-Evaluating Quiz 1. In a MOVE operation, the sending field may be a_______ or a OND) 


2. The two kinds of literals are________ and 
3. The receiving field in a MOVE operation is always a 


Use the following statement to answer Questions 4-6: 


MOVE A1Z TO FIELD3 


4. A12 must bea 


5. A12 cannot be a nonnumeric literal since it is not —___... Similarly, 412 cannot 
be a numeric literal since it 


6. If the data-name 12 has contents of 453, _______ will be moved to FIELD3 and 
412 will have ________as its contents at the end of the operation. 


Use the following statement to answer Questions 7-10: 


[ MOVE ‘ABI’ TO FIELDG 


Solutions 
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7. The sending field is a _____. 

8. The sending field cannot be a data-name because it is 
9. To obtain exactly AB1 in FIELDG, the PICTURE clause of the receiving field should 
be 
10. ‘abi’ lis, is not) defined in the DATA DIVISION. 


Use the following statement to answer Questions 11-13: 


MOVE 12384 TO SAM 


11. The sending field is a ______. 
12. The sending field must be a numeric literal and not a data-name because it 


13. To obtain exactly 12384 in SAM, its PICTURE clause must be , 
14, In the operation MOVE SPACES TO FIELDA, SPACES is a —___, and FIELDA 


would have a(n) _______. PICTURE clause. The contents of FIELDA will be replaced 
with at the end of the operation. 
15. In the operation MOVE ZEROS TO FIELDA, FIELDA may have ain) ______ PIC - 


TURE clause. After the MOVE, FIELDA will contain ' 

16. In the operation MOVE ‘SPACES’ TO FIELDA, where FIELDA has a PICTURE of 
(6), ‘SPACES’ isa . The contents of FIELDA will be ______ at the 
end of the operation. 


1. literal; data-name; figurative constant 
2. numeric; nonnumeric or alphanumeric 
3. data-name 
4. data-name 
5. enclosed in quotation marks; has an alphabetic character 
6. 453; 453 
7. nonnumeric literal 
8. enclosed in quotation marks 
9. XXX or K(3) 
10. is not (Note: Literals appearing in the PROCEDURE DIVISION need not be defined 
elsewhere in the program.) 
11. numeric literal 
12. contains no alphabetic character 
13, 99999 or 9(5) 
14. figurative constant 
alphanumeric or alphabetic 
blanks or spaces 
15. alphanumeric or numeric; 0's 
Note: Zero is a valid numeric and alphanumeric character. 
16. nonnumeric literal, (Note: It is enclosed in quotes.); the word SPACES 


I, Numeric MOVE 


We will divide our discussion of the MOVE statement into two parts: numeric 
MOVE operations and nonnumeric MOVE operations. We will leave the discus- 
sion of the nonnumeric MOVE until the next section. 
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Example 2 
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A numeric MOVE operation may be defined in two ways: 


1. Movement of a numeric field to another numeric ffeld. 
2. Movement of a numeric literal to a numeric field. 


A. When Sending and Receiving Fields Have the Same P1C Clauses 
Consider the following, where both fields have numeric PIC clauses: 


MOVE data-name-1 TO data-name-2 | 


As indicated, if the size of both fields is identical, the contents of data-name- 
2 will be replaced with the contents of data-name-1 ; the sending field will be 
unchanged. 


Operation: MOVE FIELDA TO FIELDB | 


FIELDA PICTURE 999 FIELDB PICTURE 999 
Contents 123 Contents 456 
Operation: MOVE FIELDC TO FIELDD ] 
FIELDC PICTURE g9\99 FIELDD PICTURE g99\99 
Contents 12,34 Contents 45,67 


An implied decimal point after the first two digits means that the contents of FIELDC 
is interpreted as 12.34. 


The first example, as illustrated in the previous section, copies the contents 
of FIELDA, 123, into FIELDB. 

Although it is not quite as obvious in Example 2, the receiving field will 
contain the very same contents as the sending field. 12,34 thus is interpreted 
by the computer as 12.34. (You will recall that the decimal point does not 
actually appear in numeric fields.) In other words, the MOVE operation main- 
tains decimal alignment. 


B. When Sending and Receiving Fields Have Different P1C Clauses 


Often in a COBOL program, it will be necessary to move one numeric field 
to another, where the sizes of the two fields differ. You might want to move 
a smaller field to a larger one to perform an arithmetic operation on it, or to 
move a work area with precision of three decimal places (999) to an output 
area that requires precision of only two decimal places (V99). In both cases, 
the MOVE operation will not produce in the receiving field the same contents 
as the sending field, since the sizes of the two fields differ. Note that in no 
case is any data of the original receiving field retained after the MOVE. 

Two rules will apply in all numeric MOVE operations—one for the move- 
ment of the integer portion of a number, and one for the decimal or fractional 
portion. Let us focus first on the rule for integer moves. 


1. Moving Integer Portions of Numeric Fields 


Rule 1: Moving Integer Portions of Numeric Fields 


When moving an integer sending field or an integer portion of a nu- 
meric sending field to a numeric receiving field, movement is from 
tight to left. All nonfilled high-order (leftmost) integer positions of the 
receiving field are replaced with zeros. 
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Example 3 Operation: MOVE FIELD1 TO FIELD2 
FIELD1 PICTURE 999 FIELD2 PICTURE 9(4) 
Contents 123 Contents 4567 


According to Rule 1, movement is from right to left: 


(a) The 3 in FIELD1 replaces the 7 in FIELD2. 
(b) The 2 in FIELD1 replaces the 6 in FIELD2. 
(c) The 1 in FIELD1 replaces the 5 in FIELD2. 


and all nonfilled high-order positions are filled with zeros: 
(d) 0 replaces the 4 in FIELD2. 


Thus we obtain 0123 in FIELD2. As noted, no portion of the original contents of 
the receiving field is retained after any MOVE is performed: 


Before MOVE 


LZ 3 | 4[5|6|7 | 
| 
| 

ue 


FIELDL FIELD2 
After MOVE 
G0 2 3) 

11213 | Vababaed 

FIELD1 FIELD2 


Example 4 Operation: MOVE FIELD3 TO FIELDA 
FIELDS PICTURE 999 FIELD4 PICTURE 99 
Contents 012 Contents 34 


(a) The 2 of FIELDS will replace the 4 of FIELD4. 
(b) The 1 of FIELDS will replace the 3 of FIELD4. 


The operation will terminate at this point, since the receiving field is filled. FIELD4 
will have contents of 12, while F1ELD3 will remain unchanged: 


font 


Before MOVE 


o |i 2 3 14 

FIELD3 FIELD4 
After MOVE | 

1 2 

oj1 {2 | 

FIELD3 FIELD4 


A good rule-of-thumb to follow in numeric MOVE operations is to be sure 
that the receiving field has at least as many whole number or integer positions 
as the sending field. If the receiving field has more integer positions than the 
sending field, the high-order positions of the former will be replaced with 
zeros, which do not affect the result. If, however, the receiving field has fewer 
integer positions than the sending field, as in the above, you may inadvertently 
truncate or cut off the most significant digits. 
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Operation: MOVE TAKE-HOME-PaAY TO AMT-OF-CHECK 


TAKE-HOME-PAY PICTURE 9(4) AMT-OF-CHECK PICTURE 999 
Contents 1000 Contents 999 


In this example, the receiving field is only three positions long. Since movement of 
integer positions is from right to left, 000 will be placed in AMT-OF-CHECK. The high- 
order 1 is truncated, a fact that will undoubtedly upset the check’s recipient. 


If a sending field has more integer positions than a receiving field, most 
compilers will print a warning-level syntax error during compilation. This will 
not, however, affect execution of the program, so the programmer must be 
careful to ensure that the receiving field has at least as many integer positions 
as the sending field. 


2. Moving Decimal Portions of Numeric Fields 

We will now consider the movement of fields that have fractional components, 
that is, numeric fields with decimal positions following the implied decimal 
point. The rule is as follows: 


Rule 2: Moving Decimal Portions of Numeric Fields 


When moving a decimal or fractional portion of a numeric sending 
field to the fractional portion of a numeric receiving field, movement 
is from left to right, beginning at the implied decimal point. Low-order 
(rightmost) nonfilled decimal positions of the receiving field are re- 
placed with zeros. 


Operation: MOVE FLDA TO FLDB 


FLDA PICTURE g99y99 FLDB PICTURE g9V999 
Contents 12,34 Contents 56,789 


The integer portion of FLDA replaces the integer portion of FLDB, according to Rule 1. 
The decimal portion of each field contains the following: 


3,4 718 |9 


“ N 
FLDA FLDB 


According to Rule 2, movement is from the implied decimal point on and is from left 
to right: 


(a) The 3 of FLDA replaces the 7 of FLDB. 
(b) The 4 of FLDA replaces the 8 of FLDB. 


Low-order nonfilled decimal positions of the receiving field are replaced with zero: 
(c) 0 replaces the 9 of FLDB. 


Thus we have 


FLDB 


Example 7 


Example 8 


Example 9 


Example 10 
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Operation: MOVE FLDC TO FLDD 


FLDC PICTURE Y9S FLDD PICTURE Yd 
Contents ,12 Contents ,3 


In Example 7, movement from the implied decimal point on is from left to right. Thus 
the 1 of FLDC replaces the 3 of FLDD. The operation is terminated at this point since 


FLDD is only one position. 


Operation: MOVE FLDE TO FLDF 


FLDE PICTURE 9999 FEOF PICTURE 99 
Contents 123,4 Contents 00 


Since integer movement is from right to left, the 3 of FLDE replaces the low-order 0, 
and 2 of FLDE replaces the high-order zero. Since there are no more integer positions 
in the receiving field, the integer portion of the move is terminated. The operation 
itself is terminated at this point, since there are no decimal positions in FLDF. Thus 
the contents of FLDF is 23: 


iJ2]3ala4 a] 3 | 


FLDE FLDF 


C. Moving Numeric Literals to Numeric Fields 
The second form of a numeric MOVE is as follows: 


MOVE literal To data-name 


where the literal and the data-name are both numeric. 

Numeric literals are moved to data fields in exactly the same manner as 
numeric fields are moved. The same rules for moving integer and decimal 
portions of one field to another apply. 


Operation: MOVE 123 TO FLD1 


FLDL PICTURE 9(4) 


Since we are concerned with integers only in Example 9, movement is from 
right to left and nonfilled high-order positions of the receiving field are re- 
placed with zeros. Thus we obtain 0123 in FLD1. Treat the literal 123 as if it 
were FLD with a PICTURE of 999, contents 123, and proceed as previously; 
that is, it is as if MOVE FLD TO FLD1 is performed. This method can be applied 
to movement of all numeric literals. 


Operation: MOVE 123 TO FLD2 


FLD2 PICTURE 99 


In this case, truncation occurs because the receiving field cannot accommodate all 
integers of the sending field. Since movement is from right to left, FLb2 becomes 23. 
This would be the same result if the operation were MOWE FLD “0 FLD2, where FLD 
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had a PICTURE of 999, contents 123. The truncation that occurs is undesirable since 
the most significant digit, the hundreds place, is not transmitted to the receiving field. 


Operation: MOVE 12.34 TO FLD3 


FLD3 PICTURE 99V999 


Note that a numeric literal is coded with a decimal point where intended, while a 
decimal point is only implied in the data-field, FLD3. The integer positions of the 
sending field are transmitted with a result of 12 in the corresponding positions of FLD3. 
Movement from the implied decimal point on is from left to right, the result being 34 
in the first two decimal positions of FLD3. Nonfilled low-order decimal positions of 


FLD3 are replaced with zero. Thus we obtain[ 1 ]21]3 14 L.0 | in FLD3. Note again 
ry 


that the result is the same as if we had performed the operation MOVE FLD To FLD3, 
where FLD had a PICTURE of 99499, and contents 12,34. 


Thus, the numeric MOVE operation functions exactly the same whether the 
sending field is a literal or a data-name. Treat a numeric literal as if it were a 
data field in storage, and proceed according to the two rules specified. 


Self-Evaluating Quiz 


1. When moving integer portions of sending fields to receiving fields, movement is 
from _______ to _______. High-order integer receiving positions that do not 
receive digits from the sending field are replaced with zt 

2. When moving decimal portions of sending fields to receiving fields, movement is 
from ________ to _______. Low-order decimal positions that do not receive dig- 
its from the sending field are filled with 


Use the following statement to complete Questions 3-8: 


MOVE TAX TO TOTAL 


TAX TOTAL 

PICTURE Contents PICTURE Contents (after MOVE) 
3. 99V99 10,35 999V999 
4. 99V9 87,2 999 
5, 9(4) 1234 999 
6. V99 Al2 v9 
7. 99V99 02,34 9V9 
8. 9V9 1,2 — A20 
9. The particular questions from the above group that might give undesirable results 


are 


10. The operation MOVE 12.487 TO WORK is performed. To obtain the exact digits of 
the literal in the field called work, its PICTURE clause must be 


Use the following statement to complete Questions 11-16: 


MOVE 12,35 TO AREA-1 * 


AREA-1 
PICTURE Contents 
1. 999V99 
12. 999V9 
13. 999V999 
4. 9V9 
15. V999 


Solutions 
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14, 
15. 
16. 
17. 


Go BY Ge Gr Ew Bee 


0123 
In a numeric MOVE operation, there (are, are not) instances when some significant 
portion of the original data in the receiving field is retained. 


right, left; zeros 
left; right; zeros 
- 010,350 

037 

2.34 

al 

23 

v9o9o 


5, 7, 8—Truncation of the high-order or most significant digit occurs. (In 7, how- 
ever, we do not lose a significant integer since 02 is transmitted as 2.) 


. 99V999 

. 012,35 

. 012,3 

. 012,350 

23 

350 

999V9 

are not (Note: All positions of the receiving field are replaced either with positions 
of the sending field or with zeros.) 


ieee) IV. Nonnumeric or Alphanumeric MOVE 


Example 1 


treated as a nonnumeric move. There is only one rule for such moves. 


A. Basic Rules 


You will recall that the MOVE operation was separated into two categories: 
numeric MOVE and nonnumeric or alphanumeric MOVE. The latter is discussed 
in this section. By a nonnumeric MOVE operation, we mean: 


NONNUMERIC OR ALPHANUMERIC MOVE 
1. Movement of an alphanumeric or alphabetic field, defined by a PIC- 
TURE of Xs or 4’s, to another alphanumeric or alphabetic field. 
2. Movement of a nonnumeric literal to an alphanumeric or alphabetic 
field. 
3. Movement of a numeric field or numeric literal to an alphanumeric 
field or to any group item. 


Thus, when the receiving field has a PICTURE of A’s or X’s, the move is 


RULE FOR NONNUMERIC OR ALPHANUMERIC MOVES 


In a nonnumeric move, data is transmitted from the sending field to 
the receiving field from left to right. Low-order or rightmost positions 
of the receiving field that do not receive data are filled with spaces. 


Operation: MOVE FLDA TO FLDB 


FLDA PICTURE XXX FLDB PICTURE X(S) 
Contents ABC Contents DEFGH 
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According to the rule, data is transmitted from left to right. Thus: 


(a) The A of FLDA replaces the D of FLDB. 
(b) The B of FLDA replaces the E of FLDB. 
(c) The C of FLDA replaces the F of FLDB. 


Low-order positions of FLDB are replaced with spaces. Thus: 


(d) A blank replaces the G of FLDB. 
{e) A blank replaces the H of FLDB. 


Before MOVE 


DL E| Fi G] J 


FLDA FLDB 
After MOVE 
ABCA sz 
A| B] c Buibeae-ieal 
FLDA FLDB 


We are left with [A [TB[C] 
field is retained after the move. 
The effect of this operation would h 


4 = blank 


in FLDB. Again, no portion of the receiving 


ave been the same if the following were per- 


formed: MOVE ‘ABC’ TO FLDB. If we replaced a data-name with a nonnumeric literal 


having the same value, the result would 


be identical. 


Operation: MOVE CDE TO OUT-AREA, 


CDE PICTURE Xx(4) 
Contents NAME 


In this case: 


OUT-AREA PICTURE XXX 


Contents (spaces) 


(a) The N of cbE replaces the leftmost blank of OUT-AREA, 
(b) The A of CDE replaces the middle blank of OUT-AREA. 


(c) The M of cbE replaces the rightmost blank of OUT-AREA: 


Before MOVE 

N Al MLE [x BABA | 

CDE OUT-AREA 

After MOVE 

NTA] MIE N} AIM 

| CDE OUT-AREA 


The operation is terminated at this point, 


x = blank 


, since the entire receiving field is filled. Again 


truncation occurs, but this time it is the rightmost characters that are truncated. As 
in the case of numeric moves, truncation will be avoided if the receiving field is at 
least as large as the sending field. The result would have been the same if the following 


were performed: MOVE ‘NAME’ TO OUT- 
warning level syntax error will alert the 
larger than a receiving field. 


AREA. As in the case with numeric moves, a 
programmer to the fact that a sending field is 


Example 3 


Example 4 


Example 5 


Example 
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Operation: MOVE FLDA TO FLDB 
FLDA PICTURE 999 FLOB PICTURE XXKX 
Contents 321 Contents DCBA 


Note that although FLDA is numeric, this operation is considered to be an alphanumeric 
MOVE because the receiving field is alphanumeric. It is always the receiving field that 
determines the type of move. 

(a) The 3 of FLDA replaces the D of FLDB. 

(b] The 2 of FLDA replaces the C of FLDB. 

(c) The 1 of FLDA replaces the B of FLDB. 

(d) A space replaces the A of FLDB. 


FLDB then will contain 321) after the MOVE, where b represents a blank. 


Literals or figurative constants can also be moved to nonnumeric fields. 


| Operation: MOVE ‘ABC’ TO CODE~1 | 


0S CODE-1 PICTURE X(5) 
The result will be ABCbb in CODE~1, 


Operation: MOVE SPACES TO NAME-OUT 


OS NAME-OUT PICTURE X(5) 
Regardless of the size of NAME~OUT, it will contain all blanks after the MOVE. 


You may have observed that although nonnumeric MOVE instructions en- 
compass the movement of data from numeric to alphanumeric fields, no men- 
tion has been made of the reverse situation, the movement of alphanumeric 
to numeric fields. Suppose you know that FLOC, which has a PICTURE of X’s, 
has numeric data. Can FLDC be moved to a numeric field? Similarly, can MOVE 
‘123’ TO FLDD be performed if FLDD has a PICTURE of 9’s? The question can 
be simplified: Is it advisable to move alphanumeric fields or literals to numeric 
receiving fields? The answer is no. If you know that a field is numeric, define 
it with a PICTURE of 9’s. Never try to move alphanumeric fields to numeric 
fields. The move will be performed by the computer, but the results could 
cause an abnormal end or termination of the job if, for example, the receiving 
field is later used in an arithmetic operation. 


B. A Group Move Is Considered a Nonnumeric Move 


We now consider how group items, or fields that are further subdivided, are 
treated in MOVE operations. Note that group items, even those’ with numeric 
subfields, are treated as alphanumeric fields. 

Consider the following: 


OS DATEL. 
10 MONTH PICTURE 99, 
10 YEAR PICTURE 99. 
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Figure 7.1 
Permissible MOVE operations. 
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Because MONTH and YEAR are numeric fields, MOVE 1 TO MONTH and MOVE 85 TO YEAR 
would result in 0185 in DATE1. If, however, the programmer attempts to move data 
into DATE1, DATE1 will be treated as an alphanumeric field because it is a group item. 
Suppose JAN, 1985 is represented as 185’. The statement MOVE ‘185’ TO DATEi would 
erroneously result in 185b in DATE1. 


Consider the following: 
O1 REC-OUT. 


OS NAME-OUT PIC X(20), 
605 DATE-OUT PIC K(8),. 
03 ADDR-OUT PIC X(20), 


We could clear the entire output area with the following group MOVE instruc- 
tion: 


MOVE SPACES TO REC-OUT,. 


Figure 7.1 is a chart outlining the various MOVE operations. A check (,/) 
denotes that the move is permissible; an X denotes that it is not. 


Sending Field Receiving Field 

or Item Numeric Alphabetic Alphanumeric Group 
Numeric a pd J PA 
Alphabetic x J Z V 
Alphanumeric x / J Jv 
ZEROS | Figurative Vv x PA if 
SPACES | constants = v v v 
Group x ri Jv v 
“Transmitting a group or alphanumeric field to an alphabetic field may produce undefined results 


and is not recommended. 


Sending items are of six types: numeric, alphabetic, alphanumeric, the fig- 
urative constant ZEROS, the figurative constant SPACES, and group. Numeric, 
alphabetic, and alphanumeric sending items can be either data-names or lit- 
erals. A numeric data field is moved in the same manner as a numeric literal. 
The receiving fields refer only to data fields: numeric, alphabetic, alpha- 
numeric, and group. A literal or figurative constant cannot serve as a receiving 
field. 

Note that when mixed formats appear, the MOVE operation, if permissible, 
is always performed in the format of the receiving field. 


Self-Evaluating Quiz 


1. In a nonnumeric move, data is transmitted from —_______ to 


2, In a nonnumeric move, if the receiving field is larger than the sending field, 
right-, left-) most positions are replaced with _____. 


Use the following statement to complete Questions 3-5: 


MOVE FLDi TO FLD2 


FLD1 FLD2 
PICTURE Contents PICTURE Contents 
3. X(4) ABI X(6) 
4. x(a) ABI2 X(3) 
5. XXX ABC AB 
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Solutions 1. left; right 

2. right-; spaces or blanks 

3. AB12bb (b denotes a blank) 
4, AB1 

5. 


xX 


(Ea ac a] V. Other Options of the MOVE Statement 


A. The MOVE CORRESPONDING Statement 


The MOVE CORRESPONDING statement is an option of the simple MOVE com- 
mand. The format is as follows: 


Format 
You will recall that a group item is a data field or record that is further 
subdivided into elementary entries. In the MOVE CORRESPONDING statement, 
all items within group-item-1 that have the same names as corresponding 
items in group-item-2 will be moved. 
Example 1 


i 16 20 24 28 ET] 36 a0 mH a8 Be fd wo a w 7 

FFT Hove confesponyiey Re onb-a} ror Recomb=aLl THT HTT TTT 
aD | | rt a a a a 

With this option of the MOVE command, all data fields in RECORD~1 that have the same 

names as data fields in RECORD-2 are moved, The same-named data fields in RECORD- 

2 need not be in any specific order. Any fields of the sending record, RECORD~1, that 


are not matched by the same-named fields in the receiving record, RECORD-2, are 
ignored. Sending fields, as in all MOVE operations, remain unchanged. 


Up to this point, we have been using unique names for different fields. 
Before we can use the MOVE CORRESPONDING statement, however, we must 
establish fields with the same name within two different records or group 
items. Consider the following: 


Contents Contents Contents Contents 
before after before after 
O1 RECORD-1, MOVE MOVE O1 RECORD-2, MOVE MOVE 
OS NAME PIC X(G), ARNOLD OS NAME PIC X(G)s PETERS ARNOLD 
05 AMT Pic gggyva9, 100,00 O5 DATEX PIC 9(4), 0584 0685 
O05 TRANS PIC X(5). 12.345 05 AMT Pic g99v99, 00000 10000 
O5 DATEX PIC 9(4). 0685 o5 prsc Pic yg, ald Al0 


‘ 
+ 


MOVE CORRESPONDING RECORD-1 TO RECORD-2, 


Thus, we see that the MOVE CORRESPONDING performs a series of simple moves. 
All fields in RECORD-1 with the same name as fields in RECORD-2 are moved. 
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ol 


IN-REC, 
05 DATEX 
0S AMT 
OS HRS 
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NAME, AMT, and DATEX of RECORD-2 are not in the same order in which they 
appear in RECORD-1. The contents of these fields in RECORD-1 are, neverthe- 
less, transmitted to the same-named fields in RECORD-2Z, regardless of the 
order in which they appear. 

Entries in RECORD-2 for which there are no corresponding items in RECORD- 
1 are unaffected by the MOVE CORRESPONDING statement. For example, DISC, 
a field in RECORD-~2, retains its original contents, since there is no correspond- 
ing DISC field in RECORD-1. 

Entries in RECORD-1 for which there are no corresponding items in RECORD - 
2 are not transmitted. For example, TRANS, a field in RECORD-1, is not moved, 
since there is no corresponding TRANS field in RECORD-z2. In all cases, sending 
fields remain unchanged after the MOVE. 

All rules for MOVE operations apply to MOVE CORRESPONDING statements. 
For numeric MOVE operations: 


NUMERIC MOVE 


1. Integer data is right-justified in the integer portion of the receiving 
field. For example, 075 moved to a two-position numeric field is 
transmitted as 75. 

2. If the receiving field has more integer positions than the sending 
field, high-order positions are replaced with zeros. For example, 524 
moved to a numeric field with PIC 9(4) is transmitted as 0524. 

3. Decimal data is decimally aligned. For example, .23 moved to a nu- 
meric field with PIC V9 is transmitted as ,2; .23 moved to a nu- 
meric field with PIC ¥9(3) is transmitted as ,230. 


For nonnumeric MOVE operations: 


NONNUMERIC MOVE 
1. Data is left-justified in the receiving field. For example, ABC moved 
to a two-position nonnumeric field is transmitted as AB. 
2. If the receiving field is larger than the sending field, low-order posi- 
tions are replaced with spaces. For example, ABC moved to a four- 
position nonnumeric field is transmitted as ABCh. 


A numeric field may be moved to an alphanumeric field, but moving alpha- 
numeric fields to numeric fields can cause program errors. 


Example 2 
MOVE CORR IN-REC TO OUT-REC, 
Contents 

Contents after 
PIC X(15), JANUARY 15, 1985 O01 OUT-REC, MOVE 
PIc 999, 023 O5 DATEX PIC X(15). JANUARY 15, 1985 
PIC 99, 40 O35 AMT Pic 99, 23 

O35 HRS PIc 999. 040 


Note that when using the MOVE CORRESPONDING option, all data-names 
that will be transmitted from the sending field must have the same name as 
corresponding items in the receiving field. 
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Consider the following input and output areas: 


O1 RECORD-A, ot RECORD-B 
0S NAME PICTURE K(10)4 OS NAME PICTURE X(10)+ 
05 DB-AMT PICTURE 99. OS DB-AMT PICTURE 93. 
O5 CR-AMT PICTURE 99. O5 CR-AMT PICTURE 99, 


In this case, it would be inefficient to use the MOVE CORRESPONDING option. 
It is more advantageous simply to say: 


MOVE RECORD-A TO RECORD-B 


since all items in RECORD-A have identical PICTURE clauses and the same 
relative locations as items in RECORD-~-B. 

The MOVE CORRESPONDING option is used to replace a series of simple MOVE 
instructions. All fields in the sending area are moved to the same-named fields 
in the receiving area. All rules for MOVE operations hold when using the MOVE 
CORRESPONDING option. Note, however, that fields to be moved must have 
the same name in the sending and receiving group items. 


SUMMARY OF MOVE CORRESPONDING 
1. Purpose: To replace a series of simple MOVE instructions. 
2. Result: (a) All fields in the sending area are moved to the 
same-named fields in the receiving area. 

(b) Field names in the receiving area that do not 
correspond to fields in the sending area remain 
unchanged. 

3. Rules: All rules for MOVE operations apply. 


B. Qualification of Names 


Many installations discourage use of the MOVE CORRESPONDING statement 
because the statement could lead to errors if a program is later modified. 
Suppose a data-name is changed during program modification, and the standard 
MOVE was used for transmitting data. During compilation, a syntax error will 
occur, alerting the programmer to the fact that the MOVE statement is invalid 
because a data-name is undefined. With a MOVE CORRESPONDING, however, 
the change in an elementary data-name will simply mean that the MOVE is 
not performed for that data-name; no error message will occur. An error of 
this type may go undetected for some time before it is discovered. 

Many installations use predefined FDs with record- and field-names that are 
stored ina library and called into individual programs as needed. In such cases, 
where data definitions are stored, maintained, and modified independent of 
user programs, the MOVE CORRESPONDING is avoided entirely. 

Instead of a MOVE CORRESPONDING, we may use qualification of names to 
access individual fields that have the same name within different records or 
group items. Consider RECORD~1 and RECORD-2 in Example 1 above; we could 
code the following in place of the MOVE CORRESPONDING: 


MOVE NAME OF RECORD-1 TO NAME OF RECORD~2. 
MOVE AMT OF RECORD-1 TO AMT OF RECORD-2, 
MOVE DATEX OF RECORD-1 TO DATEX OF RECORD-2, 


In the PROCEDURE DIVISION, when accessing a data-name that is not unique, 
the name must be qualified. If the same name is used to define fields in 
different records or group items, indicate which record or group item is to be 
accessed by qualifying the data-name. We cannot say, for example, ADD AMT 
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TO TOTAL, since AMT is the name of two different fields and it is unclear which 
is to be added. We could say instead ADD AMT OF RECORD-1 TO TOTAL. 

When more than one field in storage has the same name, we qualify the 
name in the PROCEDURE DIVISION as follows: 


Format 


Examples 


ciate 


CEL 
aul ianni 
UTES HHGGHLGRHGGAES 


Whenever a name is used more than once in the DATA DI VISION, it must be qual- 
ified when it is processed in the PROCEDURE DIVISION. The words OF and IN may be 
used interchangeably to qualify a name. 

A field name may be qualified by using oF or IN with the name of a record or group 
item of which the field is a part. Consider the following: 


o 


[7[8 2 
>) | 
LTT igs 
Li 


52 a) 


If the data-name SEX defines several fields in the DATA DIVISION, the SEX field 
may be accessed as: 


SEX OF REC-1 
or 
SEX OF CODEX 


Both REC-1 and CODEX serve to uniquely identify the SEx field referenced, 


— 
SUMMARY OF QUALIFICATION OF NAMES 

. File-names and record-names must always be unique. 

2. Names that define data fields within records need not be unique. 
That is, the same name may define several fields in different 
records of the DATA DIVISION. 

3. Each time these fields are individually accessed in the PROCEDURE 
DIVISION, however, they must be qualified. 

4. The format used to qualify a field is: 


OF | J record-name 
data-name : 
IN| | group-item-name 


a 


Coding the same data-name to define several fields in separate records is 
frequently considered a useful programming tool. Many people believe that 
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PROCEDURE DIVISION entries are easier to understand for someone reading 
the program, and easier to debug, when qualification of names is used. 

On the other hand, some installations prefer programmers to use unique 
names with descriptive prefixes or suffixes to define data. To say, for example, 
MOVE AMT-IN TO AMT-QUT, where AMT-IN is an input field and AMT-OUT is 
an output field, is frequently considered the best form. Similarly, to say MOVE 
ZEROS TOWS-TOTAL in the PROCEDURE DIVISION makes it clear that TOTAL 
is a WORK ING-STORAGE (WS) entry. 

We recommend that you use either unique names or qualification of names, 
rather than the MOVE CORRESPONDING in your programs. 


C. Performing Multiple Moves With a Single Statement 
The full format for a MOVE statement is as follows: 


Full Format 


The dots at the end of the statement mean that a single sending field can 
be moved to numerous receiving fields: 


Example MOVE ‘ABC’ TO CODE-1+ CODE~21 CODE-3, 


If CODE-1, CODE~2z, and CoDE~3 each has a PIC of ¥(3), then the literal ABC will 
be transmitted to each of the three fields. Recall that the commas in this example are 
for readability only; they have no significance to the compiler. 


One way of initializing a series of fields to zero at the beginning of a pro- 
cedure is to use a multiple move: 


MOVE ZERO TO AMT-OUTy TOTAL-OUT»s COUNTER: 


a vi. Moving Data to Fields in a Print Record 


A. Spacing Output Data for Readability 
Consider the following: 


Actual Value for 
the First Record 


05 CUST-NO PIC 9(5). 002.87 
OS AMT-OF-TRANS PIC 9(5)V90. 1234567 


Suppose we wish to print the contents of each IN-REC. We could code the 
OUT-REC descriptions as follows: 


O1 OQUT-REC, 


05 FILLER PIC K(20)+ 
05 CUST-NO PIC 9(5), 

05 FILLER PIC X(20). 
OS  AMT-OF-TRANS PIc 9(5)¥va9, 
0S FILLER PIC X(81)4 


The FILLERs are to contain spaces for readability. If OUT-REC is initialized 
with SPACES, the FILLERs ensure that there will be blanks between each 
field. 


142 BASIC COBOL OPERATIONS 


Suppose we code the procedure as follows: 


PROCEDURE DIVISION, 
MAIN-MODULE. 
OPEN INPUT IN-FILE 
OUTPUT OUT-FILE. 
READ IN-FILE AT END MOVE 1 TO EOF, 
PERFORM PRINT-RTN UNTIL EOF = i, 
CLOSE IN-FILE 
OUT-FILE, 
STOP RUN, 
PRINT-RTNs 
MOVE SPACES TO OUT-REC. 
MOVE CUST-NO OF IN-REC TO CUST-NO OF OUT-REC, 
MOVE AMT-OF-TRANS OF IN-REC TO 
AMT-OF-TRANS OF OUT-REC, 
WRITE OUT-REC, 
READ IN-FILE AT END MOVE 1 TO EOF, 


This procedure would print as its first line: 


00287 1234567 
(CUST-NO) (AMT-OF-TRANS ) 


Note that the decimal point does not print in AMT-OF-TRANS since it is 
only implied. Thus, to someone reading the report, it would not be at all 
obvious that AMT-OF-TRANS is actually $12345.67. 

For printed output only, the P1C clause should contain punctuation or edit 
symbols that make the output readable. 


B. Printing a Decimal Point 


For printing a decimal point in an amount field, 0UT-REC may have the fol- 
lowing specifications: 


O1 QUT-REC, 


+ 
’ 


95 AMT-OF-TRANS PIC 9(5),949, 


In this instance, AMT-OF-TRANS is no longer a numeric field; it is a report- 
item, or edited field, suitable for printing. The decimal point actually uses a 
position of storage. Thus AMT-OF-TRANS of OUT-REC is eight characters long, 
whereas AMT-OF-TRANS in IN-REC is seven characters long. The MOVE will 
result in the transmission of 12345.67 to AMT-OF-TRANS of OUT-REC, which 
is far more appropriate for printed output. 


C. Printing a Dollar Sign 


We could also include the printing of a dollar sign in the output record by 
including the following in the PIC clause of AMT-OF-TRANS of OUT-REC. 


O1 QUT-REC, 


+ 
+ 


03  AMT-OF-TRANS PIC $9(5),99, 


In this case, $12345.67 would print for the first record. Note that AMT-OF- 
TRANS in OQUT-REC is now nine characters long. The final FILLER for OUT- 
REC, then, should have a PIC of X(79), not X(81) as originally specified. 

Many other types of editing can be performed. These are discussed fully in 
Chapter 12. 
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In summary, if a receiving field is to be printed, we use an actual decimal 
point rather than an implied decimal point in the Pic clause of the receiving 
field for readability. This makes the receiving field one character longer. A 
dollar sign may also be included, if desired. Any field with these edit symbols 
in its PIC clause is no longer numeric and may not be used in a calculation. 


— 
CHAPTER SUMMARY 
A, Numeric Move 
Sending and receiving fields are both numeric. 
Rules 
1. Integer Portion 
(a) Movement is from right to left. 
(b) Nonfilled high-order positions are replaced with zeros. 
(c) Truncation of high-order digits occurs if the receiving field is not 
large enough to accommodate the results. 
2, Decimal Portion 
(a) Movement is from left to right, beginning at the decimal point. 
(b) Nonfilled low-order positions are replaced with zeros. 
B. Nonnumeric Move 
Receiving field is nonnumeric. 
Rules 
. Movement is from left to right. 
2, Low-order nonfilled positions are replaced with spaces. 
3. Truncation of low-order characters occurs if the receiving field is not 
large enough to accommodate the results. 
C. The format of the receiving field determines the type of MOVE operation 
that is performed—numeric or nonnumeric, 
D. A field name may be qualified by using OF or IN with the name of a record 
or group item of which the field is a part. 
E. Report-Item 
_ A field to be printed, where the P1c clause contains edit symbols such 
as a dollar sign and a decimal point to make the output readable. 
2. Each edit symbol uses a position of storage. 
3. A report-item may not be used as part of a calculation. 


CHAPTER SELF-EVALUATING QUIZ 


OL 


RECORDA, 


OS 
(eke) 
OS 
(eke) 


FLDA 
AMT 
DATEX 
NAME 


PICTURE 
PICTURE 
PICTURE 
PICTURE 


1. With a MOVE CORRESPONDING statement, all fields in the sending area that 
will be moved to the receiving area. 


2. With a MOVE CORRESPONDING, the items in both areas (need not, must} be in the 
same order, 


3. With a MOVE CORRESPONDING, any item of the sending record or field that is not 
matched by a same-named item in the receiving area is 

4. The contents of sending fields are 

5. Fill in the missing entries: 


after a MOVE operation. 


MOVE CORRESPONDING RECORDA TO RECORDB. 


Contents Contents Contents 
before after after 
MOVE MOVE MOVE 
Ol RECORDB. 

Ke AB OS FLDA PICTURE XKXs 

9(5), o2345 03 DATEX PICTURE 99, 

9 (4), 0185 OS AMT PICTURE 9(G), 

KX(S)+ MARTE OS NAME PICTURE XXxK, 
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Solutions 
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10. 


oN 


spaces. 


. Indicate the results in each of the following cases: 


MOVE TAX TO TOTAL. 


TAX TOTAL 
PIC Contents PIC Contents 
(a) 9(3) 123 9(4) 
(b) vas AO7 Y9(3) 
(c) v99 AS 9(2) 
(d) 9(2) 67 gv9 
(e) 9(3)ya¢3) 123,123 9(4)\y99 


Indicate the results in each of the following cases: 


MOVE CODE-1 OF IN-REC TO CODE-1 OF OUT-REC 


IN-REC QUT-REC 
CODE-1 CODE-1 
PIC Contents PIC Contents 
(a) x(a) ZZYY X(5) 
(b) x(a) ABCD x(3) 


are altered during program modification. 


qualified when used in the PROCEDURE DIVISION. 


have the same name as items in the receiving area 
need not 
ignored or unchanged 


unchanged 

Contents of RECORDB: 
FLDA ABb 
DATEX 85 

AMT 002345 
NAME MAR 


Contents of RECORDA remains the same. 


F—Low-order nonfilled positions are replaced with spaces. 
. (a) 0123 (b} ,670 (c) 00 (d) 7,0 (e) 012312 
. (a) ZZYYb (b) ABC 


T 


. (T or F) In a nonnumeric move, high-order nonfilled positions are replaced with 


. (T or F) A MOVE CORRESPONDING may produce unintended results if data-names 
. (T or F) Two files may be given the same file-names as long as the names are 


Page 


137 
137 
137 
137 
138 


133 
138 
133 
139 


F—File-names (as well as record-names) must be unique; only names that 140 


define data fields may be qualified. 


PRACTICE PROGRAM 


Using the following problem definition, print all fields on a single line. Spacing is 
specified on the Printer Spacing Chart. For readability, place a period after each initial 
of the name, and a / between month and year of the date. Also print column headings 
at the top of the first page of the report. That is, print the word NAME above where the 
name field will be printed, and so on. See Figure 7.2 for a solution. (NOTE: Chapters 


12 and 13 will illustrate other methods for aligning and printing data.} 
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Systems Flowchart | 


PRINT-FILE. 


CUST-FILE 


CUST-FILE Record Layout 


12 13 14 15 


PRINT-FILE Printer Spacing Chart 


a}alalala 
2/a}4]s|6 


4 
U 


4 


a yafay italy 
s}2|3]4|5}6{715/9{0]1]2} 3/4}5} 


Headin, 
line 5 
Detail 

line 


solo} a}e|r|— 


Sample Input Data 


PQNEWMAN 0185901250 
RRREDFORD 9685123453 
ELTAYLOR 0485010000 
NBSTERN 8985020008 
TMKENNEDY 1185320005 


Sample Output 


NAME DATE OF TRANSACTION AMOUNT OF TRANSACTION 
P.Q.NEWMAN G1/85 GO1250 
R.R.REDFORD 06/85 123453 
E.L.TAYLOR 04/85 910600 
N.B.STERN 49/85 920000 
T.M. KENNEDY 11/85 326005 
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Figure 7.2 
Solution to Practice Program. 
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* 


* 


IDENTIFICATION DIVISION, 
PROGRAM-ID, SAMPLE7,. 


ENVIRONMENT DIVISION, 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. IBM-d341, 
OBJECT-COMPUTER., IBM-4341, 


INPUT-OU 
FILE-CON 


DATA DIVISION, 


FILE SECTION. 
FD CUST-FILE 

LABEL RECORDS ARE STANDARD, 
O1 CUST-REC, 

05 CUSTOMER-NAME, 


FD 


OL 


o1 


PUT SECTION, 
ROL, 


SELECT CUST-FILE ASSIGN TO DA-S-SYS001, 


SELECT PRI 


QO INITIAL~1 
10 INITIAL-2 
10 LAST-NAME 


OS DATE-OF-TRANSACTION, 
0 MONTH 
Oo YEAR 

05 AMOUNT-OF-TRANSACTION 

OS FILLER 

PRINT-FILE 

LABEL RECORDS ARE OMITTED, 

HEADINGI. 

OS FILLER 

OS LITERALi 

OS FILLER 

OS LITERAL2 

OS FILLER 

05 LITERAL3 

OS FILLER 

DETAIL-LINE. 

oS FILLER 

OS INITI-OUT 

OS POINT1 

OS  INIT2-OUT 

OS POINT2 

OS LAST-NAME-OUT 

0S FILLER 

0S MONTH-OUT 

OS SLASH 

03 YEAR-OUT 

OS FILLER 

0S AMOUNT-OUT 

oS FILLER 


WORKING-STORAGE SECTION, 
WORK-AREAS. 


ol 


oS 


EOF 


T-FILE ASSIGN TO UR-S-SYSOUT, 


PIC X(58), 


PIC X(6), 
PIC X(4), 
PIC X(5), 
PIC X(19). 
PIC X(3), 
PIC k(21), 
PIC X(75),. 


~ 


Ke 

Xe 

Ke 

Ke 

Xe 
K(10), 
K(B)+ 
99. 

Xe 

gg. 
PIC X(13). 
PIC 9G). 
PIC X(88). 


ee 


oaninnnnninn 


BuyvyyyywT 


PIC 9 VALUE Oo. 


THE MOVE STATEMENT 


* 


PROCEDURE DIVISION. 
MAIN-MODULE+ 


MOVE 


OPEN INPUT CUST-FILE 
OUTPUT PRINT-FILE, 
OVE SPACES TO HEADINGIL. 
OVE ‘NAME’ TO LITERALI. 
OVE ‘DATE OF TRANSACTION’ TO LITERAL2,. 
OVE ‘AMOUNT OF TRANSACTION’ TO LITERALS, 


STOP RUN, 
-RTNs 
OVE SPACES TO DETAIL-LINE. 

OVE ‘.’ TO POINTI» POINT2, 

OVE ‘/’ TO SLASH. 

OVE INITIAL-~1 TO INIT1-OUT. 

OVE INITIAL-2 TO INIT2-QUT. 

OVE LAST-NQME TO LAST-NAME-OUTs 
OVE MONTH TO MONTH-OUT. 

OVE YEAR TO YEAR-~OUT, 

OVE AMOUNT-OF=~TRANSACTION TO AMOUNT-OUT, 
RITE DETAIL-LINE. 


RITE HEADING1- 

READ CUST-FILE AT END MOVE 1 TO EOF. 
PERFORM MOVE-RTN UNTIL EOF 
CLOSE CUST-FILE 


i) 


PRINT-FILE+ 


READ CUST-FILE AT END MOVE 1 TO EOF. 
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ee KEY TERMS 


Edit symbol 


High-order position Receiving field 
Low-order position Report-item, 
MOVE Sending field 
MOVE CORRESPONDING Truncation 


Qualification of names 


REVIEW QUESTIONS 


I. True or False 


My 


fields. 


T or F) Elementary numeric items within a group item are treated as alphanumeric 


2. (T or F) Group items, although they contain elementary numeric items, are treated 


10. 


T or F 
(T or F 
TorF 
T or F 


(T or F 
unique 
T or F 


TorF 


as alphanumeric fields. 
ABCH will be moved to a three-position alphanumeric field as Cbb. 
95300 will be moved to a numeric field with PIC 9(3) as 300. 


92.17 will be moved to a field with a PICTURE of 999999 as 092,017. 
The statement MOVE ZEROS TO FLD1 is only valid if FLD1 is numeric. 
A MOVE CORRESPONDING statement requires fields in both records to have 


names. 
Blanks in a numeric field are valid characters. 


(T or F) Data is always left-justified in a field. 
Group items are never defined with PICTURE clauses. 
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Il, General Questions 
For Questions 1-11, determine the contents of the receiving field: 


Sending Field Receiving Field 
PICTURE Contents PICTURE Contents 

1. asy 12345 9(6) 

2. 99v99 12,34 9(3)¥9(3) 

3. 9¥99 7,89 avg 

4, 999y9 6789 g9yvag 

5. 99 56 XX 

6. 99 56 XXX 

7. XX AB XXX 

8. x(a) CODE XXX 

9. KKK 124 999 

10. Xxx ABC KXX 

11. Xxx ABC X(5) 


For Questions 12-15, determine the contents of FLDX if the operation performed is: 


MOVE 13,579 TO FLDX 


FLDX 
PICTURE Contents 
12. sgveg9 
13. 999¥9(4) 
14, 9¥g99 
15. 99V9 


For Questions 16-20, determine the contents of FLDY if the operation performed is: 


MOVE ‘NAME’ TO FLDY 


FLDY 
PICTURE Contents 
16. XXXX 
17. X(5) 
18. x(3) 
19, X(7) 
20. 9999 


SE BuGGING EXERCISES 


Consider the following PROCEDURE DIVISION entries: 
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PROCEDURE DIVISION. 
MAIN-MODULE, 
MOVE 1 TO EOF. 
READ TRANS-FILE AT END MOVE O TO EOFs 
PERFORM CALC-RTN UNTIL EOF = O+ 
CLOSE TRANS-FILE 
PRINT-FILE+ 
STOP RUN. 
CALC-RTN+ 
MOVE SPACES TO PRINT-REC. 
MOVE ACCT-NO TO ACCT-NO-QUT. 
WRITE PRINT-REC, 
MOVE SPACES TO PRINT-REC, 
MOVE TRANS-AMT TO AMT-OUT. 
WRITE PRINT-REC+ 
READ TRANS-FILE AT END MOVE © TO EOF. 


1. There is a major omission in the MAIN-MODULE that will cause a syntax error. 
Indicate what this omission is and provide the correct coding for the entry. 

9. Note that we move 1 TO EOF initially and then test it for 0 in an AT END clause. 
Will this work properly? Explain your answer. 

3. Suppose EOF has a PIC of X. Several syntax errors will result. Indicate why. 

4. There are two MOVE SPACES TO PRINT-REC sentences. Are they necessary? What 
would happen if you omitted the first? What would happen if you omitted the 
second? 

5. For each input record read, how many lines are printed? 

6. From this coding can you determine how many input records will be read? Explain 
your answer. 

7. Since the DATA DIVISION entries have not been provided, we have no way of know- 
ing the positions on the print line where ACCT-NO-OUT and AMT-OUT will print. 
They may print, for example, as: 

(ACCT-NO) 
CAMT-QUT) 


Suppose we want AMT-OUT to print directly below ACCT-NO: 


(ACCT-NO) 
(AMT -OUT) 


What entries in the DATA DIVISION would need to be modified to achieve this? 
Provide the coding that is necessary. 


SE PROGRAMMING ASSIGNMENTS 


1. Write a program to print data from a magnetic tape. The problem definition is shown 
in Figure 7.3. 


Notes: 

(a) Print the heading lines shown in the Printer Spacing Chart. 

(b) In addition to the tape fields, print the effective date of the run. Define effective date of 
the run as a literal (ANUARY 15). 
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Figure 7.3 Systems Flowchart 
Problem definition for Pro- 
gramming Assignment 1. 


PURCHASE-TRANS PURCHASE-REPORT 


32-position records 
standard labels 
15 records/block 


PURCHASE- TRANS Record Layout 


PURCHASE-REPORT Printer Spacing Chart 
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2. Write a program to print data from a payroll file. The problem definition is shown 
in Figure 7.4. 


Figure 7.4 — Systems Flowchart 
Problem definition for Pro- 
gramming Assignment 2. 


PAYROLL-MASTER PAYROLL-LIST 
80-position records 

standard labels 

20 records/block 


PAYROLL-MASTER Record Layout 


25 26 27 28 35 36 
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PAYROLL-LIST Printer Spacing Chart 
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3, Write a program to print a mailing list from a name and address file. The problem 
definition is shown in Figure 7.5. 


Notes: 
(a) Each input record generates three output lines. 
(b) Leave one blank line after each set of three lines is printed. 


Figure 7.5 Systems Flowchart 


Problem definition for Pro- 
— 


gramming Assignment 3. 
NAME-AND-ADDRESS-MASTER MAILING-LIST 
60- position records 
standard labels 
20 records/block 


NAME: AND-ADDRESS-MASTER Record Layout 


1 2021 40 41 60 


MAILING-LIST Printer Spacing Chart 
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4. Write a program to first create a sequential disk file from a tape file and then produce 
a listing of the records that are on the tape file. 


Notes: 
(a) Records in the tape and disk files both have the same format. 


1-5 Salesperson number 
6-25 Salesperson name 
26-27 Region number 
28-29 District number 
30-31 Office number 
32-61 Other data 
62-67 Commission earned (XXXX.XX] 
68-80 Other data 


Both files have standard labels and a blocking factor of 20. 
The printed report should contain all fields except those designated “Other Data’’ spaced 
across the line for each input record. Print the heading COMMISSION REPORT centered 


at the top of the page. In addition, print appropriate column headings to identify the fields 
that will be printed, 


(c) Print Commission Earned with a dollar sign and decimal point. 


(b 


The WORKING- 
STORAGE SECTION 


|. STORING DATA IN WORK ING-STORAGE 
A. Introduction 
B. Uses of WORK ING-STORAGE 
C. VALUE Clauses for WORK ING-STORAGE Entries 
1, The Purpose of VALUE Clauses 
2. Literals and Figurative Constants in VALUE Clauses 
3. Continuation of Nonnumeric Literals in VALUE Clauses From One Line to the Next 
4, Leaving Space for WORK ING-STORAGE Entries When Coding 
Self-Evaluating Quiz 
Il, PRINTING RECORDS USING WORK ING-STORAGE 
A. Use of VALUE Clauses for Printing Headings 
B. Printing Data Lines 
CHAPTER SUMMARY 
CHAPTER SELF-EVALUATING QUIZ 
PRACTICE PROGRAM 
KEY TERMS 
REVIEW QUESTIONS 
DEBUGGING EXERCISES 
PROGRAMMING ASSIGNMENTS 
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OBJECTIVES 


To familiarize you with: 

1. The way WORK ING-STORAGE is used in a COBOL program. 

2. How VALUE clauses are used in WORKING-STORAGE to initialize fields. 
3. The use of WORK ING-STORAGE for describing data to be printed. 


I. Storing Data in WORK ING-STORAGE 


A. Introduction 


The DATA DIVISION contains all storage areas necessary for the processing 
of data. It is subdivided into two main sections: the FILE SECTION and the 
WORKING-STORAGE SECTION, In the FILE SECTION, input and output files 
are defined and their records are described. The WORKING-STORAGE SECTION 
contains all other fields and records necessary for the processing of data. Any 
constants, intermediate totals, or work areas not part of the files but that are 
used in processing data are placed in the WORKING-STORAGE SECTION. Thus 
far, we have seen how an end-of-file indicator that we called EOF is used as a 
WORKING-STORAGE entry. As we develop more sophisticated programs, our 
use of WORK ING-STORAGE will expand considerably. 
The WORKING-STORAGE SECTION contains two categories of data: 


1. 01-level records and other group items that can be subdivided into ele- 
mentary items. 
2. Independent data items on the 77-level. 


If 77-level items are used, they must be coded first in the WORK ING-STOR- 
AGE SECTION if you are using a 1968 or 1974 ANS COBOL compiler: 


WORKING-STORAGE SECTION, 
77° SUM-TOTAL PIC 99, 
77° COUNTER PIC 9(3),. 


77° ~EOF PIC 9. 
O1 REC-1,. 
OS FIELD-A PIC 9(35). 


+ 
+ 


We will not emphasize the use of 77-level items in this text because it is 
more common to group all independent entries under one or more compre- 
hensive 01-level entries called, for example, STORED-AREAS or WORK-AREAS: 


WORKING-STORAGE SECTION. 
O1 STORED-AREAS,. 


05 EOF PIc 4, 
0S SUM-TOTAL PIC 99, 
05 COUNTER Pic 999, 


B. Uses of WORK ING-STORAGE 


The best way to illustrate how the WORKING-STORAGE SECTION is used is 
with examples. Keep in mind that the purpose of these examples is to explain 
the reason why WORKING-STORAGE is used in a program. The actual PROCE- 
DURE DIVISION entries necessary for using WORKING-STORAGE will be ex- 
plained as we proceed through the text. 


Example 1 


Example 2 
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Storing Intermediate Results 
Consider the following problem definition. 


Input CUST-TAPE 


Output — BILLING-DISK 


di 20 21 25 
BALANCE-DUE is equal to UNIT-PRICE multiplied by QUANTITY minus DISCOUNT-AMT 


Using the basic arithmetic verbs that will be discussed in detail in the next chapter, 
we would code the following to obtain the output BALANCE-DUE field: 


MULTIPLY UNIT-PRICE BY QUANTITY GIVING GROSS-AMT, 
SUBTRACT DISCOUNT-AMT FROM GROSS-AMT GIVING BALANCE-DUE. 


UNIT-PRICE, QUANTITY, and DISCOUNT-AMT are input fields defined for the cust - 
TAPE file, BALANCE-DUE is a field in the BILLING-DISK output file. GROSS-ANT, how- 
ever, is an intermediate result field necessary for calculating BALANCE -DUE, but it is 
not part of either the input or the output areas. As an intermediate result, it would be 
placed in a work area defined with an appropriate PICTURE clause in WORK ING-STOR- 
AGE. It could be defined as follows: 


WORKING-STORAGE SECTION, 
O1 WORK-AREAS, 

05 GROSS-AMT PIc 9(5)vg99, 
HHH 
##* ANY OTHER WORK AREAS NECESSARY 
*#* FOR PROCESSING WILL BE PLACED HERE 
RK 


xe OR O* 


As noted, we could also use a 77-level item for defining fields such as 
GROSS-AMT, but it is better to place GROSS-AMT within a group item called 
WORK-AREAS. 


Storing Counters 
Suppose we wish to count the number of input records contained within a file and 
store that number in a counter field. The following program excerpt could be used: 


MOVE ZERO TO COUNTER, 

READ INFILE AT END MOVE 1 TO EOF, 
PERFORM COUNT-THE-RECORDS UNTIL EOF = iy 
PERFORM PRINT-TOTALs 


+ 
+ 
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COUNT-THE-RECORDS, 
ADD 1 TO COUNTER. 
READ INFILE AT END MOVE i TO EOF, 


COUNTER could be a field defined in WORKING-STORAGE. It is incremented by one 
each time a record is read; hence, after all records have been processed, it will contain 
a sum equal to the total number of records read as input. COUNTER would be defined 
as part of WORK-AREAS in WORKING-STORAGE: 


WORKING-STORAGE SECTION. 
O1 WORK-AREAS. 

OS GROSS-AMT 

oS COUNTER 


PIC 9(5)yvg99, 
PIC 9(3),4 


Storing EOF 
We have been using the data-name EOF to serve as an end-of-file indicator. EOF is 
initialized at zero. During program execution, when an AT END condition is reached, 
lis moved to EOF. Thus, EOF contains a zero as long as there are still records to process. 
We perform a standard calculation or process routine on all records until EOF = 1; that 
is, until an AT END condition occurs, at which point 1 is moved to EOF. 

EOF would be an independent work field in WORK ING-STORAGE: 


WORKING-STORAGE SECTION, 
O1 WORK-AREAS, 


05S GROSS-AMT PIC 9(5)vgg, 
OS COUNTER PIC 9(3), 
OS EOF PIC 9, 


EOF is a field-name that is an abbreviation for end of file. Note that this is 
a programmer-supplied entry; any data-name could be used for this purpose. 
We could also define EOF in a different way, as follows: 


O1 WORK-AREAS, 
K(3)4 


oS EOF PIC 


In our PROCEDURE DIVISION we could indicate an end-of-file condition 


when EOF = 


PROCEDURE 
MAIN-MODUL 


‘YES’ as follows: 


DIVISION, 
E, 


+ 
+ 


MOVE ‘NO’ TO EOF. 
READ INFILE AT END MOVE ‘YES’ 
PERFORM PROCESS-RTN UNTIL EOF = 


' 


PROCESS-RTN, 


’ 


READ I 


TO EOF, 
YES’, 


FILE AT END MOVE ‘YES’ TO EOF, 
Some programmers prefer to establish an end-of-file indicator as an alpha- 


numeric field, with contents of ‘YES’ when the end of file is reached. 


Example 4 


Example 5 
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Storing Input and Output Records 
WORKING-STORAGE is also used for storing input and output records that must be 
retained for future processing. 

Suppose, for example, that the first input record during each run is a control record 
containing three fields that indicate: (1) the number of records that will be processed, 
(2) the total amount of all transactions, and (3) the date of the last transaction. This 
input control record could be manually produced or it may be the result of a prior 
program’s run. It can be entered on any input device such as a terminal. It is used by 
the program for comparison and for checking purposes. 

The actual number of records processed and the total amount of all transactions 
will be recalculated by the program and checked against the figures in an input control 
record to make certain that no records were lost before or during processing. The 
program can also check that all records have a date compatible with the date of the 
last transaction included in the control record. That is, the program can print as an 
error any input record with a date more recent than the date of the last transaction, 
as specified in the control record, 

After we read this control record, we must store it before we read the next record. 
Since each read command replaces the contents of an input area with the new input 
record’s data, we would need to move the control record’s contents to another storage 
area for future processing. We can establish a storage area for the control record in 
WORK ING-STORAGE as follows: 


WORKING-STORAGE SECTION, 
O41 WORK-AREAS » 


‘ 
’ 


OL CONTROL-RECORD: 


05 RECORD-COUNT PIC 9(3), 
05 TRANS-TOTAL PIC 9(6)v99, 
0S DATE-~IN PIC 9(6), 


To store this record, we may code: 


READ IN-FILE AT END MOVE 1 TO EOF, 
MOVE IN-REC TO CONTROL-RECORD, 


Thus, WORK ING-STORAGE can consist of group items such as WORK-AREAS and records 
such as CONTROL -RECORD. 


Storing Tables 

WORKING-STORAGE is frequently used to store table data. Table data refers to infor- 
mation that is stored by a program so that values can be looked up from the table for 
each input data record. 

Suppose, for example, that a company has four discount plans depending on the 
amount of sales transacted by each customer. If the discount percentages vary from 
week to week, we may read them in as table data and store them in WORK ING-STORAGE 
before processing each input transaction record. 


FILE SECTION. 
FD DISCT-FILE 

LABEL RECORDS ARE OMITTED. 
O1 DISCT-REC. 


0S RATE-~4 PIC V9(3), 
05 RATE-2 PIC V9(3), 
0S RATE-3 PIC YO(3)4 


2 
a 


RATE-4 PIC WO(3). 
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. The WORKING-STORAGE SECTION, like all section names, is coded 
. The WORKING-STORAGE SECTION must follow the FILE SECTION 


. Independent data items may be coded on the ©1 level or as subdivi- 


. The group item is coded on the 01 level in Area A; the independent 


. All elementary items must have PICTURE or PIC clauses: 
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WORKING-STORAGE SECTION. 


+ 
‘ 


O1 DISCOUNT-TABLE. 


OS DISCT-RATE-1 PIc vg99g, 
0S DISCT-RATE-2 PIc vgg9, 
05 DISCT-RATE-3 Pic vggg, 
0S DISCT-RATE-4 PIC vgg9, 


PROCEDURE DIVISION. 
MAIN-MODULE+ 


*LOAD THE DISCOUNT RECORD INTO THE TABLE * 


READ DISCT-FILE AT END MOVE 1 TO EOF, 
MOVE DISCT-REC TO DISCOUNT-TABLE, 


READ TRANS-FILE AT END MOVE 1 TO EOF, 
PERFORM CALC-RTN UNTIL EOF = 1. 


‘ 
+ 


Suppose DISCT-RATE-1 is a discount applied if a transaction amount on an input 
record is less than 100.00. We could code: 


IF AMT-OF-TRANS IS LESS THAN 100,00 
MULTIPLY AMT-OF-TRANS BY DISCT-RATE-~1 GIVING DISCT-AMT, 


The field called DISCT-RATE-1 is a discount rate stored in the table in WORKING- 
STORAGE. 


RULES FOR CODING WORK ING-STORAGE ITEMS 


in Area A. 
in the DATA DIVISION. 


sions of an 01. 77-level items could also be used. We will avoid 
77-level items since they are really unnecessary, that is, elementary 
fields within an 01 level item in WORKING-STORAGE help to 
organize entries more clearly. 


items would then be coded on some level subordinate to 01 (i.e., 
05, 10, and so on). 


Names given to items in this section conform to the rules for form- 
ing data-names. 


x denotes alphanumeric 
A denotes alphabetic 
9 denotes numeric 


Examples 
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C. VALUE Clauses for WORK ING-STORAGE Entries 


1. The Purpose of VALUE Clauses 
As in the FILE SECTION, the size of the field is indicated by the number of 
x’s, 9’s, or A’s in the PICTURE clause. 

Most computers do not automatically clear storage when reading in new 
programs. An area that is specified in the DATA DIVISION has an undefined 
value when a program begins execution. Unless the programmer moves an 
initial value into a field, it cannot be assumed that the field will contain blanks 
or zeros initially. 

Elementary items in the WORKING-STORAGE SECTION may be initialized; 
that is, they may be given initial contents by a VALUE clause. Thus there 
would be no need to MOVE a literal into these fields in the PROCEDURE 
DIVISION. 

To ensure that output records or fields specified in the FILE SECTION 
contain blanks when program execution begins, we move SPACES to these 
areas in the PROCEDURE DIVISION before any processing is performed. When 
fields are defined in the WORKING-STORAGE SECTION, however, we have the 
added flexibility of being able to initialize these areas by using a VALUE clause: 


WORKING-STORAGE SECTION. 

O1 WORK-AREAS. 
oS TOTAL PIc 999 VALUE ZEROS, 
0S CONSTANT~1 PIC XXXX WALUE SPACES, 


With some compilers, we may also use a VALUE clause on the group level if all 
items are to be initialized with the same value: 


OL WORK-AREAS VALUE ZEROS, 
05 COUNTER PIC 999. 
oS EOF PIC Oo. 


A VALUE clause is not required for any item. If it is omitted, however, no 
assumption can be made about the initial contents of the field. If no VALUE 
clause is coded, it is best to use a MOVE instruction in the PROCEDURE DIVISION 
to obtain an initial value in the field. 

Four entries, then, can be used to define independent or elementary items 
in the WORKING-STORAGE SECTION. We will always use the first three, but 
it is recommended that you use the fourth as well: 


ITEMS IN WORK ING-STORAGE 


1. Level 01, coded in Area A, may be used to define a group of inde- 
pendent or elementary items. These independent or elementary 
items would be coded on a level subordinate to 01. 

2. A programmer-supplied data-name defines each field. 

The size of a field and its data type are defined by the P1c clause. 

4. An initial value may be stored in the field by a VALUE clause de- 
fined on the elementary level. Some systems allow VALUE clauses 
to be defined on the group level for initializing a series of fields. 


@ 


2. Literals and Figurative Constants in VALUE Clauses 

The VALUE clause will contain a literal or figurative constant to be placed in 
the field. It must be the same data type as the PICTURE clause. If the PICTURE 
denotes a numeric field, for example, the value must be a numeric literal or 
the figurative constant ZERO. 
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WORKING-STORAGE SECTION, 
O1 WORK-AREAS, 


0S SOC-SEC-TAX-RATE PIc yvgg99 VALUE .0705, 
oS CONSTANT-1 PIC 9(5) VALUE 07600, 
oS TOTAL PIc 9999 VALUE ZERO, 


Notice that to say 05 TOTAL PICTURE 9999 VALUE ZERO is the same as setting 
up the 05 level item without the VALUE clause and issuing the following instruction 
in the PROCEDURE DIVISION before processing any data: MOVE ZERO TO TOTAL. Sim- 
ilarly, the entry 05 SOC-SEC-TAX-RATE PICTURE ¥9999 VALUE .0705 is the same 
as coding MOVE .0705 TO SOC-SEC-TAX-RATE before processing data, where 
S0C-SEC-TAX-RATE has no VALUE clause. 


Since the VALUE clause performs the same function as a MOVE, all rules for 
MOVE operations apply. Consider the following: 


28 R 36 40 44 cr 52 00, oa we 7 


Examples 


ER 


rrr 
This is the same as moving 12 to FLDA in the PROCEDURE DIVISION. According to 
the rules for numeric MOVE operations specified in Chapter 7, 012 will be placed in 
FLDA. In general, to obtain in the receiving field the same contents as the literal, use 
a PICTURE clause with the same length and number of decimal positions. That is, to 
obtain exactly 12 in FLDA, FLDA should have PICTURE 99. If FLDA has PIC 999, give 
it a VALUE of 012. 


The rules for alphanumeric moves also apply to elementary items in WORK - 
ING-STORAGE. If a field contains an alphanumeric or alphabetic PICTURE clause, 
its VALUE clause, if used, must contain a nonnumeric literal: 


* * 
* ALPHA FIELDS MUST HAVE VALUES ENCLOSED IN QUOTES * 
* * 


WORKING-STORAGE SECTION, 

01 WORK-AREAS, 
oS DATEX 
oS FLDB 


PIC X(5) 
PIC XXX 


VALUE ‘APRIL’, 
VALUE SPACES, 


It is poor programming style to say, for example: 


05 FLD1 PICTURE X VALUE 3, 


In fact, on some systems a syntax error will occur if the above is coded. If a field is 
defined with Pic x, the YALUE should contain a nonnumeric literal and not the value 
3, which is a numeric literal. The entry, therefore, is more appropriately coded as: 


OS FLD1 PICTURE X WALUE ‘3’. 


Similarly, we should not say 
O35 TOTAL PICTURE 99 YALUE SPACES, 


The above will always result in a syntax error. Digits 0-9, decimal points, and plus or 
minus signs are the only characters that may be used in a numeric literal. To clear a 
numeric field, we fill it with zeros, not blanks. The above entry should read: 


O35 TOTAL PICTURE 99 VALUE ZERO. 
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You may use commas to set apart PICTURE clauses from YALUE clauses; commas are 
optional, however, but if used, they must be followed by at least one blank. 


VALUE clauses for initializing fields may not be used in the FILE SECTION 
of the DATA DIVISION. Only WORKING-STORAGE entries may have VALUE 
clauses for this purpose. 

We have seen that we can initialize TOTAL by (1) moving zeros to it in the 
PROCEDURE DIVISION before processing any data or by (2) using a VALUE 
clause of zero in WORKING-STORAGE. If information is then accumulated in 
TOTAL during execution, the initial value of zero will be replaced: 


WORKING-STORAGE SECTION. 
O1 WORK-AREAS: 
oS TOTAL PIC 9(5) VALUE ZERO; 


' 


PROCEDURE DIVISION. 


+ 


ADD AMT-IN TO TOTAL. 


After the ADD instruction is executed the first time, TOTAL will have the value 
in ANT-IN and not zero. If, however, we did not initialize TOTAL with ZERO, 
the ADD would probably cause an abend, or program interrupt. If it did not 
cause an abend, the contents of TOTAL after the ADD would be unpredictable. 
When a field is not initialized, its contents at the beginning of the run cannot 
always be assumed to be zero or blank. 


Failure to initialize a field used in an arithmetic operation is a frequent 
cause of program abends or interrupts. 


We may use a WORKING-STORAGE entry defined with a VALUE in place of a 
literal in the PROCEDURE DIVISION. Consider the following coding: 


MpVETP ERE] roLCREDEFEARERLT THT HTT 


The above is the same as 


24 


26 2 36, 


MbVELEREDET| Tl EREDETEAREMLTT TTT TTT 


where CREDIT is an independent item defined as follows: 


ET 0 a rT B 30. wo oo 7a 


ERPREY KX LWALDECPERALTEE TET TA 


The programmer decides whether to use a WORKING-STORAGE data item to 
store a constant in a work area or to code the constant as a literal in the 
PROCEDURE DIVISION. As a general rule, however, any literal that will be 
used more than once in the PROCEDURE DIVISION should, instead, be given 
an assigned storage area and a data-name in WORKING-STORAGE. It is more 
efficient to use this data-name several times in the program than to redefine 
the same literal again and again in the PROCEDURE DIVISION. 
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You will recall that numeric literals and numeric fields may not exceed 18 
digits in length. Similarly, the VALUE and PICTURE clauses of a numeric item 
in the WORKING-STORAGE SECTION may not exceed 18 digits. 

A nonnumeric literal, however, may contain up to 120 characters. Similarly, 
a nonnumeric literal in a YALUE clause, like any other nonnumeric literal, is 
enclosed in quotes and contains a maximum of 120 characters. 


3. Continuation of Nonnumeric Literals in VALUE Clauses 

From One Line to the Next 

Since the VALUE clause for an alphanumeric field in the WORKING-STORAGE 
SECTION may contain as many as 120 characters, it is sometimes necessary 
to continue a VALUE clause from one line of the coding sheet to the next line. 
The continuation of nonnumeric literals to two or more lines conforms to the 
following rules. 


RULES FOR CONTINUATION OF LITERALS FROM ONE LINE TO THE NEXT 

Begin the literal in the VALUE clause with a quotation mark. 

. Continue the literal until position 72, the end of the line, is 

reached. Do not end with quotation marks on this line. 

3. Place a hyphen in the position marked CONTINUATION of the 
next line (position 7 of the coding sheet). 

4. Continue the literal in any position beginning in Area B of the next 
line. Begin with a quotation mark. 
5. End the literal with a quotation mark. 


Ea 


The same rules may be applied to the continuation of nonnumeric literals 
defined in the PROCEDURE DIVISION, 


1. The following illustrates the continuation of a literal to a second line: 


Continue to 


Open quotes column 72 


on each line 


co 7 


Hyphen in 
column 7 of 
all lines of literal 
except the first 


GSES OLS ED LAS GLASSES 


Close quotes only on 
last line of literal 


2. Figure 8.1 illustrates the continuation of a nonnumeric literal to three lines. 


28 @ 36, 40 cry co 52 Ey 


Figure 8.1 

Continuation of a nonnumeric 
literal to three lines in 

WORK ING-STORAGE. 


“HEHE rrr me 
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A nonnumeric literal may be continued from one line to the next when 
defined in the PROCEDURE DIVISION as well. Consider the following WORK- 
ING-STORAGE entry: 


26. a 36 40 mH 78 @ Ed co a we Fl 


PITRE bid HEH HHH HHH 


T 
r 
= 


Figure 8.2 illustrates the way in which a nonnumeric literal moved to F 
in the PROCEDURE DIVISION is continued from one line to the next. Note 
that the continuation rules are the same as specified above. 


literal continued from one line 
to the next in the PROCEDURE 


DIVISION. 


mG i 16 2 24 2 a2 26 70. cr a ca oy a cy 7 
CECB RE rot ope REC Re MELEE ECE TT | | 
LCCEPMOVEL MONTHLY. [| TRiANSlaciit (oN RI Ho HTH OF| | -DECeEM 
HEL HOE HE HH 
Figure 8.2 
Illustration of a nonnumeric 


4, Leaving Space for WORK ING-STORAGE Entries When Coding 

Elementary and group items in WORKING-STORAGE are an essential part of 
most programs. Literals, intermediate totals, and work areas are usually re- 
quired in a program. It is not always possible, however, to predict all the fields 
that will be needed before the PROCEDURE DIVISION is written. As instruc- 
tions are coded, a need for additional storage areas often arises. It is common 
practice, then, to allow space on the coding sheet for WORK ING-STORAGE en- 
tries prior to beginning the PROCEDURE DIVISION. As elementary or group 
items are required, they may be coded in the space provided on the coding 
sheet. 


Self-Evaluating Quiz 


1. The two main sections of the DATA DIVISION are the _______ SECTION and 
the, .____. SECT TOM. 
2. Independent data items such as , , and are defined 


in WORK ING-STORAGE. 


3. Independent items in WORK ING-STORAGE are usually coded as part of a 
item on the 01 level. 


4, The entry: WORKING-STORAGE SECTION is coded in Area ________, that is, be- 
ginning in column 

5. WORKING-STORAGE SECTION nt its entries follow the ________ SECTION and 
precede the _______. DIVIST0N in a COBOL program. 

6. Independent items in WORKING-STORAGE must have a number, a 

name, a clause, and may have a _______. clause if they are 

to contain an initial value. 

7. VALUE clauses to initialize fields may be used only in the ______ BEC TION. 


8. Values should, in general, be assigned to WORKING-STORAGE entries because 


9. The VALUE scsi may contain a._____ ora 
10. The VALUE specified for a field must be the same data type as vil iimeninnnClalige, 


Make any necessary corrections to the following statements (Questions 11-16}. As- 
sume correct margins. 
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11. WORKING STORAGE SECTION 

12. 05 FLD 1 PICTURE X VALUE SPACE. 
13. O05 FLDA PICTURE X VALUE 4. 

14. 05 FLDB PICTURE X VALUE ZERO. 

15. 05 FLDC PICTURE 99 VALUE SPACES. 
16. 05 FLDD PICTURE 99V99 VALUE 12.34. 


Solutions 1. FILE; WORK ING-STORAGE 

2. constants; intermediate totals; work areas 

3. group or record 

4. A; 8 

5. FILE; PROCEDURE 

6. level; programmer-supplied data-; PICTURE or PIC; VALUE 

7. WORKING-STORAGE 

8. storage areas are not automatically cleared at execution time 

9. literal (numeric or nonnumeric}; figurative constant 

10. PICTURE 

11. WORKING-STORAGE SECTION. Note the hyphen. 
12. FLD-1 or FLD1i—No embedded blanks within a data-name. 

13. 05 FLDA PICTURE X VALUE /4’. (The type of literal should be the same type as 

the PIc clause.) 

14. Nothing wrong—zero may be placed in either a numeric or a nonnumeric field. 
15. Numeric fields cannot have a value of SPACES. 

16. Nothing wrong. 


HE 11. Printing Records Using WORK ING-STORAGE 


A. Use of VALUE Clauses for Printing Headings 


For printed output, it is frequently necessary not only to print the results of 
processed input data but also to print lines containing headings, error mes- 
sages, final totals, and so on. To use the FILE SECTION to define multiple 
records in a print file is both cumbersome and inefficient. 

Suppose we code the FD for a PRINT-FILE as follows: 


FD PRINT-FILE 
LABEL RECORDS ARE OMITTED 
RECORD CONTAINS 133 CHARACTERS 
DATA RECORDS ARE HDG-LINE, DATA-LINE» TOT-LINE. 


Note that the computer will reserve just 133 positions of storage for the 
file’s output area. It does not reserve 133 positions for each record described. 
Thus the 01s for HDG-LINE, DATA-LINE, and TOT-LINE will all be specifying 
one 133-position area: 


Area reserved for PRINT-FILE 


—_— 


May be defined 
as either 
HDG-LINE, 

DATA-LINE, 
or TOT-LINE 


1 133 
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As aresult, the following type of coding will not produce the correct results: 


NET JAI) olarrla-lLIt Nel lulslel Ie! [slaMel [sf] plolsirislolvis| bel | i 

{ ITIH) S| IEIS| EPI ‘ nal) HIDIG: |— NEL. t Clears the print area | | | 

IV EIS TIAHILILIN | | | | | 
sa rints a blank line 

rt RT L Eo eT rT } {| 


If t 
and not as 
and DATA- 
ing ‘MONTHLY SALES REPO 
instruction that follows clears the same area 


the desired ‘MONTHLY SALES 


he above were executed, HDG-LINE wou 
REPQ 
LINE actually occupy the same 133 
RT’ is moved into 


d print erroneously as spaces 
RT’. This is because HDG-LINE 
positions of storage. The head- 
that 133-position area, but the 
O spaces. 


Because 


Fds establish only one area for defining all records for a specified 


file, processing can be cumbersome and debugging extremely difficult. To 
alleviate this problem of a single output area for multiple records, it is best 
to define each type of line to be printed as a separate 133-position area in 
WORK ING-STORAGE. Then, each record can be treated independently and moved 
to the print area when it is to be written: 


PRINT-FILE 
LABEL RECORDS ARE OMITTED, 
0 PRINT-REC PIC X(193). 


FD 


WORKING-STORAGE SECTION. 
* * 
* NOTE: EACH O1 OCCUPIES SEPARATE AREAS OF STORAGE, * 
* * 


Ol HDG-LINEs 


’ 
ry 
+ 


DATA~LINE. 


’ 
' 
‘ 


TOT-LINE, 
' 


’ 
+ 


* 
PROCEDURE DIVISION. 


QVE HDG-LINE TO PRINT-REC, 
WRITE PRINT-REC. 


OVE DATA-~LINE TO PRINT-REC, 
RITE PRINT-REC, 


= 


QVE TOT-LINE TO PRINT-REC, 
RITE PRINT-REC, 


= 
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Since printed output typically involves writing not only data lines but head- 
ing and total lines as well, programmers usually define the different records 
to be printed in WORKING-STORAGE and move them to the print area before 
writing. In summary, then, the first major reason for using WORK ING-STORAGE 
areas for describing multiple output formats is that WORKING-STORAGE re- 
serves separate areas for each of them. 

The second major reason for establishing print records in WORK ING-STOR- 
AGE is that we can use VALUEs to initialize fields to be outputted. This saves 
considerable coding of MOVE instructions in the PROCEDURE DIVISION. 

Consider the following HDG-LINE. 


a CeCe t an To 
T lis th aa OF SALES n HHH nnn | 


To obtain the appropriate output, we may code: 
WORKING-STORAGE SECTION. 


Ql HDG-LINE, 
05 FILLER PIC X(20),4 
0S LITERAL-1 PIC K(20). 
05 FILLER PIC X(20). 
05 LITERAL-2 PIC X(5)4 
05 PAGE-CT PIc 99, 
05 FILLER PIC X(66),. 


* 
PROCEDURE DIVISION. 


+ 
+ 


OVE SPACES TO HDG-LINE,. 

OVE ZEROS TO PAGE-CT, 

MOVE ‘’MONTHLY SALES REPORT’ TO LITERAL-1. 
QVE ‘PAGE’ TO LITERAL-2. 

PERFORM HDG-RTN. 


+ 
+ 


HDG-RTN+ 
ADD 1 TO PAGE-CT. 
MOVE HDG-LINE TO PRINT-REC. 
RITE PRINT-REC. 

It is rather cumbersome and inefficient to use the PROCEDURE DIVISION 
in this manner to define literals and move them to storage areas. We may use 
FILLERs with VALUE clauses to define fields and to provide them with values: 
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WORKING-STORAGE SECTION. 
Ol HDG-LINE, 


03 FILLER PIC X(20) VALUE SPACES, 
03S FILLER PIC X(20) 

VALUE ‘MONTHLY SALES REPORT’, 
OS FILLER PIC X(20) VALUE SPACES, 
0S FILLER PIC X(S) VALUE ‘PAGE’, 
OS PAGE-CT PIC 99 VALUE ZEROS, 
05 FILLER PIC X(66) VALUE SPACES, 


All fields, including those defined as FILLERs, are initialized with their ap- 
propriate VALUE clauses. We no longer need to move literals or constants to 
fields in the PROCEDURE DIVISION, thus we may substitute FILLER for the 
data-names LITERAL~1 and LITERAL-2, since we do not need to access these 
fields in the PROCEDURE DIVISION. Thus, using VALUE clauses and the WORK - 
ING-STORAGE SECTION, the PROCEDURE DIVISION is simplified considerably: 


PERFORM HDG-RTN, 


‘ 
’ 
+ 


HDG-RTN+ 
ADD 1 TO PAGE-CT, 
MOVE HDG-LINE TO PRINT-REC, 
WRITE PRINT-REC, 


B. Printing Data Lines 


You will find that using WORKING-STORAGE to store data lines to be printed 
also reduces programming effort. Consider the Printer Spacing Chart in Figure 
8.3. We wish to print the contents of an input record. The input record con- 
tains an AMT~IN field with PIC 999V99. As noted in the previous chapter, if 
AMT-IN contained 123,45 and we printed it as is, it would print as 12345 
because the decimal point is only implied. To actually print the decimal point, 
we code AMT-OUT with a PIC of 999.99, 


No ETT TTS EECEEUIeM EM EATeEASceeA A RCEAA RA RPEAR HUBBER HEE ABBE RARE Re RE 
i Ht tt FEE } 1 
5 Be. 1 Om A a rT 
6 1. '% 
7 
Ir Pelt Trrt FP TR 4 aii PH] FAH cAtHt 
Figure 8.3 
Sample Printer Spacing Chart. 
WORKING-STORAGE SECTION, 
O1 DATA-LINE. 
OS FILLER PIC X(2Q) VALUE SPACES, 
OS CUST-NO-OUT PIG G5) 
OS FILLER PIC X(20) VALUE SPACES. 
05 NAME-OUT PIC X(20), 
0S FILLER PIC X(10) VALUE SPACES, 
OS ADDR-OUT PIC X(20), 
OS FILLER PIC X(5) VALUE SPACES, 
OS AMT-OUT Pic 999.99, 
0S FILLER PIC X(27) VALUES SPACES, 
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NOTE: DECIMAL POINT IS ASSUMED WHEN A Y 15 USEDS 
TO ACTUALLY PRINT THE DECIMAL POINT CODE 
PERIOD INSTEAD OF V 


OK Ok OK OF 


For DATA-LINE, all FILLER areas that should contain blanks have been 
initialized with SPACES. The data for CUST-NO-OUT, NAME-OUT, ADDR-OUT, 
and AMT-OUT will be moved to these fields from the input areas by PROCEDURE 
DIVISION entries. Note that to print a decimal point in AMT-OUT, we include 
the decimal point itself in the PIC clause as a period, not as a V. 

A decimal point must not be used in a PIC clause of an arithmetic field 
since it is not a valid numeric character. In fact, decimal points are used only 
for print purposes and in numeric literals. The instruction MOVE AMT-IN TO 
AMT-OUT will work properly if AMT-IN has a PIC 8(3)V99. AMT-IN could be 
used in arithmetic operations, but AMT-QUT could not. Moreover, AMT~IN is 
a five-position field but AMT-OUT is a six-position field because it contains an 
actual decimal point. 

‘Assume that an error line is to print for input amount fields in excess of 
100.00. We could code this error line as follows: 


WORKING-STORAGE SECTION. 
O1 ERROR-MESSAGE. 


05 FILLER PIC X(20) VALUE SPACES, 
05 CUST-NO-ERR PIC 9(35). 

oF FILLER PIC X(20) VALUE SPACES, 
05 NAME-ERR PIC X(20), 

05 FILLER PIC X(20) VALUE SPACES. 
05 AMT-ERR PIc 999,99, 

OS FILLER PIC X¢(12) VALUE SPACES. 
oS FILLER PIC X(30) 

VALUE ‘TRANSACTION AMT EXCEEDS 100,00’. 


The relevant PROCEDURE DIVISION entries follow. The IF statement is 
used for illustrative purposes here and is self-explanatory (IF statements are 
explained in detail in Chapter 10): 


PROCEDURE DIVISION, 


' 


PERFORM ERROR-CHECK+ 


' 


ERROR-CHECK+ 
IF AMT-IN IS GREATER THAN 100,00 
MOVE CUST-NO-IN TO CUST-NO-ERR 
MOVE NAME-IN TO NAME-ERR 
MOVE AMT-IN TO AMT-ERR 
MOVE ERROR-MESSAGE TO PRINT-REC 
WRITE PRINT-REC, 


An error line prints if the input amount field is in excess of 100.00. Note 
that AMT-IN rather than AMT-ERR is compared to the numeric literal 100,00, 
since AMT-ERR is not a numeric literal. Fields with actual decimal points are 
used primarily for printing. 

With this introduction you should be able to print simple reports that have 
proper alignment. Remember that a Printer Spacing Chart will prove very 
helpful in vertically aligning headings over the appropriate data entries. There 
are several blank charts at the end of this book. Chapters 12 and 13 provide a 
more in-depth treatment of printed reports. 
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In the following chapters, we will use WORKING-STORAGE and appropriate 
VALUE clauses for establishing records to be printed. We will then move these 
records to the output area before each WRITE command. 


CHAPTER SUMMARY 
A. Uses of WORK ING-STORAGE 
1. Storing intermediate results. 
2. Storing counters. 
3. Storing end-of-file indicators such as the data-name EOF. 
4. Storing input and output records. 
5. Storing table data. 
B. Advantages of Using WORK ING-STORAGE 
1. Facilitates defining of multiple records for a given file, such as heading 
lines, detail lines, error lines, and total lines for a print file. 
2, Allows use of VALUE clauses to initialize fields such as FI LLERs, 
counters, and intermediate totals defined in WORK ING-STORAGE. 
C. Using WORKING-STORAGE for Print Files 
1. The FO for a print file typically includes a record description as follows: 


OL PRINT-REC PIC X(133), 


No field descriptions are necessary within the record. 
2. Print records are described with field descriptions and VALUE clauses in 
WORK ING-STORAGE 


O1 HEADING-LINE, 


’ 
’ 


OL TRANSACTION-LINE. 

' 
OL ERROR-MESSAGE-LINE, 
O41 FINAL~TOT-LINE, 


3. Each print record defined in WORKING-STORAGE should allow for right- 
and left-hand margins and proper spacing between fields. A Printer Spac- 
ing Chart is very useful for preparing layouts of printed reports. 

4. Where appropriate, fields within print records defined in WORK ING- 
STORAGE should have VALUE clauses unless data is to be moved into a 
field. If a field within a heading record is not accessed individually, it is 
typically called FILLER. 


Ol HEADING-LINE, 


OS FILLER PIc VALUE ‘ 
OS FILLER PIC VALUE + 
OS FILLER PIC VALUE ' 


’ 
' 


5. Records defined in WORK ING-STORAGE that are to be outputted must be 
moved to the record defined in the output file before they can be writ- 
ten. For a print file, for example, we might have the following: 


FD PRINT-FILE 
LABEL RECORDS ARE OMITTED, 
O1  PRINT-REC PIC X(193). 


+ 
+ 
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WORKING-STORAGE SECTION, 
ol HEADING-LINE+ 


+ 


* 
PROCEDURE DIVISION. 


+ 
’ 


MOVE HEADING-LINE TO PRINT-REC. 
WRITE PRINT-REC+ 


Solutions 


CHAPTER SELF-EVALUATING QUIZ 


1. (T or F) Independent items in WORKING-STORAGE must have VALUE clauses. 


w 


6. 
. (T or F) The following entry can be coded in either the FILE SECTION or the 


10. 


eer 


wn 


so 


10. 


[wo examples of input data that must be stored for future processing are 
and 


Why do we use WORK ING-STORAGE for storing record formats to be printed? 


To print data that is accumulated in WORKING-STORAGE, it must first be 
to the output area before a WRITE statement is executed. 


(T or F) The WORKING-STORAGE SECTION may either precede or follow the FILE 
SECTION. 


T or F) A VALUE clause always contains numeric literals. 


WORKING-STORAGE SECTION: 
05 TOTAL-AMT PIC 9(5) VALUE ZERO, 


T or EF) Either of the following VALUE clauses can be used to initialize TAX-RATE 
(pic ¥9999) with a value of 0825. 

a) VALUE ',0B825’. 

b) VALUE .0825. 

A numeric literal may not exceed (no.) digits in length; a nonnumeric literal may 
contain up to (no.) characters. 

T or F) Nonnumeric literals may be continued from one line to the next in the 
PROCEDURE DIVISION using the same rules for continuing nonnumeric literals in 
VALUE clauses. 


Page 

F—VALUE clauses are optional. 159 
date or control records; table data 157 

. (a) Fields can contain specific VALUES. 166 
(b) Each record—headings, data lines, error lines, and total lines—would oc- 166 

cupy separate storage areas. 

moved 165 
F—It must follow the FILE SECTION. 158 
F—The literal in the VALUE clause must correspond to the data format speci- 160 


fied in the PICTURE clause; if the P1c is alphanumeric, the VALUE should 
contain an alphanumeric literal. 


F—waLUueE clauses for initializing fields may not be used in the FILE SECTION. 161 


. F-Since the PICTURE clause is numeric, a numeric literal, as illustrated in 159 


(b), must be used. 
18; 120 162 
a 163 


THE WORKING-STORAGE SECTION 171 


ER PRACTICE PROGRAM 


Using the problem definition that follows, print all fields in an input record on a single 
line. Spacing is specified on the Printer Spacing Chart. For readability, place a period 
between initials of the name and a / between month and year of the date. Also print 
column headings at the top of the page. That is, print the word NAME above where the 
name field will be printed, and so on. Use WORKING-STORAGE with VALUE clauses for 
describing output lines. See Figure 8.4 for a solution. Note that this is the same practice 
problem that appears in Chapter 7. Here we use WORKING-STORAGE for describing 
output, which simplifies PROCEDURE DIYISION coding, 


Systems Flowchart 


a 


PRINT-FILE 


CUST-FILE 


CUST-FILE Record Layout 


14 15 


PRINT-FILE Printer Spacing Chart 


Wt 
12/]4}5]6|7/8]9]0}1]2 


wfolalalolrm]— 
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Sample Input Data 


PQNEWMAN 9185001256 
RRREDFORD 9685123453 
ELTAYLOR 9485010000 
NBSTERN 9985020000 
TMKENNEDY 1185320605 


Sample Output 
NAME 

«NEWMAN 

«REDFORD 

«TAYLOR 

» STERN 

« KENNEDY 


aAZzwwU 
Zuerwo 


Figure 8.4 IDENTIFICA 


Solution to Practice Program. PROGRAM-ID 
* 


ENV IRONME 
CONF IGURAT 
SOURCE-CO 
OBJECT-CO 
INPUT-OUTP 
FILE-CONTR 
SELEC 
SELEC 
* 

DATA DIVIS 

FILE SEC 
FD CUST-F 
LABEL 
O1 CUST-R 
oS cu 
0 
Q 
0 
oS DA 
0 
Q 
oS AM 

o5 F 
FD PRINT- 
LABEL 
Ol  PRINT- 
WORK ING-S 
O1 WORK-A 
oS EO 
O1 HEADIN 
oS F 

05 F 
os FI 

oS F 

oS F 

05 F 

oS F 


DATE OF TRANSACTION 


@1/85 
06/85 
G4/85 
99/85 
11/85 


TION DIVISION: 
+» SAMPLES, 


T DIVISION. 
ION SECTION, 


PUTER, IBM-4341. 
PUTER, IBM-4341, 


UT SECTION. 
OL. 


AMOUNT OF TRANSACTION 


901250 
123453 
G10000 
020000 
320005 


CUST-FILE ASSIGN TO DA-S-SYS001, 
PRINT-FILE ASSIGN TO UR-S-SYSOUT. 


ION. 
ON: 
ILE 


RECORDS ARE STANDARD. 


EC. 

STOMER-NAME. 
INITIAL~1 
INITIAL-2 
LAST-NAME 


TE-OF-TRANSACTION. 


MONTH 
YEAR 


OUNT-OF-TRANSACTION 


LER 
TEE 


7 I 


R 
REC 

ORAGE SECTION, 
REAS+ 


Gl. 
LLER 
LLER 


ECORDS ARE OMITTED: 


VALUE 


YALUE 


PIC O(G)+ 
PIC X(58)+ 


u 


C X(133), 


PIC 9 VALUE 0. 


PIC X(6) VALUE SPACES. 
PIC X(4) YALUE ‘NAME’. 
PIC X(5) VALUE SPACES, 
PIc x(19) 

‘DATE OF TRANSACTION’, 
PIC X(3) VALUE SPACES, 
PIC X(21) 

‘AMOUNT OF TRANSACTION’. 
PIC X(75) VALUE SPACES, 
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Ol DETATL-LINE. 
03 FILLER PIG & VALUE SPACES. 
OS  INITL-OUT PIC x. 
0S FILLER PIC xX VALUE /4%% 
OS INIT2-OQUT PIC X, 
oo F PIC X VALUE 44/4 
oS LA PIC X(10), 
os F PIC X(6) VALUE SPACES. 
oS MO PIC go. 
oS F PIC xX VALUE “/7’, 
OB YE PIc 99. 
oS F PIC X(13) VALUE SPACES, 
oS A PIC 9(6), 
05 FILLER PIC (88) VALUE SPACES, 
* 
PROCEDURE DIVISION. 
MATN-MODULE + 
OPE PUT CUST-FILE 
QUTPUT PRINT~FILE, 
OVE HEADING! TO PRINT-REC. 
RITE PRINT-REC, 
READ CUST-FILE AT END MOVE 1 TO EOF, 
PERFOR QVE-RTN UNTIL EOF = 1, 
CLOSE CUST-~FILE 
PRINT-FILE. 
STOP RUN. 
MOVE-RTN, 
OVE INITIAL-~1 TO INIT1-OUT, 
QVE INITIAL~2 TO INITZ2-OUT, 
OVE LAST-NAME TO LAST-NAME-OUT. 
OVE MONTH TO MONTH-OUT, 
QVE YEAR TO YEAR-OUT, 
OVE AMOUNT-OF-TRANGACTION TO AMOUNT-OUT, 
QVE DETAIL~LINE TO PRINT-REC, 
RITE PRINT-REC, 
READ CUST-FILE AT END MOVE 1 TO EOF, 


Key TERMS 


Abend Table data 
Counter field VALUE clause 
Intermediate result field WORKING-STORAGE SECTION 


Pe REVIEW QUESTIONS 


I. True-False Questions 

1. (T or F) WORKING-STORAGE entries can be elementary or group items. 

2. (T or F) VALUE clauses may be used in the WORKING-STORAGE SECTION and the 
FILE SECTION to specify an initial contents for a field. 

3. (T or F) A field called EOF may be initialized by giving it a VALUE in WORKING- 
STORAGE. 

4, (T or EF) A VALUE clause is frequently used in an input area to specify the contents 
of an input field. 

5. (T or F) The WORKING-STORAGE SECTION may precede the FILE SECTION. 
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9. 
10. 


(T or F) The literals in VALUE clauses are restricted to 132 characters. 


(T or F) The literal in a VALUE clause should be consistent with the data format 
specified in the PICTURE clause of a WORKING-STORAGE item. 


(T or F) Nonnumeric literals may be continued from one line to the next with the 
use of the continuation column (column 7). 


(T or F) 01 level items may or may not be subdivided. 


(T or F) WORKING-STORAGE entries are sometimes used for the accumulation of 
output data. 


II. General Questions 


Make necessary corrections to each of the following (Questions 1-8). Assume that 
margin use and spacing are correct. 


Ae 
2. 


\o @ 


OS CONSTANTA PICTURE X VALUE 2, 


Q1 DATE-OUT. 
OS MONTH PICTURE 99. 
05 YEAR PICTURE 99 
77 “TOTAL PICTURE 9(5), 


05 CONSTANTB PICTURE X VALUE Ay 
05 SUM-IT PICTURE 999 VALUE SPACES, 
77 HEADER, 
O5 FLDA PICTURE X(4), 
Q5 FLDB PICTURE K(4). 
WORKING STORAGE SECTION 
O1 FLD1 PICTURE X VALUE ZERO, 


. O35 FLDZ VALUE 3, 
. O5 FIELDA PICTURE X (132) VALUE SPACES, 
. Write a WORKING-STORAGE description of a three-position alphanumeric field called 


BOB with an initial value of zero. 


10. Which of the following are coded in Area A? 
(a) WORKING-STORAGE SECTION 
(b) 77 level 
(c) 01 level 
(d) 05 level 
11. Write a WORKING-STORAGE description of a 120-position independent field with 
the following contents: 
THIS REPORT IS RUN MONTHLY TO DETERMINE THE NAMES OF ALL 
EMPLOYEES WHO HAVE BEEN PROMOTED 
DEBUGGING EXERCISES 
Consider the following WORK ING-STORAGE entries: 
1 WORKING-STORAGE SECTION 
2 Ol STORED AREAS. 
3 o5 EOF PIC 94 
4 05 COUNTER PIC 9(4) VALUE SPACES, 
s oS DATA PIC 9(3)4 
6 01 HEADING-REC. 
7 05 FILLER PIC X VALUE SPACE. 
8 O5 LITERAL PIC X(50) 
g VALUE ‘SALES REPORT’, 
10 OS FILLER PIC X(82). 


it 


. There is a syntax error on the first line. Correct it. 


2. There is a syntax error on the second line. Correct it. 
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3. There is a syntax error on line 5. Correct it. 

4. Will a syntax error occur because EOF has no VALUE clause? What PROCEDURE 

DIVISION entry should be used before we code READ file-name AT END MOVE 1 

TO EOF? 

5. The definition of COUNTER will result in a syntax error. Why? Make the necessary 

corrections. 

6. Suppose we accumulate a FIN-TOT that contains the sum of TRANS-AMTS of all 

records read. We wish to print the value of FIN-TOT at the end of the run; we 

define its PIC clause as PIC #9(4).99. After cach READ, we code: ADD TRANS~ 

AMT TO FIN-TOT. Will this cause an error? Explain your answer. If you think an 

error will occur, make the necessary corrections. 

7. If HEADING-REC is moved to PRINT-REC and a WRITE command is executed, in- 

dicate how the heading will print. 

8. Suppose the PIC clauses for HEADING-REC totaled 103 instead of 133. Would a 
syntax error occur? Would the computer abort the run during execution? How 
would the heading print? 

9. Suppose the WORKING-STORAGE section contained the following entry within 
STORED-AREAS 


OS MESSAGE-1 PIC K(10) VALUE ‘FIELD TOO LARGE’. 


A syntax error will occur. Indicate why. 
10. Suppose a print record included the following coding: 


O41 PRINT-REC. 


5S TOTAL PIC 9(4)V99, 


oe 


Assume that TOTAL has contents of 8723,93. How will it actually print? 


PROGRAMMING ASSIGNMENTS 


1. Redo Programming Assignment 1 in Chapter 7 using: 
(a) WORKING-STORAGE for establishing print records, 
(b) Literals and VALUE clauses for describing headings, rather than PROCEDURE DI- 
VISION entries. 


2. Redo Programming Assignment 2 in Chapter 7 using: 

(a) WORKING-STORAGE for establishing print records, 

(b) Literals and VALUE clauses for describing headings, rather than PROCEDURE DI- 

VISION entries. 

3. Redo Programming Assignment 4 in Chapter 7 using: 

(a) WORK ING-STORAGE for establishing print records. 

(b) Literals and VALUE clauses for describing headings, rather than PROCEDURE D1 - 
VISION entries. 

4. To count the number of records processed, we can ADD 1 TO COUNTER after cach 
READ. COUNTER would be defined in WORKING-STORAGE. To obtain a final total of 
all input amount fields, we would code ADD AMT-IN TO FIN-TOT, where FIN-TOT 
is defined in WORKING-STORAGE. 

Write a program to read in 80-position tape records with an AMT-IN field in 
positions 11-15 (XXX.XX). The tape has a blocking factor of 20 and standard labels. 
At the end of the job, print the following: 


TOTAL NUMBER OF RECORDS PROCESSED - XXX 
FINAL TOTAL OF ALL AMOUNT FIELDS - $KX> 
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To familiarize you with: 


1. The ways in which arithmetic operations may be performed in COBOL. 
2, The formats and options available with the arithmetic verbs. 


I. The Basic Arithmetic Verbs 


A. ADD Statement 
A simple ADD statement has the following two formats: 


Format 1 


Format 2 


Examples 1-4 


All specified operands 


i To 
i Rererttr| HEHEHE aa 


(an operand is a data field or a literal) must be numeric 


when used in an arithmetic statement. The computer will not perform an 


arithmetic operation on 


anonnumeric field. Thus, in Examples 1-4, all literals 


are numeric, and it is assumed that all data-names or identifiers, when speci- 


fied in the DATA DIVIS 


TON, have numeric PICTURE clauses. 


The result, or sum, of an ADD operation is always placed in the last field 
mentioned. The only field that is altered as a result of the ADD operation is 


this last field, which is 
Format 1, or GIVING, w. 
TAX and DEDUCTIONS is 


the one directly following the word TO, when using 
hen using Format 2. Thus, in Example 1, the sum of 
placed in DEDUCTIONS. TAX remains unchanged. 


In all cases, the resultant field must be a data-name. It cannot be a literal. 


The statement ADD HOU 
because 40, which imm. 


RS-WORKED TO 40, for example, is incorrect. This is 
ediately follows the word TO, would be the resultant 


field, and resultant fields may not be literals. The word directly after TO or 
GIVING must be a data-name. 


When using the TO f 


ormat in an ADD statement, all the data-names and 


literals are added together, and the result is placed in the last field specified. 


When using the GIYIN 
GIVING are added toget 


c format, all fields and literals preceding the word 
her and the sum is placed in the field following the 


word GIVING. Thus, when using the GIVING format, the last data field is not 
part of the ADD operation. 
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cr 


6 P77 Hoe -WoRMEy ro: REEMLDEROUST TT TET 


Example 6 


Both fields, HOURS-WORKED and WEEKLY-HOURS, are added together. The sum is placed 
in WEEKLY-HOURS; HOURS-NORKED remains unchanged. 


my 


o( TT Abo- HOURS oR RED. WE REV: HOURS ai Wane! roraU-floums-I TT ITT 


Format 1— 
Expanded Version 


Format 2— 
Expanded Version 


The same addition is performed as in Example 5: HOURS-WORKED and WEEKLY-HOURS 
are summed. In this case, however, the result is placed in TOTAL-HOURS. The original 
contents of TOTAL-HOURS do not in any way affect the arithmetic operation. 


Keep in mind that the data-names specified in any arithmetic statements 
must be defined in the DATA DIVISION. They may appear in an input or output 
area of the FILE SECTION, or in the WORKING-STORAGE SECTION. 

The COBOL words TO and G1YING may not be used in the same ADD oper- 
ation for 1968 and 1974 ANS COBOL users. To say ADD TAX TO NET GIVING 
TOTAL, then, is incorrect unless you are using a 1985 COBOL compiler. Using 
1968 and 1974 standards, the statement may be ADD TAX TO NET, in which 
case the result is placed in NET; or the statement may be ADD TAX y NET GIVING 
TOTAL, in which case the result is placed in TOTAL. 

The commas specified in Examples 3, 4, and 6, as all commas in a COBOL 
program, may be used for clarity of expression but are not required, Thus ADD 
TAX NET GIVING TOTAL is also correct. 

A rule-of-thumb to follow when using an ADD statement is to use the 
GIVING format when the contents of operands are to be retained. When you 
will no longer need the original contents of an operand after the addition, the 
TO format may be used. 

Format | and Format 2, then, may be expanded as follows: 


The dots |. . .) indicate that two or more fields or literals may be specified 
before the word TO or GIVING. 

Thus far, we have restricted ourselves to simple ADD statements, with a 
limited number of operands. As we see from the expanded versions of the 
format statements, however, the number of operands that may be specified in 
an ADD operation is considered to be relatively limitless, being a function only 
of the size of the computer and the level of the COBOL compiler. 


Example 7 
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The rules specified thus far for addition are as follows: 


RULES FOR ADDITION 


All literals and data fields must be numeric. 

2. The resultant field, following the word TO or the word GIVING, 
must be a data-name and may not be a literal. 

When using the To format, the last data-name following the word 
‘to’ is the receiving field. This receiving field is part of the ADD; 
that is, its initial contents are summed along with the other fields. 
The receiving field must be numeric when using this format. 
When using the GIVING format, the last data-name following 
‘GIVING is the receiving field. This receiving field is not part of 
the ADD operation; that is, it contains the sum but its original con- 
tents are not part of the ADD. It must be either a numeric field or a 
report-item, which is a field that contains edit symbols. (We will 
discuss report-items in detail in Chapter 12.) 

The words TO and GIVING may not be specified in the same state- 
ment unless you are using a 1985 ANS COBOL compiler or a non- 
standard COBOL compiler. 


2a 


28 [i 


oT 


5 (ANTE. 


a 


val lo ire 


AMTt AMTZ AMT3 AMT4 
Before operation: 2 4 6 15 
After operation: 2 4 6 12 


Note that the original contents of AMT4, the resultant field, are destroyed and have no 
effect on the ADD operation. The three operands AMT1, AMT2, and AMT3 are unchanged. 


Example 8 
o fa Te 0 Fay 28 7 36 40 a ie cH Eg i) ca mo 7a 
HL} LabbLaMiri, labial, | lair] irlo| lst LT 
AMT AMTZ AMTS3 AMTa 
Before operation: 2 4 6 15 
After operation: 2 4 6 27 


AMT1, AMTZ, and AMT3 are added to the original contents of AMT4. The result is again 
placed in anT4, while the other three fields remain the same. 


It is also possi 


ble, under 1974 and 1985 ANS COBOL, to perform several 


ADD operations with a single statement, using the 
following is a valid statement: 


0 format. That is, the 


2 36, 70. on a8 


a B 


a i = 


AD 


> 


: 


| H 


Mel ffo Tora. 


AL), 
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This results in the same series of operations as: 


2 16 2 


36 a oH a8 52 


Full Format 1— 
ADD Statement 


Full Format 2— 
ADD Statement 


Self-Evaluating Quiz 


Solutions 


oe ee ean TnOG A ETTSOGTATTTSGaHETTOGGTTT 


Thus the full Format 1 of the ADD statement is as follows:! 


As in the previous format, numerous operands may be specified before the 
word TO. We may also have numerous receiving fields after the word TO. 


Similarly, Format 2 of the ADD operation permits numerous receiving fields: 


Indicate the errors, if any, in Questions 1-3. 


6. 
ih 
8. 


ADD ‘12’ TO FLDA. 

ADD TAX TO 15.8. 

ADD TAX TO TOTAL GIVING AMT. 

If ADD 1+ 15+ 3 TO COUNTER is performed and COUNTER is initialized at 10, the 
sum of (no.) will be placed in at the end of the operation. 

Without using the word TQ, write a statement equivalent to the one in Question 4. 
The commas used in an ADD statement are (optional, required). 


When using a TO format, the last data field (is, is not) part of the ADD operation. 
When using a GIVING format, the last data field (is, is not) part of the ADD operation. 


If ADD 1+ 15+ 3 GIVING COUNTER is performed, (no.] will be the result in 


‘12/ is not a numeric literal. 

The resultant field must be a data-name. 

The words To and GIVING may not appear in the same ADD statement unless you 
are using a 1985 ANS COBOL compiler or a nonstandard COBOL compiler. 

29, COUNTER 

ADD 1+ 15+ 3+ COUNTER GIVING FIELDX. In this case, the result is placed in F IELDX 
and COUNTER remains unchanged. The arithmetic is, however, the same as in the 
previous problem. 


optional 
is; is not 
19; COUNTER 


B. SUBTRACT Statement 
The SUBTRACT operation has the following two formats: 


! 1968 ANS COBOL users may not be able to specify multiple receiving fields in arithmetic 
operations. 
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Format 1 


Format 2 


Examples 1-4 


The rules specified for addition are similar to those for a SUBTRACT: 


RULES FOR SUBTRACTION 


1. All literals and data-names must be numeric. 

2. The word directly following FROM in Format 1 or GIVING in Format 
2, must be a data-name and not a literal. 

The following statement is incorrect: SUBTRACT TAX FROM 
100,00. If you want to subtract a quantity from a literal (e.g., 
100,00}, you must use the GIVING format: SUBTRACT TAX FROM 
100,00 GIVING NET. 

3. When using Format 1, all data fields and literals preceding the word 
FROM will be added together and the sum subtracted from the last 
data field. The result, or difference, will be placed in this last field. 
All other fields will be unchanged. 

4. When using the GIVING format, Format 2, the operation performed 
is the same as in Rule 3, but the answer, or difference, is placed in 
the field following the word GIVING. The initial contents of the 
resulting field following the word GIVING do not take part in the 
arithmetic operation. 


Example 5 
tz 16 Fn 26 32 36 10 m7 7 77 80 0 @ 7a 
of ETF Sop WS ABT roMALS Fob bbah (THT THETA 
TAX TOTAL AMT 
Before operation: 30,00 10,00 100,00 
After operation: 30,00 10,00 044,60 


Example 6 


o ECT SOBRE UBL, | AR onl Ob AMT BAMANEL MELT] EPP HTIIT| 


— 


= 
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TAX TOTAL ANT NET 
Before operation: 30,00 10,00 100,00 87,00 
After operation: 30,00 10,00 100,00 44,60 


Examples 5 and 6 produce the same result but in different storage areas. In 
Example 6, the contents of NET before the operation are destroyed and do not 
enter into the calculation. 

As a rule-of-thumb, when the contents of an operand are not needed after 
the SUBTRACT operation, Format 1 may be used. When the contents of all 
operands are to be retained, use Format 2. 

As in ADD operations, all commas are optional and are only used for clarity 
of expression. A space must, however, follow each comma. 

It is also possible, under 1974 and 1985 ANS COBOL, to perform several 
SUBTRACT operations with a single statement using Format 1. That is, the 
following is a valid statement: 


56 a 68 72 


LECH 


amr FROM toraLull ll. 
Mor wMTal ERM 
Melt laMcs| ERM 


Thus, Format 1 of the SUBTRACT statement may be expanded as follows: 


Full Format 1— 
SUBTRACT Statement 


There may be two or more operands subtracted from data-name-2. Also, the 
operands may be subtracted from data-name-3, data-name-4, and so on. 
Format 2, may similarly be expanded as follows: 


Full Format 2— 
SUBTRACT Statement 


Self-Evaluating Quiz 1. In the operation SUBTRACT 1500 FROM X GIVING Z, the result, or difference, is 
placed in ______. The original contents of x _______. If x has an original value 
of 8500, and z has an original value of 2000, the result in z would be 


What is wrong with the following statements (Questions 2 and 3]? 


. SUBTRACT $23,00 FROM AMOUNT. 

. SUBTRACT AMT FROM 900,00. 

. Change the statement in Question 3 to make it valid. 

. Use one SUBTRACT statement to subtract three fields, TAX, CREDIT, and DISCOUNT 
from TOTAL, placing the answer in ANT. 

If SUBTRACT A+ B+ Cy 15,80 FROM D is performed, the PICTURE clauses of A, B, 
C, and D are assumed to be 


nr Wb 


aS 


ARITHMETIC OPERATIONS 183 
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Solutions 1. 2 
remains unchanged 


7000 (the original 2000 in z does not enter into the calculation) 
_ $23.00 is an invalid numeric literal—numeric literals may not contain dollar signs. 
_ The resultant field of a SUBTRACT operation may not be a literal. 
. SUBTRACT ANT FROM 900,00 GIVING TOTAL. 
. SUBTRACT TAX+s CREDIT» DISCOUNT FROM TOTAL GIVING AMT. 
. numeric 


Dahon 


C. MULTIPLY and DIVIDE Statements 


1, Basic Format 
Because of their similarities, the MULTIPLY and DIVIDE statements are dis- 
cussed together. 

The MULTIPLY statement has the following two formats: 


Format 1 


Format 2 


Examples 


Format 1 


Format 2 


Examples 
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If you DIVIDE one field or literal BY another, you must use the GIVING 
format. When dividing one field INTO another, the GIVING clause is not 
required. 

At this point, you know that all arithmetic statements have two basic 
formats. When operands are not to be destroyed during an arithmetic oper- 
ation, you will always use Format 2, which specifies the GIVING option. If 
operands need not be retained, you may use Format 1. When using either 
format for all arithmetic operations, the last field mentioned is the resultant 
field; it must always be a data-name and never a literal. 

ADD and SUBTRACT instructions can operate on numerous fields and produce 
more than one resultant field. MULTIPLY and DIVIDE, however, are limited 
in the number of operations performed. For example, suppose we wish to 
obtain the product of PRICE x QTY X DISCT. Two operations would be used 
to obtain the desired product: (1) MULTIPLY PRICE BY QTY. The result, or 
product, is placed in 9TY. Then, (2) MULTIPLY 9TY BY DISCT. The product 
of the three numbers is now in DISCT. Hence, with each MULTIPLY or DIVIDE 
statement specified, two operands only will be multiplied or divided. 

With the 1968 standard, only two fields are permitted in any MULTIPLY 
operation. With the 1974 and 1985 standard, one operand can be multiplied 
by numerous fields: 


Find C x Band C x A. 


1968: MULTIPLY C BY By 
MULTIPLY C BY Ay 
1974 and 1985: MULTIPLY C BY By Ay 


In a MULTIPLY operation, you must make certain that the receiving field is 
large enough to accommodate the product. As a general rule, the number of 
integer positions in the receiving field of a MULTIPLY operation should be 
equal to the sum of the integers of the operands being multiplied. Suppose we 
code MULTIPLY A BY B GIVING C. If A has a PIC of 99 and B has a PIC of 
999, then to ensure that C is large enough to accommodate the result it should 
have a PIC of 9(5), which is the sum of two integers in A plus three integers 
in B. The number of decimal positions in the receiving field will depend on 
the decimal precision desired in the result. We will discuss this sizing issue 
in more depth later on. 

For DIVIDE operations, the PIC clause of the quotient or receiving field is 
dependent on the type of divide. Consider the following: 


DIVIDE A BY B GIVING C. 


If A and B have PIc 9, the receiving field may have PIC 999 or 9V9, to allow 
for fractional results (e.g., 3/6 = .5). But suppose @ has PIC 9¥9 and contents 
of 9,0, and B has the same PIC clause with contents of .1. The result of the 
divide is 9/.1 = 90. Hence, C would need a PIC of 99. As a rule-of-thumb, 
determine the range of values that the fields can have and establish the PIC 
clause of the receiving field accordingly. 

The preposition used with the MULTIPLY verb is always BY. To say MUL- 
TIPLY PRICE TIMES QTY is incorrect. In the DIVIDE operation, the preposition 
is either BY or INTO. To say DIVIDE QTY INTO TOTAL places in the resultant 
field, TOTAL, the quotient of TOTAL / 9TY. Note that the following two oper- 
ations produce the same results: 


1, DIVIDE 6 BY 3 GIVING AMT. 
2. DIVIDE 3 INTO G6 GIVING AMT. 


In both cases, the result in AMT will be 6/3 or 2. 


2, Examples of Arithmetic Operations 
Let us now employ these arithmetic rules in performing some operations, We 
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assume that all data fields used in the following examples have the proper 
numeric PICTURE clauses in the DATA DIVISION. Keep in mind that the 
solution indicated for each example is only one method for solving the prob- 


lem. 


Example 1 Celsius temperatures are to be converted to Fahrenheit temperatures according to the 


following formula: 
Fe (9 / 5) C + 32 


c is a data field in the in 
numeric PICTURE clauses 
One solution may be s 


put area and F is a data 
in the DATA DIVISION. 
pecified as follows: 


in the output area. Both have 


28 EH 36 


a0 


68 72 


; 


Paws 
Wei 
romv 


IZ=IC3/C> 


cl FI. i 


LEE 
| 


+H 


If c had an initial value of 20, its value at the end 
(9/5 x C) or 32 + 36; that is, F wou d be equa 


H 


You may have realized 
to two steps: 


of the operation would be 32 + 
to 68. 


that 9/5 C = 1.8 C. Thus, the above solution may be reduced 


8 7 


io 


HHH 


Cea Hat TOOL 
MONeH ELT 


Example 2 Compute the average o! three fields: HRS-WEEK1, HRS-WEEK2, 
answer in AVERAGE, and do not alter t 


One solution may be specified as follows: 


he contents of the three 


HRS=WEEK3, Place the 
ata fields. 


2 EH 36 


cy co 


b 


e=)\e2 


H 
AVERABES 


EWEEK REEW EKB GIVING 
| 


in 


DATA DIVISION. 


Example 3 Find C = A? + B2. Again, it is assumed that 4, 8, and C are data fields defined in the 


Solution 
Fay FT 2B % 0 a ie B we 7a 
A BYJA.| | | | | 
BL_BIY| Bi.| | | : 
GIMING Cl. “ | 


Note that to multiply A by itself places A x A or A? in t 
Observe that the following is not a correct solution: 


he field called A. 


B.IGINIING 


Incorrect coding for C = A@ + B@ 


The initial ADD operation above places in B tl 
would then result in the product of (A + B) x (A + 
B?. If A = 2 andB = 3, the result in C should be 27 + 3% = 4 + 9 = 13. You wil 


he sum [he multiplication 


B), which is (A + 


B)?, not A? + 


find that the above coding places in C the value of 25, which is (2 + 3). 
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Format 3— 
DIVIDE Statement 
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3. Use of the REMAINDER Clause in the DIVIDE Operation 
When performing a division operation, the result will be placed in the receiv- 
ing field according to the specifications of that field. Consider the following: 


DIVIDE 130 BY 40 GIVING ITEM-A. 
ITEM-A@ has a PICTURE of 99, 


Result: 
03 is placed in ITEM-A. 


3 
40)130 


120 
10 <— Remainder 


It is sometimes useful to store the remainder of a division operation for additional 
processing. The DIVIDE operation can be used for this purpose by including a RE- 
MAINDER clause. 


To retain the remainder for future processing in this example, we have: 


WORKING-STORAGE SECTION. 
O1 WORK-AREAS, 
95 WS-REMAIN PIc 99, 


+ 
+ 


* 
PROCEDURE DIVISION, 


+ 


DIVIDE 130 BY 40 GIVING ITEM-A 
REMAINDER WS-REMAIN, 


The use of the REMAINDER clause is optional; including it does not change, in 
any way, the results of the original divide operation. We may use the 
REMAINDER clause, for example, to determine if a DIVIDE operation produces 
a quotient with no remainder at all. That is, we could test the REMAINDER 
field to see if it is zero. 

Table 9.1 summarizes the arithmetic operations discussed. 


Self-Evaluating Quiz 


Solutions 


1. Using MULTIPLY and DIVIDE verbs, compute: A x B/C. 
2. Using MULTIPLY and DIVIDE verbs, compute: (C /B + E/E) x S. 


What, if anything, is wrong with the following four statements (Questions 3-6]? 


DIVIDE $445,006 INTO A GIVING B, 
DIVIDE -35 INTO A: 

MULTIPLY A TIMES B GIVING C, 
MULTIPLY A BY B BY C GIVING D, 


So Ss & 


1. MULTIPLY A BY B, 
DIVIDE C INTO B GIVING ANS, 
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Arithmetic Statement 


Value After Execution of the Statement 
C D 


Dp 
fe 


1. ADD 
2. ADD 
3. ADD 
4. ADD 
5 


4 70 B 

Ar By C TOD 

A; B+ C GIVING D 
ATO B+ C 


. SUBTRACT A FROM B 

6. SUBTRACT Ay B FROM C 
7. SUBTRACT Ay B FROM CG 
8. MULTIPLY A BY B 

9. MULTIPLY A BY B GIVING 
10, DIV 
11, Div 
12, DIV 
13, DIV 


REM 


IDE A INTO B 

IDE A INTO B GIVING 
IDE A BY B GIVING C 
IDE A INTO B GIVING 
AINDER D 


tC - (A + B)d 
IVING D c C - (A + B) 


G B A xX B 
B (B/A) 
B (A/B) 


B INTEGER VALUE INTEGER 
OF B/A REMAINDER 


Cc 


DPRPrPrrrrrrprrees 


Cc 


Table 9.1 


Summary of How Arithmetic 
Operations Are Performed 


2. DIVIDE B INTO C, 
DIVIDE F INTO E. 
ADD Cy E GIVING HOLDI. 
MULTIPLY HOLD1 BY S GIVING ANS, 


3. A dollar sign is not permitted in a numeric literal, 

4. Nothing wrong. 

5. The preposition must be BY in the MULTIPLY operation. 

6. Only two operands may be multiplied together with one MULTIPLY verb. 


a ii. Options Available with Arithmetic Verbs 


A. ROUNDED Option 
Consider the following example: 


28 2 40 aa, 6 8 5B 0 oH 8 7 


ADO TANT] [Ta TaN TAM. 


AMT2 AMT3 
Contents 


PICTURE Contents PICTURE Contents PICTURE after ADD 
99V999 12857 g99V999_ 25142 g9V99_ 337.99 


Performing arithmetic operations on fields that have different numbers of 
decimal positions is not uncommon in programming. In the above example, 
two fields, each with three decimal positions, are added together, and the 
answer desired is only valid to two decimal places. The computer adds the 
two fields AMT1 and AMT2, and obtains the sum 37,999 in an accumulator. It 
attempts to place this result into AMT3, a field with only two decimal posi- 
tions. The effect is the same as performing the following MOVE operation: MOVE 
37.999 TO AMT3. The low-order decimal position is truncated. Thus, AMT3 
is replaced with 37,99. 

A more desirable result would be 38,00, since 38 is closer to 37.999 than 
is 37.99. Generally, we consider results more accurate if answers are ROUNDED 
to the nearest decimal position. 
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To obtain rounding of results, the ROUNDED option may be specified with 
any arithmetic statement. The following examples serve as illustrations: 


Examples 1-4 


7{[8 fz 16 20 4 28 32 36 40 co 48 52 56 60 64 6B 72| 
ol TTT ADDI AMTa| Ti MTe| ROUNDED. ron Hl 
2) | SUBTRACT) DISCOUNT FROM TOTAL| ROUNDED. aa [| 
@| ||| | MULTIPLY! QTY BY! PRICIE) ROUNDED. | [| 
(ay) | DIVIDE UNIT'S OF “ITEM INTO! TOTAL ROUNDED .| | L | | 
It is also possible to use the ROUNDED option with the GIVING format of 
the above verbs. The word ROUNDED directly follows the resultant data-name 
in all cases. 

Example 5a 
co TTT ADD. TA AMT2GRVENE MoFaCay ROMADED. TTT HTT TTT 

Example 5b 


t 28 32 36 44 52 56 60 64 68 72) 
eo} ||| ADD. AMT), AMT2 aT MING FroTAL| ROUNDED,| [ToTALe ROUNDED.| 11} TT] 
If AMT1 and AMTZ have the same quantities as specified in both Examples 5a and 5b, 
the computer will round the answer to 38,00. 


ROUNDED may be used with any arithmetic operation, but it is optional. If 
the ROUNDED option is not specified, truncation of decimal positions, or frac- 
tional components, will occur if the resultant field cannot accommodate all 
the decimal positions in the answer. With the ROUNDED option, the computer 
will always round the result to the PICTURE specification of the receiving 
field. Consider the following example: 


Example 6 DISCOUNT TOTAL AMT 
PICTURE Contents PICTURE Contents PICTURE Contents 
gavg9 87,23 gaya9 99,98 99 00 


Consider the following SUBTRACT operation: 


40 a we @ 56 i) cy 58 ‘ 


SETAC BOT a0 ora raga wwe LTT 


In this case, 87.23 is subtracted from 99.98 and the result, 12.75, is placed in an ac- 

cumulator. The computer moves this result to AMT. Since AMT does not allow for 

fractional components, truncation occurs and 12 is placed in AMT. 
Now consider the following SUBTRACT operation: 


“1 SUBTRACT OESCOUNT. FROM TOTAL erViNg (ANT Rounbeo.f7 TFT FT 


lw) 
(on) 


In this case, 12.75 is to be rounded to the PICTURE specification of the receiving field; 
that is, rounding to the nearest integer position will occur. 12.75 rounded to the nearest 
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integer is 13, and thus, 13 is placed in AMT. In actuality, .5 is added to 12.75 producing 
13.25, which is then truncated to an integer field. 


If ROUNDED and REMAINDER are to be used in the same DIVIDE statement, 
ROUNDED must appear first: 


ae data-name-1| } BY data-name-2 
DIVIDE  literal- INTO{ | literal-2 


[GIVING data-name-3] [ROUNDED] [REMAINDER data-name-4] 


The REMAINDER of the DIVIDE operation will be placed in data-name-4. 


Self-Evaluating Quiz 1. When the COBOL word ROUNDED is not specified, ______ may occur. 
9, ROUNDED is (optional, required) with arithmetic statements. 
3. State the result in the following cases. 


A B Cc 0) 
prc Con- PIC  Con- PIC Con- PIC  Con- 
tents tents tents tents 
SUBTRACT Ay B 99yv9 12,3 g9v9 45,6 gggva 156,8 999 


FROM C GIVING D 


DIVIDE A INTO B gvg Sal gvg 8,0 9 — 
GIVING 


c 
DIVIDE A INTO B ave Sal sve) 8,0 9 — 
GIVING C ROUNDED 
A 
c 


DIVIDE INTO B 99 20 99 50 99 oa WD) ——s 
GIVING ROUNDED 
REMAINDER D 


Solutions 1. truncation 
2. optional 


3. 098; 1; 2; C = 03,D = 10 


Note: D is calculated as follows: 50/20 = 2 with a remainder of 10. Rounding of 
the quotient to 3 occurs afterward. 


B. ON SIZE ERROR Option 
Let us suppose that the following operation was performed: 


2 76 20 24 28 36. 40. cy or 2 56 i) G 68, 


DL JAMTI,| (AMTi2\ T1}0 Amrl-[ | {1 | a [ | HT 
Before the operation, the fields contain the following: 


1h 


AMTL AMT2 AMT3 
PICTURE Contents PICTURE Contents PICTURE Contents 
999 800 gaa 150 EE) 050 


The computer will add 800, 150, and 050 in an accumulator. It will attempt 
to place the sum, 1000, into AMT3, which is a three-position field. The effect 
would be the same as a MOVE operation: MOVE 1900 TO AMT. Since numeric 
MOVE operations move integer data from right to left, 000 will be placed in 
aMT3. In such a case, where the resultant field is not large enough to store the 
sum, we say that an overflow or size error condition has occurred. 
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Note that an overflow condition can cause unpredictable results; the com- 
puter will not generally stop or abort the run because of a size error condition; 
instead it will truncate high-order or leftmost positions of the field. In our 
example, 000 will be placed in Anta. 

The best way to avoid a size error condition is to be absolutely certain that 
the receiving field is large enough to accommodate any possible result. Some- 
times, however, the programmer forgets to account for the tare occasion when 
an overflow might occur, COBOL has a built-in solution. Each time any arith- 
metic operation is performed, use an ON SIZE ERROR option as follows: 


arithmetic statement [ON SIZE ERROR imperative statement] 


The word ‘ON’ is optional; hence, it is not underlined. By an imperative 
statement, we mean any COBOL statement that gives a direct command and 
does not perform a test. Statements beginning with the COBOL word IF are 
conditional statements and are not considered imperative. This concept will 
become clearer in the next chapter when we discuss conditional statements. 


[oy 


IC 


(te 


iow ERIO| Tol Ic 
0 


E R : 56. oa 
ro OIN|_|SIT| a ROR MOV R aCRIN. itt 
C! JON! |SITZIE RRIOR’ | OV | MEINVIAILITD| DIMI Et 


ON SIZE! RR 
E 


epee) 


mim 
S 
Ee 
x4 
01 


Example 4 


It is clear that any arithmetic statement, using either Format 1 or Format 
2 may be tested for an overflow, or size error, condition. 

When an imperative statement is specified, the computer will perform the 
operation indicated if a size error condition occurs. In Example 1, the computer 
will move zeros to ¢ only if ¢ does not contain enough integer positions to 
accommodate the sum of A, B, and C. If C is large enough for the result, zeros 
will not be moved to ¢ and execution will continue with the next statement. 

A size error, then, for arithmetic operations, is a condition in which the 
receiving field does not have enough integer positions to accommodate the 
result. In a divide operation the size error condition has additional significance. 
If an attempt is made to divide by zero, a size error condition will occur. 

Consider the following: 


(| SIME 


ToT! [ROTC TON Sze ERROR Move! ERO Tot OMALL.L| 


Assume that the fields contain the following data before the operation: 


OTY TOTAL 
PICTURE Contents PICTURE Contents 
999g 0000 99 10 


The size error is met during the DIVIDE because aTY = 0. As a result, 
TOTAL is set equal to O. If a size error clause is not specified, the computer 
will attempt to divide by zero, an impossible feat. The result of such a division 
would be unpredictable. When you specify ON SIZE ERROR, the computer will 
make certain that the divisor is not zero before attempting to DIVIDE. You 
will see in the next chapter that you may also avoid errors by coding: 
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IF QTY IS NOT ZERO 
DIVIDE QTY INTO TOTAL 
ELSE 
MOVE O TO TOTAL+ 


If the ON SIZE ERROR option is employed along with the ROUNDED option, 
the following format is applicable: 


arithmetic statement ROUNDED ON SIZE ERROR imperative statement 


Hence, the word ROUNDED will always precede ON S1ZE ERROR in an arithmetic 
statement if both options are used. 

When using a REMAINDER in a DIVIDE operation, we would have the fol- 
lowing sequence of clauses: 


DIVIDE ... [ROUNDED] [REMAINDER data-name] [ON SIZE 
ERROR imperative statement] 


Self-Evaluating Quiz 


Solutions 


An ON 8I1ZE ERROR condition occurs when —_____. or when ; 

9, The word ROUNDED (precedes, follows) the ON SIZE ERROR clause in an arithmetic 
statement. 

3, DIVIDE 0 INTO A GIVING B (will, will not} result in an ON SIZE ERROR condition. 

4. DIVIDE 0 BY 4 GIVING B (will, will not) result in an ON SIZE ERROR condition 

ifa = 2. 


— 


5. ADD 50, GO TO FLDA ON SIZE ERROR MOVE 1 TO COUNT results rr 
FLDA has a PICTURE of 99. 
6. ADD $0, GO TO FLDA ON SIZE ERROR MOVE 1 TO COUNT results er 


FLDA has a PICTURE of 999. 


the resultant field does not have enough integer positions to accommodate the 
entire result, an attempt is made to divide by zero 


precedes 

will 

will not (0 divided by any number = 0) 

COUNT = 1, because FLDA is not large enough to be incremented by 110 
110 added to FLDA (assuming that the result is less than 1000) 


AARHY 


Ill. The COMPUTE Statement 


A. Basic Format 


Most business applications operate on large volumes of input and output and 
require comparatively few numeric calculations. For this type of processing, 
the four arithmetic verbs discussed above may be adequate. 

If complex or extensive arithmetic operations are required in a program, the 
use of the four arithmetic statements may prove cumbersome. The COMPUTE 
verb provides a compact method of performing arithmetic operations. 
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The COMPUTE statement uses arithmetic symbols rather than arithmetic 
verbs. The following symbols may be used in a COMPUTE statement: 


SYMBOLS USED IN A COMPUTE 


+ Corresponds to app 

— Corresponds to SUBTRACT 

* Corresponds to MULTIPLY 

/ Corresponds to DIVIDE 

** — Exponentiation (no corresponding COBOL verb exists} 


The following examples illustrate the use of the COMPUTE verb. 
Examples 1-3 


The COMPUTE statement has a data-name to the left of, or preceding, the 
equal sign. The value computed from the arithmetic expression to the right 
of the equal sign is placed in the data field preceding the equal sign. 

Thus, if AMT = 200 in Example 1, TAX will equal .05 x 200, or 10, at the 
end of the operation. The original contents of TAX, before the COMPUTE is 
executed, are not retained. The fields specified to the right of the equal sign 
remain unchanged. 


Example 4 
7a iz 16 2 @ ra 0 rn) @ @ a) ma 7 
| 
o FATT Cape EDrWE FL RRPaT FCB ET ARESL PT 
Contents Contents 
before operation after operation 

TOTAL 100 95 

AMT 41 80 80 

AMTZ 20 20 

AMT3 5 5 


AMT1, AMT2, and AMT3, remain unchanged after the COMPUTE. TOTAL is set 
equal to the result of AMT1 + AMTZ — ANTS. The previous contents of TOTAL 
do not affect the operation. 95 is moved to TOTAL. 

The fields specified after the equal sign in a COMPUTE statement may be 
literals or data-names. Literals need not be defined anywhere else in the pro- 
gram, but data fields must be given specifications in the DATA DIVISION, All 
fields and literals operated on in a COMPUTE statement must be numeric. 

The COMPUTE statement may include more than one operation. In Example 
2, both multiplication and division are performed. The following two state- 
ments are equivalent to the single COMPUTE statement in Example 2: 


Te [iz 16 Fay 2 28 EH Ed 20 ry ae 3 Ed wo i wo | 


TTR EEE veeereeerHeTTnnnTAT 


Sea ae) 
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The COMPUTE statement, therefore, has the advantage of performing more 
than one arithmetic operation with a single statement. For this reason, it is 
often less cumbersome to use COMPUTE statements for complex arithmetic. 

Thus ADD, SUBTRACT, MULTIPLY, and DLVIDE correspond to the arithmetic 
symbols +, —, *, and /, respectively. We may exponentiate a number, or raise 
it to a power, with the use of the arithmetic symbol #*. No COBOL verb 
corresponds to this operation. Thus A #* 2 is identical to the mathematical 
expression A? or A x A. A ** 3 is the same as A? or A x A X A. To find B* 
and place the results in C, we could code: COMPUTE C = B ¥* 4, 

COBOL rules for spacing are crucial when using the COMPUTE statement. 
On most systems, arithmetic symbols must be preceded and followed by a 
space. This rule applies to the equal sign as well. Thus, the formula A = B + 
C + D2 corresponds to the following COMPUTE statement: 


PET pT ORRITET AEB Pe eT pew ee Toe 


So far, we have used arithmetic expressions to the right of the equal sign. 
We may also have literals or data-names as the only entry to the right of the 
equal sign. To say COMPUTE A = 10+3 is the same as saying MOVE 10.3 TO 
4. We are placing the literal 10.3 in the field A. Similarly, to say COMPUTE 
B = @ places the contents of A in the field called B. This is the same as saying 
MOVE @ TO B. Thus, in a COMPUTE statement, we may have one of the three 
entries below following the equal sign. 


inal 
je 


1. An arithmetic expression. For example, 


 EOMPUITE, ECAR ET RSI 8 RATE Hh 


2. A literal. For example, 


32 36 40 ws or Bz 66 co co 58, 7 


data-name. For example, 
32 36. 40 Aq 48 62 56 60 64 68 72) 


28 
‘asa 
3. A 
[2 fz T8 rE Fn 28 = 
| OMPDIT LDIAl = FLDB | | | 
| rd | I i} | 
The ROUNDED and ON SIZE ERROR options may be used with the COMPUTE 
statement. The rules governing the use of these clauses in ADD, SUBTRACT, 
ULTIPLY, and DIVIDE operations apply to COMPLITE statements as well. 
To round the results in a COMPUTE statement to the specifications of the 


receiving field, we use the ROUNDED option directly following the receiving 
field, as indicated here: 


7 


arithmetic expression 
COMPUTE data-name [ROUNDED] = 4 literal 
data-name 


Example 5 
Fee sen eTvanT Tani TosTHTVsaT/TOviTTAsniTOVaT/000F 
= [PSTLEDBBEPE:A-RDEMDED LBL mn 
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B c D 
PICTURE Contents PICTURE Contents PICTURE Contents 
gv99 1,05 gvag 2,10 avag 684 
Result in A 
PICTURE Contents 
Example 5{a)—without ROUNDED govg 09,9 
Example 5(b)—with ROUNDED g9yg 10,0 


To test for an arithmetic overflow, which will occur if the receiving field 
lacks enough integer positions for the result, we use an ON SIZE ERROR test. 
It is used in conjunction with a COMPUTE statement as the last clause: 


literal 
COMPUTE data-name = 4 arithmetic expression 


data-name 


[ON SIZE ERROR imperative statement] 


Example 6 


This COMPUTE statement would result in an overflow condition if a has a PICTURE of 
99, The computed result should be 102. To place 102 in A, a two-position numeric 
field, results in the truncation of the most significant digit, the hundreds position. 
Thus 02 will be placed in A. To protect against this type of truncation of high-order 
integer positions, we use an ON SIZE ERROR test as follows: 


28 EH 


Format—cCOMPUTE 
Statement 


In summary, the primary advantage of a COMPUTE statement is that several 
arithmetic operations may be performed with one instruction. The data-name 
preceding the equal sign is made equal to the literal, data field, or arithmetic 


expression to the right of the equal sign. Thus, the following two arithmetic 
expressions are identical: 


rr Tz 16 20 4 8 D 3 ET rr 7 a Ea wo 
1 


ECCARPBREE REAP SS REPEC EE EEREEEE 
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COMPUTE statements are easily written to express mathematical formulas. 


While the expression C = A” + B* might use several arithmetic operations, 
it can also be performed with only one COMPUTE statement: 


32 


inv) 


=i aatofew ccactca- caf Nami Nsannoast aes saRiOalitas 


here ig no COBOL arithmetic symbol to perform a square root operation. 
Mathematically, however, the square root of any number is that number raised 
to the 1/2 or .5 power. Thus V5 = 25° = 5, 

Since we cannot use square root symbols in COBOL, the square root of any 
number will be represented as the number raised to the .5 power. 


Formula: C = VA 
The COBOL equivalent is: 


4 


[oma 


Te ee a 


B. Order of Evaluation 


The order of evaluation of arithmetic operations is crucial in a COMPUTE state- 
ment. Consider the following example. 


A 


Example 7 


32 


a 


Depending on the order of evaluation of arithmetic operations, one of the 
following would be the mathematical equivalent of the above: 


mimes 
B 
b} D=A+E 


Note that (a) and (b) are not identical. If A = 3,8 = 6, and ¢ = 3, the result 
of the COMPUTE statement evaluated according to the formula in (a) is 3 [(3 + 
6) / 3] and, according to the formula in (b), is 5 [3 + (6/ 3)]. 

The hierarchy of arithmetic operations is as follows: 


HIERARCHY OF OPERATIONS 
1, oe 
9. « or / (whichever appears first from left to right) 
3. + or — (whichever appears first from left to right) 
4, Use of parentheses overrides all hierarchy rules. 


Without parentheses, exponentiation operations are performed first. Mul- 
tiplication and division operations follow any exponentiation and precede ad- 
dition or subtraction operations. If there is more than one multiplication or 
division operation, they are evaluated from left to right in the expression. 
Addition and subtraction are evaluated last, also reading from left to right. 
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Thus, COMPUTE A = C + D ** 2 results inthe following order of evaluation. 


1. D #* 2 Exponentiation 
2.0 + (D #* 2) Addition 
The formula, then, is A = C + D2, not A = (C + DP}. 


The statement, COMPUTES =T*¥D+E/ F, results in the following order 
of evaluation: 


1T#*oD Multiplication 
2,E / F Division 
3. (T * D) + (E / F) Addition 


E 
The formula, then, is S = T x D + E 


Thus, in Example 7, COMPUTE D = A + B / Cis calculated as follows: 


1. B/C 
2, A+ B/C 


The formula, then, is D = A + < or formula (b). 


We may alter the standard order of evaluation in a COMPUTE statement with 
the use of parentheses. Parentheses supersede all hierarchy rules. That is, 
operations within parentheses are evaluated first. 


B, 
is not performed by COMPUTE C = A +B/ 3, The 


To computeC = 


result of the latter operation is C = A + = To divide the sum of A and B by 

3, we must use parentheses to override the standard hierarchical rules: 
COMPUTE C = (A + B)/3 

All operations within parentheses are evaluated first, Thus we have: 


L A+B 
2.(A + B)/3 
The following will provide additional examples of the hierarchy rules. 
Operation Evaluation 
A/B+C Divide A by B and add c. 
A/(B + C} Add 8 and ¢ and divide 4 by the sum. 
A+B#C Multiply 6 by c and add a. 
A*B/C Multiply A by B and divide by C. 


Example 8 Suppose 4, B, and © are three sides of a right triangle, c being the hypotenuse (side 
opposite the right angle]. 4 and B have assigned values. We wish to compute ¢, ac- 
cording to the Pythagorean theorem, as follows: 


C= VE FEB 


++ COMPLI! ROUMDID dal a Ta (ae ay be TOTO 


Example 9 We wish to obtain NET = Gross - DISCOUNT, where DISCOUNT = GROSS x .03, 


meas Hie aa ooo 
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In this example, the parentheses are not really needed, since the standard hierarchy 
rules produce the correct results. Including parentheses for clarity, however, is not 


incorrect. The following would also be correct: 


COMPUT EROS] Fo M Ross PTET PTET CoH rT 
A simpler method of obtaining the correct result is: 

[Zz 18 2 w 36 co cy 62 id 0 cy cy 7 

Eoprire RTETa  ReeeeT 


IV. Use of Signed Numbers in Arithmetic Operations 


Thus far, we have assumed that all numbers used in ca culations are positive 
and that all results of calculations produce positive numbers. If, however, a 


number may be negativ 


e or if a calculation may produce negative results, we 


must use an $ in the PICTURE clause of the field. Thus AMT1 with a PIC of 
59(3) is a field that may have positive or negative contents. The §, like an 
implied decimal point, does not use a storage position; thus, $9(3) represents 
a three-position signed field. If ANT1 with a PIC of $9(3) has an initial value 
of 010 and we subtract 15 from it, the result will be —5. If we had designated 
AMT1 with a PIC of §(3), then the result would have been incorrectly retained 


without the sign as 5. 


In summary, if a field used in an arithmetic operation may contain a nega- 
tive number, use an $ in the PICTURE clause. Without an § in the PICTURE 
clause, the field will always be considered positive. 

You will see in Chapter 12 that printing a negative number requires a minus 
sign in the PICTURE clause of the receiving field: 


ot ~REC. 


I 

o5 AMTL-IN 
or 0 
: 


oS AMTL-OUT 


PIC S$8(3). 


PIC -8(3)+ 


Suppose ANTi-IN has contents of — 123, To print — 123 correctly when we 
move AMT1-IN TO AMT1-OUT, the latter would need to have a PICTURE of 
-9(3). We will discuss this in depth in Chapter 12. 


The full format for cach arithmetic statement follows: 


CHAPTER SUMMARY 


1. Format 


SUMMARY OF COMPUTE 
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2. Purpose: To perform several arithmetic operations with one statement: 


Operations 
+ Addition 
— Subtraction 
* Multiplication 
/ Division 
**  Exponentiation 


3. Order of evaluation: If several operations are performed with one COMPUTE 
statement, the sequence is as follows: 

1, #* 

2. * or / in sequence left to right 


Q 


3 + or — in sequence left to right 
Note: Parentheses ( ) override normal hierarchy rules. 


4. Restrictions: Each operation (#*, *, /, +, —] must be preceded and followed 
by a blank on many systems. 


Each arithmetic operation, excluding the COMPUTE, permits multiple receiving 
fields. That is, ADD © TO D+ E» F is, for example, a valid statement, 


FULL FORMAT FOR ADD 
Format 1 
data-name-1 
ADD literal-1 pow 
TO data-name-2 [ROUNDED] 
... [ON SIZE ERROR imperative statement] 
Format 2 


data-name-1 
800 9 jiteral-1 } 7 


GIVING data-name-2 [ROUNDED]... 
ON SIZE ERROR imperative statement] 


=| 


FULL FORMAT FOR SUBTRACT 
Format 1 


sustract {dataname-1| 
—— | literal-1 

FROM data-name-2 [ROUNDED]... 

[ON SIZE ERROR imperative statement] 


Format 2 


wes FROM 


SUBTRAET et 


data-name-2, 
literal-1 


literal-2 


GIVING data-name-3 [ROUNDED]... 
[ON SIZE ERROR imperative statement] 


FULL FORMAT FOR MULTIPLY 
Format 1 
data-name-1 


MUL sain we 
wee ties 


} By data-name-2 [ROUNDED] 


... [ON SIZE ERROR imperative statement] 
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a . Lael 


MULTIPLY eco literal-2 


GIVING data-name-3 [ROUNDED]... 
{ON SIZE ERROR imperative statement] 


Format 1 


Format 2 


Format 3 


Format 4 


Format 5 


FULL FORMAT FOR DIVIDE 


data-name-1 


r INTO data-name-2 [ROUNDED] 
literal-1 Sa a 


DIVIDE 


. [ON SIZE ERROR imperative statement] 


data-name-2 
ANTO reo } 


data-name-1 


IW 
DIVIDE 4 literal-1 


GIVING data-name-3 [ROUNDED]... 
[ON SIZE ERROR imperative statement] 


DIVIDE 


data-name-1 By data-name-2, 
literal-1 literal-2 


GIVING data-name-3 [ROUNDED]... 
[ON SIZE ERROR imperative statement 


data-name-1 


VW 
DIVIDE 9 jiteral-1 


data-name-2 
INTO een } 


GIVING data-name-3 [ROUNDED] 
REMAINDER data-name-4 
ON SIZE ERROR imperative statement| 


DIVIDE 


literal-1 BY \ literal-2 


data-name-1 ermal 


GIVING data-name-3 [ROUNDED] 
REMAINDER data-name-4 
ON SIZE ERROR imperative statement] 


The DIVIDE formats have been expanded to five because BY and INTO are 
treated separately. 


ee CHAPTER SELF-EVALUATING QUIZ 


Indicate what, if anything, is wrong with Questions 1-6: 


li 


oo Se 


ADD A TO Cy Ds 
ADD A TO B GIVING C. 
MULTIPLY A BY B BY Cy 
DIVIDE AMT BY G. 
DIVIDE AMT BY G GIVING 
QUOTIENT REMAINDER R-~1. 
SUBTRACT AMT1i+ AMT2 FROM AMT3+ AMT4, 
The COMPUTE statement uses arithmetic 


The one symbol that may be used in a COMPUTE statement for which there is no 
corresponding arithmetic verb in COBOL is , which denotes the oper- 
ation of 


rather than arithmetic verbs. 
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Solutions 
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11, 
12. 


13. 


14. 
15; 


_ 


The word directly following the verb COMPUTE must be a 


. The result of the arithmetic expression to the right of the equal sign in a COMPUTE 


is _________ the data-name. 

The most important advantage of a COMPUTE statement is that it may 
What, if anything, is wrong with the following COMPUTE statements? 
a) COMPUTE A = B + C ROUNDED 

b) COMPUTE A = 10.5 

c) COMPUTE OVERTIME-PAY = (HOURS - 40,) * 1.5 

d) COMPUTE E=A*B/* C+D 
e 

f) 

8 


COMPUTE X = (4/3) * PI * (R ¥* 3) 
COMPUTE X + Y = A 
COMPUTE 3,14 = PI 
Do the following pairs of operations perform the same function? 
a) COMPUTE SUM-1 = 0, 
MOVE ZEROS TO SUM-1. 
b) COMPUTE A = A - 2, 
SUBTRACT 2 FROM A. 
c}) COMPUTE X =A *B-C#OD,. 
COMPUTE } (A * B) - (C * D). 
d) COMPUTE Y= A-B#*C-D, 
COMPUTE Y = (A - B) * (C ~- D), 
Using a COMPUTE statement, find the average of A, B, and C. 
Using a COMPUTE statement, find total wages = rate x regular hours + (1.5 x 
rate X overtime hours). Two fields are supplied: RATE and HRS-WORKED. Overtime 
hours are hours worked in excess of 40 hours. (Assume everyone works at least 40 
hours.) 


St 
" 


Page 
Okay except possibly with 1968 ANS COBOL. 180 
TO and GIVING in the same statement are not permissible with 1968 and 179 
1974 ANS COBOL; ADD A+ B GIVING C is acceptable on all compilers. 


Cannot have two multiply operations as specified: 184 


MULTIPLY A BY B GIVING Q, 
MULTIPLY 9 BY Cy 


Last field specified may not be a literal: 184 
DIVIDE 6 INTO AMT 
or 

DIVIDE AMT BY 6 GIVING STORE-IT. 

Okay. 186 

Okay. 182 

symbols 192 

*; exponentiation 192, 

data-name 192, 

placed in 192, 
. perform more than one arithmetic operation with a single command 193 
. (a) ROUNDED follows the receiving field: COMPUTE A ROUNDED = B + C 193 

(b) Okay. 193 


(c) 40. is not a valid numeric literal; numeric literals may not end with a 124 
decimal point. 

(d) /* may not appear together; each symbol must be preceded by and fol- 192 
lowed by a data field or a numeric literal. 

(e) / must be preceded and followed by a space on many systems. 193 

(f} Arithmetic expressions must follow the equal sign and not precede it: 194 
COMPUTE A = X + Y, 

(g) Data-names, not literals, must follow the word COMPUTE: COMPUTE 194 
PI = 3,14, 
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13. (a) Same. 
(b) Same. 
(c) Same. 
(d) First = A - (Bx C)-D 
Second = (A — B) x (C — D) 
These two are not equivalent. 
14. COMPUTE AVERAGE = (A + B + C) 


15. COMPUTE WAGES = RATE * 40 + 1.5 * RATE * 


13 


(HRS-WORKED - 40) 
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193 
194 
195 
195 
195 


195 
195 


Ee PRACTICE PROGRAM 


Write a program to create a salary disk file from a tape file. The problem definition is 
as follows. Since the salary disk file will be printed at a later date, it contains FILLERS 


between significant data fields. 
Systems Flowchart 


EMPLOYEE-TAPE 
80-position records 
standard labels 


EMPLOYEE-TAPE Record Layout 


1 56 2021 30 31 


Sample Input Data 


P NEWMAN 950525 
R REDFORD 049810 
E TAYLOR 035925 
N STERN 979615 
K ROGERS 932785 


Listing of Disk Records Created from Sample input 


P NEWMAN 026250 
R REDFORD 032400 
E TAYLOR 932375 
N STERN 043050 
K ROGERS 0251290 


36 37 40 41 


SALARY-FILE 
75-position records 
standard labels 

15 records/block 


91850 
92284 
92282 
93035 
G1776 


45 46 50 51 


024400 
030116 
930093 
040615 
23358 
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(a) Gross pay = Hours worked x Rate 
(b) Social security tax = 7.05% of Gross pay 
(c) Net pay = Gross pay — Social security tax 


See Figure 9.1 for the solution. 


ee 


ADD Operand 
COMPUTE Overflow 
DIVIDE REMAINDER 
Imperative statement ROUNDED 
MULTIPLY SUBTRACT 


ON SIZE ERROR 


I. True-False Questions 


1 
2. 


10. 


IL. 


(T or F) The GIVING option may be used with all four arithmetic verbs. 


(T or F) The purpose of the COMPUTE is to reduce the number of arithmetic state- 
ments necessary to obtain a result. 


(T or F) Anything that can be coded with a COMPUTE statement can be coded with 
the use of the four arithmetic verbs as well. 


(T or F) The ON SIZE ERROR is used to perform some operation if an overflow 
occurs, 


(T or F) The DIVIDE operation can be used to produce a remainder as well as a 
quotient. 


(T or F) The word ROUNDED must be used with a COMPUTE statement. 


(T or F) It is possible to multiply three fields together with a single MULTIPLY 
operation. 


(T or F) A literal may not appear as the resultant field in an arithmetic operation. 
(T or F) Several fields may be added together with a single ADD operation. 


(T or F) If both the ROUNDED and ON SIZE ERROR options are used, the ROUNDED 
always appears first. 


General Questions 


Fill in the missing columns (Questions 1-5): 


Rwone 


Result if 
A=3,B=2,X=5 
COBOL Statement Result in (PIC of each is 9999) 


. SUBTRACT A FROM B 
. DIVIDE A INTO B 

. ADD Ay B GIVING X 
. ADD Ay Bs TO X 


ON SIZE ERROR 
MOVE ZERO TO X 


DIVIDE A INTO B ROUNDED 


. Write a routine to find X = A + B/3. 


Write a routine to find Y = (A + B)?/X. 
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Figure 9.1 * 


Solution to Practice Program. IDENTIFICATION DIVISION, 
PROGRAM-ID. CHAPTS. 
* 
ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. IBM-370. 
OBJECT-COMPUTER, IBM-370, 
INPUT-QUTPUT SECTION. 
FILE-CONTROL, 
SELECT EMPLOYEE-TAPE ASSIGN TO UT-S-SYS003, 
SELECT SALARY-FILE ASSIGN TO DA-S-SYS004, 


DATA DIVISION: 

FILE SECTION: 

FD EMPLOYEE-TAPE 
LABEL RECORDS ARE STANDARD, 


O1 EMPLOYEE-REC. 
OS AME PIC X(15). 
05 HOURS PIc 999. 
OS RATE PIc 9Voo. 
0S FILLER PIC X(S8). 
FD SALARY-FILE 
LABEL RECORDS ARE STANDARD 
BLOCK CONTAINS 15 RECORDS, 
O1 SALARY-REC, 
05 FILLER PIC X(5). 
OS AME-~QUT PIC X(15). 
oS FILLER PIC xX(10), 
05 GROSS-PAY PIc 9(4)vag. 
OS FILLER PIC XXKKe 
05 SOC-SEC-TAXK PIc ggavag, 
O5 FILLER PIC X(3)+ 
05 ET-PAY PIc 9(4)V99, 
05 FILLER PIC X(19), 
WORKING-STORAGE SECTION. 
O1 WORK-AREAS: 
oS EDF PIC 9 VALUE O- 


* 
PROCEDURE DIVISION, 
MATN-MODULE + 

OPE PUT EMPLOYEE-TAPE 

OUTPUT SALARY-FILE, 

MOVE SPACES TO SALARY~REC, 

READ EMPLOYEE-TAPE AT END MOVE 1 TO EOF. 

PERFORM CALC-RTN UNTIL EOF = 1. 


CLOSE EMPLOYEE-TAPEs SALARY-FILE. 
STOP RUN. 
CALC-RTN+ 


MOVE NAME TO NAME~OUT. 
MULTIPLY HOURS BY RATE GIVING GROSS~PAY. 
MULTIPLY .O705 BY GROSS-PAY GIVING SOC-SEC-TAX+ 
8 

W 


UBTRACT SOC-SEC-TAX FROM GROSS-PAY GIVING NET~PAY, 
RITE SALARY-REC, 
READ EMPLOYEE-TAPE AT END MOVE 1 TO EQF. 
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In the following (Questions 8-10}, determine the contents of the resultant field: 


A B 
Operation PICTURE Contents PICTURE Contents 
8. ADD A TO B gvg Ld syg9 8,35 
9. DIVIDE B INTO A sayvag 13,25 9 2 
QO. DIVIDE B INTO A ggyag 13,25 9 2 


ROUNDED 


Determine what, if anything, is wrong with the following statements (Questions 11-14): 
1. SUBTRACT A FROM 87.3 GIVING B, 
12. ADD A+ 10,98) B TO 100.3, 
3. ADD AMT. TO TOTAL GIVING TAX. 
4, DIVIDE A BY B AND MULTIPLY B BY C. 
Make necessary corrections to each of the following (Questions 15-16): 
5. COMPUTE X = Y + Z ROUNDED, 
6. COMPUTE Z ROUNDING = A + 7 ON SIZE ERROR PERFORM ERR-RTN. 
7. Write a statement to calculate 
_ (M x N/ 
T 


8. Use a COMPUTE statement to add one to A, 


xX 


Write a single statement to carry out the following operations (Questions 19-26): 
(a) Using the COMPUTE verb 
(b) Using the four arithmetic verbs 


9, Add the values of FIELD1 and FIELD2, with the sum replacing the value of FIELD2. 


20. Determine the number of feet in X inches, placing the quotient in FEET and the 
remainder in INCHES. 


21. Decrease the value of ITEMA by 15.3, 

22. Add the values of FRI, SAT, and SUN, and place the sum in WEEK-END. 
23, Add the values of AMT1, AMT2, and ANT3, and place the result in TOTAL. 
24. Add the value of AMT1, AMT2, and ANTS to TOTAL, 

25. Decrease the value of AMT-x by 47.5. 

26. Divide the TOTAL-TUITION by 15 to determine TUITION-PER-CREDIT. 


= DEBUGGING EXERCISES 


Consider the following arithmetic statements: 


(1) ADD AMT1 TO FIN-TOT. 

(2) ADD AMT1 TO AMT2 GIVING ANTS, 

(3) COMPUTE AVERAGE = AMT1 + AMTZ / 2 
(4) COMPUTE AMT4 = AMT1 + AMT2 ROUNDED, 
(5) MULTIPLY AMTi BY AMT2, 

(6) DIVIDE AMT1 BY 2, 

(7) MULTIPLY AMT4 TIMES AMTS, 


1. Which of the above will produce syntax errors? Correct these. 
2. Suppose AMT1 is an input field with PIC 99V99. FIN-TOT has the following spec- 
ification in WORK ING-STORAGE: 


O1 STORED-AREAS, 
OS FIN-TOT PIC 9(4)ygg, 
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If line (1) is executed as the first instruction in the program, will it produce the 
correct results? Explain your answer. 

3. On line (3), will a correct average of AMT1 and ANTZ be computed? If your answer 
is no, make whatever changes you think are necessary to obtain the correct results. 

4. For line (5), suppose the PIC clause of AMT1, as previously noted, is 99Y99. AMT2 
has a P1C clause of 9(4)¥99. Under what conditions will a logic error result? What 
can you do to prevent such an error? 

5. Code COMPUTE statements to perform the operations on line (1), line (2), line (5), 
line (6), and line (7). 

6. Assume that all the syntax and logic errors have been corrected on lines (1-7) and 
that the above steps are executed in sequence. What will be the results in the 
following fields: AMT1; AMT2; AMT3; AMT4; AVERAGE? 


7. Suppose you have a statement such as 
COMPUTE SUM = A * B 


Assume all fields have appropriate PICTURE clauses. A syntax error occurs. Explain 
why this may happen. 


PROGRAMMING ASSIGNMENTS 


Round all the results and stop the run on a size error condition. 


1. Write a program to create a sequential disk file from transaction tape records. The 
problem definition is shown in Figure 9.2. 

Notes 
(a) Total = Amount 1 + Amount 2. 


(b) Amount due = Total — Amount of discount. 
(c) Place today’s date in the date field. (HINT: Use a literal.) 


2. Write a program to print out payroll information for each employee. The problem 
definition is shown in Figure 9.3. 


Notes 
(a) Each employee’s salary is to be increased by 7%. 
(b) The union dues have increased by 4%. 
(c) The insurance has increased by 3%. 
(d) The amounts for dues and insurance are to be printed with actual decimal points. 


3. Write a program to print out each student's average. The problem definition is 
shown in Figure 9.4. 


Notes 
(a) STUDENT-MASTER is a sequential disk file. 
(b) Each student's average should be rounded to the nearest integer (e.g., 89.5 = 90). 


4. Write a program to create a master sales file from input sales records on tape that 
have the following format: 
1-5 Salesperson number 
6-11 Net price XXXX.XX (i.e., PICTURE 999999) 
12-80 Unused 


The output file is created on magnetic tape with the following fields: 
1-5 Salesperson number 
6-11 Sales price XXXX.XX 
12-17 Commission XXXX.XX 
18-50 Unused 
(Continued on page 208.) 
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Figure 9.2 
Problem definition for Pro- 
gramming Assignment 1. 


Figure 9.3 
Problem definition for Pro- 
gramming Assignment 2. 
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Systems Flowchart 


ACCOUNT-TRANS 


80-position records ACCOUNT-MASTER 
standard labels 50-position records 


20 records/block standard labels 
20 records/block 


ACCOUNT-TRANS Record Layout 


ACCOUNT-MASTER Record Layout 


“Al 42 50 


1 5 6 “25 26 31 32 37 38 


Systems Flowchart 


PAYROLL-MASTER PAYROLL-REPORT 
80-position records 

standard labels 

20 records/block 


PAYROLL-MASTER Record Layout 


1 56 2526 2930 3536 4849 5354 5859 80 
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PAYROLL-REPORT Printer Spacing Chart 


afyyafy 
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Figure 9,3 
(continued) 


Figure 9,4 Systems Flowchart 


Problem definition for Pro- 
gramming Assignment 3. 


GRADE-REPORT 


STUDENT-MASTER 
80-position records 
standard labels 

20 records/block 


STUDENT- MASTER Record Layout 


34 35 37 38 


GRADE-REPORT Printer Spacing Chart 
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Notes 
(a) Output sales price is equal to the input net price with an added 5% sales tax. 
(b) Commission is 20% of the price exclusive of the tax. 


5. Using the STUDENT-MASTER described in Figure 9.4, write a program to print the 
class average for each of the four exams. See the Printer Spacing Chart in Figure 
9.5. 


Figure 9.5 
Printer Spacing Chart for Pro- 
gramming Assignment 5. 


6. Write a program to convert British pounds to dollars and cents. The tape input has 
the following format: 
1-25 Name of British agency 
26-30 Number of pounds 
31-80 Not used 
A report is to be printed that lists, for each input record, the following: 


1, Name of British agency. 
2. Number of U.S. dollars. 
3. Number of U.S. cents. 


Notes 

(a) The input tape is blocked 20 and has standard labels. 
(b) 1 pound = $1.50, 

(c) Dollars and cents are two separate data fields. 

(d) Include appropriate headings and spacing on the output. 


Extra Assignment: Redo this problem allowing for a variable conversion rate that 
is to be read in as input from a card or entered on a terminal. The first three positions 
of this input record will indicate the dollar amount equivalent to one pound. 


7. Your company has a fleet of taxis and you wish to determine the energy efficiency 
of each taxi in the fleet as well as that of the entire fleet. Input consists of records 
with the following format: 


1-10 Vehicle identification 
11-20 Vehicle description 
21-24 Miles traveled 
25-28 No. of gallons of gas used (XX.XX) 


Print a report that indicates the miles per gallon for each taxi and for the fleet as a 
whole. 
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OB ECTIVES 


To familiarize you with: 

1. The way IF statements are used for testing, looping, and logical control. 
2. The variety of formats and options available with the conditional statement. 
3. The use of the PERFORM and the PERFORM «++ UNTIL for logical control. 


EE 1. simple Condition 


A. Basic Format for Conditional Statements 


We define a conditional statement as one that performs an operation de- 
pendent on the existence of some condition. Such statements, in COBOL, 
generally begin with the word IF. 

The basic format for IF statements is as follows: 


Format 


An imperative statement, as opposed to a conditional statement, is one that 
issues a command to be executed, regardless of any existing conditions. ADD 
ATOB, MOVE C TOD, and OPEN INPUT MASTER-TAPE are examples of imperative 
statements that do not test for conditions but simply perform operations. 
Hence, we say that COBOL statements are divided into two broad categories: 
(1) imperative, which perform operations, and (2) conditional, which test for 
the existence of one or more specified conditions. 

A condition may test for a specific relation. A simple condition may be a 
single relational test of the following form: 


SIMPLE RELATIONAL CONDITIONS 
(a) IF data-name-1 1S EQUAL TO data-name-2 
(b) IF datayname-1 1S LESS THAN data-name-2 
(c) IF data-yname-1 1S GREATER THAN data-name-2 


These three tests are considered simple relational conditions. 
An illustration of a simple relational conditional statement is as follows: 


IF A IS EQUAL TO B 
DIVIDE C INTO D 
ELSE 
ADD A TO TOTAL. 


—— 


There are two possible results of the test performed by the above statement: 


(a) A is equal to B 
(b) A is not equal to B 


(a) If @ is equal to B, the DIVIDE operation is performed. The second part 
of the statement, beginning with the ELSE clause, is ignored. The program 
will continue execution with the next sentence, disregarding the clause that 
begins with the word ELSE. 
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(b) If the equality, in fact, does not exist, then the DIVIDE operation is not 
executed. Only the ELSE portion of the statement, the ADD operation, is exe- 
cuted. In either case, the program continues executing with the next sentence. 

Thus, by using the word IF, we test the initial condition and perform the 
instruction specified; by using ELSE, we can perform an operation if the initial 
condition is not met. 

The ELSE option is bracketed | | in the instruction format, which means 
that it is optional. If some operation is required only if a condition is present 
and nothing different need be done if the condition is absent, the entire ELSE 
clause may be omitted: 


36 40. a8, A 56 co o i a 


NAMELIOUT!. 


wm 


t 

| OVE) INAIMEL [7 | 

| OVE! AMOWWINT! {Tol |AIMOIUINT!-lOlUlT. | | ae 

| F| JAMONUINT! |T/S|_JEQIUAIL| ITO ZEROS: | | 

| VEL NOL ITIRIANISAICITILOINIS) ITIHILIS ONTH UIT-AREA\.| | 
| R PRILNT! ! 


PREC. 


In this case, the message ‘NO TRANSACTIONS THIS MONTH’ is printed only 
if AMOUNT is zero. If AMOUNT is not zero, we continue with the next sentence 
without performing any operation. Since no operation is required if AMOU 
is not zero, the ELSE clause is unnecessary in this instance. 

The instruction format also indicates that more than one command may 
be executed for each condition. Thus, the following will perform two MOVE 
operations if A is equal to B, and two ADD operations if A is not equal to B: 


IF A IS EQUAL TO B 
MOVE C TO D 
MOVE E TO F 

ELSE 
ADD G TO H 
ADD J TO Ky 


To ensure that the IF instruction is executed properly, be sure to include 
a period at the end of the entire sentence. 

We have indented statements within the IF instruction for ease of reading 
and to make debugging simpler as well. That is, the following coding style 
will be used in this book for conditionals: 


Reference Line Numbers Clause 
line 1 IF condition 
line 2 imperative statement 
line 5 ELSE 


line 6 imperative statement 


The entire IF instruction will end with a period. 

This standard format of indenting and coding each statement on a separate 
line makes reading the program easier, but it does not affect the compilation 
process. That is, this coding technique is not a requirement, even though we 
recommend you use it. For one thing, suppose you determine that an error 
occurred when line 6 was executed. It will be easier to determine the cause 
of the error if line 6 contained a single statement than if it were coded as: 


IF A IS EQUAL TO B ADD C TO D ELSE ADD C TO G. 
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In the above, the exact statement that caused an error would be more difficult 
to determine. 

The following symbols for the three simple relational conditions are valid 
within a COBOL statement: 


Symbol Meaning 
a4 § LESS THAN 
> IS GREATER THAN 


S EQUAL TO 


A COBOL conditional, then, may have the following form: 


2 16 20 24 28 36 40 co 52 Ed oO 


t 32 rn & 
ETRE OER HP CTT oo 
BCBWLELI TH rH aie HA HTH tt 


which is the same as 


3 0. cy cy 52 36 0 cy B 7 


; 
| {| 
| Fe LPL BBY 1 tf i 9 ag 


In both cases, B is multiplied by c only if the relation does not exist, that is, 
if A equals B or A is less than B. Most COBOL compilers require a blank on 
each side of the relational symbols <, >, =. In coding, then, be sure you 
include this space. 

Some organizations encourage the use of the words (e.g., 18 GREATER THAN} 
rather than the symbols (e.g., >) because they are easier for users to understand 
and they help make COBOL self-documenting. We will use both the words 
and the symbols in our illustrations. You are free to use whichever method 
you find more convenient. 

Keep in mind that conditional statements must use data fields with the 
same data types to obtain proper results. In the statement, IF A = ‘123’ 
MOVE C TO D, it is assumed that A is a nonnumeric field, since it is compared 
to a nonnumeric literal. As in MOVE operations, the literal should have the 
same format as the data item. If B has a PICTURE clause of 9’s, the following 
conditional would be appropriate: IF B = 123 MOVE E TO F, 

Similarly, to ensure correct results, data fields that are compared to one 
another should have the same data types, whether numeric or nonnumeric. 
Thus, in the statement, IF A = B PERFORM RTN1, both A and B should be 
either numeric or nonnumeric. 

If FLDA were a field defined as numeric, but actually contained blanks, the 
following instruction would cause a data exception error to occur: IF FLDA 
IS EQUAL TO ZERO ADD C TO D. This error will occur because blanks are 
not valid numeric characters. Be certain, then, that if a field is defined as 
numeric, that it actually contains numbers. We will discuss this again in 
Chapter 15 when we consider data validation techniques. 


B. Planning Conditional Statements with Flowcharts and Pseudocode 


The flowchart sequence that corresponds to a simple condition without an 
ELSE clause is as follows: 
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un 


pouuunnannrnne” C 


Seen, ye 


With an ELSE, the flowchart would appear as follows: 


qr 


The “Yes” branch is executed if the condition is met. The “No” branch is 
executed if the condition is not met; it corresponds to the ELSE clause. Thus, 
the IF clause corresponds to the Yes” flow and the ELSE clause corresponds 
to the “No” flow. 

Using pseudocode, we would plan the logic to be coded in a conditional 
statement with an IF-THEN-ELSE entry: 


Pseudocode 


condition 
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In COBOL, the pseudocode ENDIF is specified with the use of a period at the 
end of the conditional sentence. 
The 1985 standard allows the optional use of the word THEN after the IF 
(condition) clause, to conform to the IF-THEN-ELSE structure in pseudocode. 
In this chapter, we will focus on using flowcharts and pseudocode for plan- 
ning the logic to be used with conditionals. 


C. How Comparisons are Performed 


Regarding the comparisons of numeric fields, the following are all considered 
equal: 


+12 


Numeric comparisons are performed in COBOL algebraically. Although 12.00 
does not have the same internal configuration as 012, their numeric values 
are known to be equal. 

Similarly, when comparing nonnumeric fields, the following are considered 
equivalent: 


ABC 
ABC} (b denotes a blank position) 
ABC 


Low-order or rightmost blanks will not upset the equivalence. Only significant 
(that is, nonblank] positions are compared, from left to right. Consequently, 
bABC is not equal to ABCK, since the letter A is not equal to b. 


D. ASCII and EBCDIC Collating Sequences 


When performing an alphanumeric comparison, the hierarchy of the compar- 
ison, called the collating sequence, depends on the computer used, 

The two types of internal codes that are most commonly used for repre- 
senting data are EBCDIC, for IBM and IBM-compatible computers, and ASCII. 
The collating sequences for these differ somewhat. Characters are compared 
to one another in EBCDIC and ASCII as follows: 


COLLATING SEQUENCE 
(From Low To Hicu) 
EBCDIC ASCII 
Lowest b b Lowest 
Special Some special 
characters characters 
A 0 
Z 9 
Additional 
special 
characters 
0 A 
v : v 
Highest 9 Z Highest 
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We have not included the specific sequences for the special characters because 
they are rarely used in comparisons, but Appendix A includes all characters 
in the EBCDIC and ASCII codes, including special characters and lowercase 
letters, in their respective collating sequences. 

You can see that on both ASCII and EBCDIC computers numeric compar- 
isons and alphabetic comparisons will be performed properly. That is, 012 < 
022 < 042, and so on, on both types of computers. Similarly, all computers 
will be able to determine if data is arranged alphabetically because A is con- 
sidered less than B, which is less than C, and so on. Thus, ABCD < BBCD < 
XBCD, and so on. 

Note, however, that if alphanumeric fields are being compared where there 
may be a mix of letters and digits or uppercase and lowercase letters, the 
results of the comparison will differ, depending on whether you are running 
the program on an EBCDIC or ASCII computer. On EBCDIC machines, letters 
are all less than numbers; on ASCII machines, numbers are less than letters. 

Consider the following comparison: 


IF ADDRESS-IN ¢ ‘100 MAIN ST’ 
ADD 1 TO TOTAL. 


If ADDRESS-IN has a value of ‘ROUTE 109’, the result of the comparison 
will differ depending on whether you are using an ASCII or EBCDIC computer. 
On EBCDIC computers, ‘ROUTE 109’ is less than ‘100 MAIN ST’ because 
the first character, R, compares “less than” the number 1; hence 1 would be 
added to TaTAL. On ASCII computers, the reverse is true; that is, letters are 
“greater than” numbers and hence, 1 would not be added to TOTAL. 

This difference is worth mentioning, but not worth dwelling on since alpha- 
numeric comparisons of this type are not usually required in programs. For 
comparisons of fields containing either all numbers or all letters, both ASCII 
and EBCDIC computers will produce exactly the same results. 


E. Ending Conditional Sentences with a Period 


As indicated, several imperative statements may appear within one condi- 
tional. Indentation is used to make the entire sentence easier to read. Also, 
the placement of periods can affect the logic in an 1F statement. Consider the 
following: 


HPT TT 


aati 


| 


Cae 
eal 
=| 


ey R 36 40 a4 48 " ‘a ee ~ 60 aw 88 72 
[T] 
| 
| 
| 
| 


ih Tr an 
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Example 
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Note that MOVE 0 TO ITEM2 is always executed regardless of the comparison. 
This statement may be flowcharted as follows: 


If a period were inadvertently omitted on line 050, then MOVE 0 TO ITEM2 
would be considered part of the ELSE clause and would not be executed if A 
were less than B. You can see, then, that the placement of the period can 
significantly affect the logic. 

If you are using an ELSE clause, never place a period before the ELSE; code 
the period at the end of the sentence following all imperative statements that 
apply to the ELSE. 


F. The NEXT SENTENCE Clause 


There are times when you might want to execute a series of steps only if a 
certain condition does not exist. The COBOL expression, NEXT SENTENCE, 
will enable you to avoid performing any operation if a condition exists and to 
include statements to be performed only if the ELSE clause is executed. 


| IIIT I 


HAMAEAAGEGEGE 


If A is equal to B, no operation is performed and the computer continues execution 
with the next sentence, which is the statement following the period. If A is not equal 
to B, A is added to D and the next sentence is executed. 


Note that the following two statements produce identical results: 


Ev EG cn co a8 cy 7A 


Q) 


(2) 


ff Pepe pe{ {oT = 


TT HT 
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| 
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ei OS 
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At 
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Both (1) and (2) can be flowcharted as: 


| 


ac ten 


v 
The pseudocode for this program excerpt would be: 


Pseudocode 


IF c=D 
THEN 
ADD A TO B 


ENDIF 


The phrase ELSE NEXT SENTENCE in statement (1) is unnecessary; if C is not 
equal to B, the computer will proceed to the next sentence anyway. Thus, 
with a simple IF, the ELSE clause is used only when a specific operation is 


required if a condition does not exist. 
H 
ey ‘i statement following the tl 1 


Note that the following is invalid: 
Poo 
| | 
H [| 
AB BCOACEORLC-EC Rr TEHEEEECEHE 


EXT SENTENCE must be the only clause following a condition, since it 
indicates that no action is to be performed. To correct the above, we code: 


IF A IS EQUAL TO B 
app A TO TOTAL 


Invalid coding: 


6 20, n 26 ED ET 70. ny 48 82 6 oH 


Brrr er 


‘ | 
‘< If NEXT SENTENCE is coded, 
it must be the only imperative r 


— 


zs Oa 
i, 
> 


ELGE: 


ADD 1 TO CTR. 


Lia ae Il. Other Types of Conditionals 


A. Using the PERFORM +++ UNTIL asa 
Conditional Statement: A Review 


Thus far, we have seen how the IF statement is used to test certain conditions. 
A conditional statement is also necessary when we wish to perform a loop, 
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Example Suppose we want each input record printed five times. The fol owing coding illustrates 
the instructions to perform the required operation: 


PRIICEDIURIELDITIVITISITION. gp gy gp —, 

ape ATHHTLGREEReRHELERLEEEE E Cote HH 
D D () PUT! PR TH LEI. 

“CURED INCEILE! IAT END|-Ma uaa Moo 


rr 


We will first discuss the CALC-RTN and WRITE-RTN modules. 


1. CALC-RTN and WRITE-RTN Modules 

As in previous illustrations, the PERFORM ++ UNTIL in the MATN-MODULE 
determines if the routine called CALC-RTN is to be repeated or if the job should 
be terminated. 

Each time CALC-RTN is executed, COUNTER! is initialized at zero, Data from 
REC-IN is then moved to REC-OUT. Since COUNTER1 was initialized at zero, 
it is not equal to 5; thus, the PERFORM WRITE-RTN will be executed. 

A record is printed at WRITE-RTN and one is added to COUNTER1. Thus, 
COUNTER1 is equal to | after one record is printed. Since COUNTER1 is not yet 
equal to 5, WRITE-RTN is executed again. The second line is printed, and 1 is 
added to COUNTER1, giving COUNTER1 a value of 2. This process is repeated 
until a fifth record is printed and COUNTER1 contains a value of 5. At that 
point, COUNTER1 is compared to 5; since COUNTER1 now equals 5 and we have 
printed exactly 5 lines, control returns to the statement within CALC-RTN 
after the PERFORM, which causes another record to be read, Note that COUNTER 
would normally be defined in the WORKING-STORAGE SECTION. 
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This series of steps may be flowcharted as follows: 


CALC-RTN 


WRITE-RTN 


osersnesrrent 
a 
le) 
en 
> on 
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Since COUNTER1 begins at zero, the steps at WRITE-RTN will be repeated 5 
times, that is, UNTIL COUNTER: = 8. Each execution of this series of steps is 


called an iteration. 


The pseudocode for this iteration would be as follows: 


PSEUDOCODE 


MOVE 0 TO COUNTER1 
MOVE REC-IN TO REC-OUT 


PERFORM WRITE-RTN UNTIL COUNTERI 


WRITE REC-OUT 
ADD 1 TO COUNTERL 
ENDPERFORM 


READ IN-FILE AT END MOVE 1 TO EOF 


2. The Main Module 


In the preceding example, the statement PERFORM WRITE-RTN UNTIL COUNTER 
= 5 is itself in a paragraph that is executed under the control of a PERFORM. 
That is, the main module executes CALC-RTN until EOF = 1. Thus, CALC- 
RTN, which incorporates a PERFORM statement, is itself under the control of a 
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PERFORM. This use of PERFORMs within PERFORMs is a common programming 
technique and is called a nested PERFORM: 


7te i 16 20 24 2 32 36 a0 a a 2 36 0 m7 7 
! [| | | | 
! 7 : | L 

| IPE OR CIAILIC|-/RITIN UINTILIL| EIOIF! [=| 4): xecutes until there are 

UI R [ T ++ +6 fea Ate mee 2 | i: 
r r |_| J. 4 
(CALIC-RITIN.. PCC 

|||] MOE! (@ Tol COUNTIERA).| [|| | 
' x oT rr T i ‘i 
- +r +} i. 5 ES ee im 

| 12 He 

HL HPRRFORM MATITE-RTN, UNTIL (OUNTERG Brrr rresderei™ TTT 


The following operations are generally used for looping: 


PROCEDURES USED IN LOOPING 
Paragraph Containing PERFORM for Looping 
1. Initialize field to be tested. (e.g., MOVE © TO COUNTER) 
2. Code PERFORM paragraph-name UNTIL condition. 
Paragraph to be Performed 
1. Code steps required. 
2. Increment the field to be tested. (e.g, ADD 1 TO COUNTER1) 


Consider the following program excerpt and see if you can determine the 
logic error that results. 


Purpose: To add FIELDA to SUM-TOTAL 10 times. 


Looping: With an Error 


MOVE © TO COUNTERA, 
PERFORM ADD-RTN UNTIL COUNTERA = 10, 
WRITE TOTAL-REC, 


’ 


ADD-RTN, 
ADD FIELDA TO SUM-TOTAL. 


You should have realized that ADD-RTN does not include an instruction that 
increments COUNTERA. Thus, COUNTER is initialized at 0 and will remain at 
zero. Each time ADD-RTN is executed, a test is performed to determine if 
COUNTERA = 10. Since ADD-RTN does not include ADD 1 TO COUNTERA, the 
PERFORM statement will cause ADD-RTN to be executed indefinitely. This error 
condition is referred to as an infinite loop. What will actually happen is that 
the computer’s built-in clock will sense that ADD-RTN is being executed more 
times than would normally be required by any program and will then auto- 
matically terminate the job. 
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The correct coding for the above would be: 


MOVE © TO COUNTERAs 
PERFORM ADD-RTN UNTIL COUNTERA = 10, 
WRITE TOTAL-REC. 


+ 


ADD-RTN+ 
ADD FIELDA TO SUM-~TOTAL. 
ADD 1 TO COUNTERA, 


B. Examples of Loops 


To illustrate looping, let us multiply two numbers using a series of successive 
additions. We do this just to illustrate how a PERFORM 1 ++ UNTIL can be 
effectively used for looping. If four is added to itself three times, for example, 
the result is 12, which is the product of 3 x 4. Using a PERFORM «++ UNTIL, 
we can code this successive addition procedure as follows: 


RTNI« 
MOVE ZEROS TO TOTAL+ 
PERFORM RTN2 UNTIL A = Q- 
WRITE ANS-REC. 


* 
’ 


‘RTNZ. 
app B TO TOTAL+ 
SUBTRACT 1 FROM A+ 


Suppose & = 3 and B = 4, let us see if we obtain the correct value of 12 in 
TOTAL. 


No. of Times Through RTN2 Results at End of Loop 
TOTAL A B 
1 4 2 4 
2 8 1 4 
3 12 0 4 


Control returns to the statement after the PERFORM. 


This will work properly for all positive integer values for A. 

As previously noted, in a PERFORM +++ UNTIL the condition specified is 
tested before the paragraph to be performed is executed. In a PERFORM para- 
graph-name UNTIL condition, if the condition is met initially, the named 
paragraph is simply not executed at all. Thus, in the above, if A had an initial 
value of 0, then RTN2 would not be executed. The 0 initially moved to TOTAL 
would print as the correct answer. 


C. Simple PERFORM Statement for Altering the Path of a Program 


We have thus far considered the use of conditionals for executing different 
instructions depending on specific conditions. The PERFORM +++ UNTIL in- 
struction may also be used to execute a series of instructions until a particular 
condition exists. 

Sometimes a conditional uses a simple PERFORM to cause execution of an 
entire paragraph if a condition exists. Let us now introduce the basic PERFORM 
statement that can be used independently or in conjunction with an IF. 
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In addition, a simple PERFORM statement permits execution of a specified 
routine from one or more points in a program. For example, we may want to 
execute an error routine depending on one of several conditions. The format 
is as follows: 


The PERFORM statement will: 


1. Execute all instructions in the named paragraph. 
2. Transfer control to the next sequential instruction after the PERFORM. 


A flowchart for a simple PERFORM is as follows: 
Paragraph-name 


MAIN-MODULE 


The pseudocode for this program excerpt would be: 


PERFORM 


° Statements to be performed 
° 


ENDPERFORM 


Note that the end of a paragraph being performed is designated in COBOL 
by the beginning of a new paragraph or by the end of the program. 


1. COMP-RTN, 
IF CODE-xX = 1 
PERFORM CREDIT-RTN 
ELSE 
PERFORM DEBIT-RTN. 
WRITE DETAIL-REC. 
READ IN-FILE AT END MOVE 1 TO EOF. 
2. CHECK-RTN. 
IF AMT1 IS EQUAL TO ZERO 
PERFORM ERR-RTN1, 
IF AMTZ IS LESS THAN 100,00 
PERFORM ERR-RTN2, 


Figure 10.1 indicates the path a program takes after a PERFORM is executed. 
The following sequences produce identical results: 
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Sequence 1 MOVE 0 TO COUNTER1« 
PERFORM WRITE-RTN UNTIL COUNTERS = 3, 


+ 
+ 


WRITE-RTN+ 
WRITE OUT-REC+ 
ADD 1 TO CTRI+ 


Sequence 2 PERFORM WRITE-RTN» 
PERFORM WRITE-RTN» 
PERFORM WRITE-RTN« 


‘ 
+ 


WRITE-RTN» 
WRITE OUT-REC. 


Similarly, consider the following two routines: 


1. IF A 18 EQUAL TO B’ 
MOVE 0 TO CODE-1 
PERFORM RTNZ 

ELSE 
PERFORM RTNZ+ 
nn 9. IF A 1S EQUAL TO B 
MOVE 0 TO CODE-1, 
PERFORM RTN2Zs 


Observe that these two routines perform the same sequence of operations. 
hn Let us consider the first routine. Regardless of whether A is equal to 6, the 
program will execute RTN2. In the second routine, when A is equal to B we 
move 0 to CODE-1 and then perform RTN2; if the condition is not met, we 
perform RTN2. Thus, both 1 and 2, are equivalent. 

The point of this illustration is to indicate that a conditional may be written 
several ways and still execute the same series of operations. 


Figure 10.1 
Schematic of 
simple PERFORM. 


Self-Evaluating Quiz What is wrong with the following statements (Questions 1-8}? 


1, IF A 18 LESS THAN B 
GO TO NEXT SENTENCE 
ELSE 
ADD 1 TO KXy 
2. IF A IS EQUAL TO ‘127’ 
ADD A TO B. 
3. IF A IS GREATER THAN B 
ADD A TO B 
ELSE 
ADD C TO De 
4. IF A EQUALS B 
MOVE 1 TO Ay 


5. aDD 6 TO XX IF A= C 


6. IF 4 IS LESS THEN B 
MOVE 2 TO CODE1. 
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7. TF Gi = p 
MOVE 0 TO COUNTER. 
ELSE 
MOVE 100 TO COUNTER, 
8. IF C =D 
MOVE © TO COUNTER 
ELSE 
NEXT SENTENCE, 
9. Will the following pair of statements cause the same instructions to be executed? 
(a) IF A IS EQUAL TO Cc 
MOVE 1 TOC 
ELSE 
NEXT SENTENCE, 
(b) IF A IS EQUAL TO Cc 
MOVE 1 TOC, 


10. Code the following routine. Note the NO and YES flowlines: 


"YES 
— eee | 


11. Write a routine to move the smallest of three numbers 4, B, and C toa field called 
PRINT-SMALL. 


12. Indicate the difference between the following two routines: 
(a) IF & IS EQUAL TO B 
ADD C TO D 
MOVE E TO TOTAL, 
(b) IF 4 I8 EQUAL To B 
ADD C TO D. 
MOVE E TO TOTAL, 


Solutions 1. You cannot say: GO TO NEXT SENTENCE: 


IF A IS LESS THAN B 
NEXT SENTENCE 
ELSE 
ADD 1 TO XX, 


2. Since A is compared to a nonnumeric literal, A is assumed to be an alphanumeric 
field. But A is added to another field, which implies that it is numeric. Hence, a 
contradiction of data types exists. While this may, in fact, produce the correct 
results (depending on the contents of 4}, it is not advisable to make a comparison 
where one field or literal is alphanumeric and the other is numeric. 


Format 
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3. Okay 
This should be: IF & IS EQUAL TO B tees 
5. The conditional phrase must precede the imperative phrase: 


a 


IF A =e 
ADD 8 TO XX+ 
6. When the words GREATER and LESS are used, the COBOL word that follows is 
THAN and not THEN. 
. No period after MOVE 9 TO COUNTER. 
_ ELSE NEXT SENTENCE, although not incorrect, is unnecessary. 
Yes. 
10. IF & 18 LESS THAN B 
NEXT SENTENCE 
ELSE 
MOVE 1 TO By 
IF & 18 LESS THAN C . 
MOVE 1 TOA 
ELSE 
MOVE 1 TO B. 
11. MOVE A TO PRINT-SMALL. 
IF B IS LESS THAN PRINT-SMALL 
MOVE B TO PRINT-SMALL» 
IF C IS LESS THAN PRINT-SMALL 
MOVE C TO PRINT-SMALL+ 


Oo ON 


Note: This is not the only way to write this routine. 


12. In (a), MOVE E TO TOTAL is performed if 4 is equal to B. If a equals 6, the computer 
executes all imperative statements until a period or the ELSE clause is reached, In 
(b), however, a period follows ADD C TO D. Thus, if A is equal to B, only one 
imperative statement is executed. Then, regardless of whether A equals 6, E is 
moved to TOTAL. In (a), therefore, E is moved to TOTAL only if the condition exists 
and in (b), & is always moved to TOTAL. The indenting included in both (a) and (b) 
does not affect the execution—the placement of the period is the critical factor. 


D. Compound Conditional 


To be an efficient programmer, it is not enough simply to learn the rules of a 
programming language. We must be able to apply these rules to difficult logic 
problems. The conditional statement, as illustrated, is of prime importance in 
solving logic problems. The compound conditional provides even greater flex- 
ibility and enables the IF statement to be used for more complex problems. 
With the compound conditional, the programmer can test for several condi- 
tions within one statement. 


1. OR in a Compound Conditional 

To perform an operation or a series of operations if any one of several con- 
ditions exists, the compound conditional with conditions separated by OR may 
be used. This means that if any one of several conditions exists, the imperative 
statement(s) specified will be executed: 
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Examples 

me iH 17 20 24 26 2 6 0 my Ey Eg 60 i 7 7a 
vt | I = OR! Bi cl] | 
, {1 || E EERE Pett | [ i ii | HHH 
ttt] TTT AT KI cl ol Al EID re / th 

aan OME! Al IO! B ; 

| ELSE | 
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The number of conditions that may be specified in a single statement de- 
pends on the physical limitations of the computer. 
The COBOL word IF signifies that one or more comparisons will be made. 
It, therefore, is needed only once in a compound conditional statement, 

The following, then, is invalid: 


TAR 

mI 
= 

a] 


UAL] Bl bR/IEE] BI-Ep! EQUAL For cy PERFORM PARAS. LITT 


Will cause a syntax error 


The compound conditional may have only one IF. 

In compound conditionals, it is not always necessary to specify both oper- 
ands for each condition. To say IF A = 7 OR 8 PERFORM RTNS tests two 
simple conditions: (1) 4 = 7 and (2) 4 = 8. Since the data-name 4 is omitted 
from the second condition test, we say that it is an implied operand. For most 
compilers, a compound conditional statement with an implied operand is valid, 
that is, both operands need not be indicated for each condition. This statement 
can also be coded as: 
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oun 


aero a cea eTAETEATfeooosonad ad aad eetannaozatl 


The following use of an implied operand, however, is not valid: 
IF A OR B = 7 


Following the word IF, a full condition must be specified. In a conditional 
such as IF condition-1 OR condition-2 ..., condition-1 must include a full 
test, but subsequent conditions can have implied operands, where the first 
operand of the subsequent condition is the one that is implied. In the clause 
IF A = 7 OR &, for example, the compiler assumes you mean A = 8. 

By using OR in a compound conditional, any of the conditions specified will 
cause execution of the imperative statement. If none of the conditions is met, 
the computer will execute either the ELSE option, if coded, or the next sen- 
tence. Consider the following example: 


32, 36 io cy cn 52 56, oO 


R 
0! 


SET RAEEEeRTTAT 
aren 


The branch to ERR-RTN occurs only if A is greater than or equal to D and 
is unequal to E. If either A is less than D or A is equal to E, 4 will be added 
to 6 and then the next sentence will be executed, 
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Example Assume A is a two-position numeric field. We want to PERFORM TENS-RTN only if A 


is a multiple of 10. To program this loop, we may use a PERFORM «+ UNTIL statement: 
20 2 2 a2 36 40 aa 48 B2 36 ic) w cy 73 
iz 4 
Ean 
BEGIN UNTIL CitRi =| i). [ 
|_| It |_| |_| 
eh {| i _ 


REOR LRIT || | 
CT} 


10 ROM!_C| | : | 


4 and CTR are data-names defined in the CATA DIVISION, in either the FILE SECTION 
or the WORKING-STORAGE SECTION 


To program this routine, we may also use a compound conditional: 


20 2 2 32 36 40 44 cn 


Sc al 
yar 


(Ol 0 = Ea ORLALe ee CO 
CP PR ATED AAP NH 


Note that the following two routines produce identical results, 


(1) IF @ IS GREATER THAN 5 OR EQUAL TO 5 
PERFORM STEP 


PERFORM STEP2. 


or 
(2) IF A 18 LESS THAN 5 
PERFORM STEPZ 


PERFORM STEPL+ 


That is, if A is not greater than or equal to 5, it must be less than 5. 
With 1985 compilers, (1) can be coded as IF A >= Si+++ That is, >= and <= are 
permitted in compound conditionals. 


2. AND in a Compound Conditional 


If a statement is to be executed only when ail of several conditions are met, 
then the COBOL word AND must be used in the compound conditional: 


Format 


For the first imperative statement to be executed, all conditions must be 
met when AND is used. The ELSE option will be performed if any one of the 
stated conditions is not met. 


Example Suppose we wanted to perform PRINT-RTN if all the following concitions are met: 


A=B 
c= 0 
E=F 


otherwise we wish to perform ERR-RTN. That is, if one or more of these conditions are 
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not met we wish to perform ERR-RTN. We may use a compound conditional for this: 


IF A IS EQUAL TO B AND C IS EQUAL TO D AND E IS EQUAL TO F 
PERFORM PRINT-RTN 

ELSE: 
PERFORM ERR-RTN,. 


If all the conditions are met, PRINT-RTN is executed, If any condition is not met, ERR- 
RTN is executed. 


3. Using AND and OR in the Same Statement 


(a) Introduction. There are times when both the AND and OR are required 
within the same compound conditional. 


Write a routine to perform CALC-RTN if A is between 10 and 20, inclusive of the 
endpoints (that is, including 10 and 20). Assume 4 is an item in WORK ING-STORAGE. 
On first sight, we might code a compound conditional as follows: 


F A= 10 OR A= 11 OR A = 12 «4. OR A = 20 
PERFORM CALC-RTN. 


This statement, however, will function properly only if A is an integer. The 
number 10.3, for instance, is between 10 and 20, but it will not pass the above 
tests. For a similar reason, we cannot say: IF A ? 9 AND @ ¢ 21 PERFORM 
CALC-RTN. If A is 9.8, it is not between 10 and 20 but it passes both tests. 
Thus, we want to branch to CALC-RTN if: 


(1) A = 10 
oR (2) A >» 10 AND A ¢ 20 
OR (3) A = 20 


Hence, we would code the compound conditional as follows: 


IF A IS EQUAL TO 10 
OR A 18 GREATER THAN 10 AND A IS LESS THAN 20 
OR A IS EQUAL TO 20 
PERFORM CALC-RTN. 


(b) Order of Evaluation of Compound Conditionals. When using both AnD 
and OR in the same compound conditional, the order of evaluation of each 
condition becomes extremely important. For example, look at the following: 


IF A = B OR C = D AND E = F 
PERFORM PARA-1, 


Suppose A = 2,8 = 2,C = 3,D = 4,£ = 5, and F = 6. Depending on the 
order of evaluation of these conditions, PARA-1 may or may not be executed. 
Suppose the statement is evaluated as follows: 


I (a) IF & = B ORC =D 
AND (b) E = F 


If this is the order of evaluation, there are two ways that PARA-1 will be 
executed: (1) A = Bande = F, or(2)C = D andE = F. That is, E and F must 
be equal and either 4 must be equal to B or ¢ must be equal to D. Since E does 
not equal F, no branch will occur if this order of evaluation is correct. 
Suppose, however, that the above instruction is evaluated as follows: 


i. (a) A = B 
or (b) C = D AND E = F 


If this is the order of evaluation, there are two ways that PaRA-1 will be 
executed: (1) A = B, or (2) C = D ande = F. That is, either 4 and B are equal 
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or © must equal D and E must equal F. Since the first condition, A = B, is 
met, then the PERFORM will occur if this order of evaluation is correct. 
Hence, with one order of evaluation, PARA~1 is executed, and with another, 
it is not. It should be clear, at this point, that only one of these evaluations 
will prove to be accurate. 
Now that the importance of the order of evaluation is clear, let us consider 
the hierarchy rules. 


HIERARCHY RULES 


Conditions surrounding the word AND are evaluated first. 

9. Conditions surrounding the word OR are evaluated last. 

3. When there are several AND or OR connectors, the AND conditions 
are evaluated first, as they appear in the statement, from left to 
right. Then the OR conditions are evaluated, also from left to right. 


4. To override Rules 1-3, use parentheses around conditions to be 
evaluated first. 


= 


Using the hierarchy rules in the above example, the conditions will be 
evaluated as follows: 


(a) IF C = D AND E = F 
or (b) & = B 
With the given contents in the fields, PARA-1 will be executed, since 
A=6B. 


(c) Examples. As in a previous example, we want to print 4 if A is between 
10 and 100, inclusive. This is often written mathematically as 10 < A < 100; 
if 10 is less than or equal to A and, at the same time, @ is less than or equal 
to 100, then we wish to print A. 

The problem is to determine if the following statement will result in the 
proper test: 


IF A ¢ 100 OR @ = 100 AND A # 10 OR A + 10 
PERFORM PRINT-RTN- 


Using the hierarchy rule for evaluating compound conditionals, the first con- 
ditions to be considered are those surrounding the AND. Then, from left to 
right, those surrounding the OR groupings are evaluated. Thus, we have: 


(1) IF @ = 100 AND A = 10 

or (2) A ¢ 100 
or (3) A > 10 

We see that the compound expression in (1) is an impossibility; the value 

for @ can never equal 10 and, at the same time, be equal to 100. Since the first 

expression will never cause a branch, it can be eliminated from the statement, 

which reduces to: 


2 36 40 aa 18 52 86 00 4 a8, 7 


VIS 
Eo)F=) 


<3 —* 
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mpl Fak 
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This, obviously, is not the solution to the original problem. In fact, using the 
above, all values for A will cause PRINT-RTN to be executed. If A were, in fact, 
more than 100, it would cause PRINT-RTN to be performed since it passes the 
test: A > 10, If A were less than 10 it would cause PRINT-RTN to be executed, 
since it passes the test: A < 100. 

The original statement would be correct if we could change the order of 
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evaluation. If the following order were used, the statement is correct: 


(1) IF A < 100 OR A = 100 
AND (2) A = 19 OR A + 10 


To change the normal order of evaluation, place parentheses around the con- 
ditions you want to be evaluated first, as a unit. Parentheses override the 
other hierarchy rules—all conditions within parentheses are evaluated to- 
gether. Thus the following statement is correct: 


THLIFLA od POM PE 
CECE ECAND 1 Coo oa | | 
-T-CCE PERE a SEHSSHSGHESIESGHUSIEGAGGLG 


When in doubt about the sequence of evaluation, make use of parentheses. 
Even v hen they are not necessary for proper execution, as in IF (A = B AND 
C = D, OR (E = F).+.+, they help a reader understand the logic better. 


E. Sign and Class Tests 


In addition to simple and compound conditionals, there are various specialized 
tests that can be performed with the IF statement. 


1. Sign Test 
(a) Format. We can test whether a data field is POSITIVE, NEGATIVE, or 
ZERO with a sign test: 


Format 


(b) Designating Fields as Signed Negative or Positive. To test a field for its 
sign implies that the field may have a negative value. As noted in Chapter 9, 
all numeric fields will be considered unsigned or positive by the computer 
unless there is an § in the PICTURE clause. This 8, like the implied decimal 
point Y, does not occupy a storage position. Thus 05 AMT1 PIC 99 is a two- 
position unsigned field and 05 AMT2 PIC S99 is a two-position signed field. 

If you move —12 to ANTi, AMT1 will contain 12 because it is unsigned, 
moving —12 to AMT2 will result in —12 in AMT2, since AMT2 allows for a sign. 
Use § in a PIC clause of a numeric field that may have negative contents. 

Notice that saying IF A IS EQUAL TO ZERO is the same as saying IF A 
18 ZERG. Ifa numeric field contains an amount less than zero, it is considered 
negative. If it has an amount greater than zero, then it is considered positive: 


— 387 is negative 
382 is positive 
+382 is positive 


0 is neither negative nor positive in this context, unless it is indicated as —0 
or +0, respectively. 


Example Suppose we want to compute the distance of FIELDA from zero, regardless of its sign. 
For instance, if FIELDA = 2, its distance from zero is 2. If FIELDA = -2, its distance 
from zero is also 2, since we do not consider the sign. We call this quantity the absolute 
value of FIELDA, denoted mathematically as | FIELDA |. It is formulated as follows: 
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If FIELDA is greater than or equal to 0 (designated mathematically as = 0), 


then: 
| FIELDA | = FIELDA 
If FIELDA is less than (<] 0, then: 
| FIELDA | = -FIELDA 


In other words, if FIELD@ is greater than or equal to zero, the absolute value 
of FIELDA is simply the value of FIELDA. If FIELDA is less than zero, the 
absolute value of FIELDA is equal to —1 times the value of FIELDA, which 
will be a positive number. Let us find the absolute value of FIELDA. 


co 48 62 | H 
ml 
The clause IF A 18 NEGATIVE is equivalent to the clause IF A < 0, and IF 
4 18 POSITIVE is the same as IF A > 0. If A is 0, the contents of ABSA 
remain unchanged, that is, it contains zero. 


Another way to obtain the absolute value of FIELDA is to move it to a field 
with a PIC of 9’, without any 8. This will effectively strip the sign. 


ABSA 
Pio} 

A| | 
EI 


F 
| 
FI 


Fl | | 


LT 
| 


a 


2. Class Test 
We can test for the type of data in a field as follows: 


Format 


If the ELSE option is executed with the NUMERIC class test, this implies that 
either the field is alphabetic, containing only letters and/or spaces, or it 
is alphanumeric, containing any possible character. Suppose we code the 
following: 


IF FLDi IS NUMERIC 
PERFORM RTNL 
ELSE 
PERFORM RTN2. 


If the field contains 123AB, for example, the ELSE option will be performed 
since the contents of the field are not strictly numeric. 

A class test is a useful tool for minimizing program errors. Suppose we wish 
to add AMT to a total, where ANT is an input field. Since input is always subject 
to data entry errors, it is possible that the field might be entered erroneously 
with nonnumeric data or spaces. In such a case, an ADD AMT TO TOTAL in- 
struction will cause the computer to abort the run. 

The following may be used to minimize such errors: 


IF AMT IS NUMERIC 
ADD AMT TO TOTAL 
ELSE 
PERFORM ERR-RTN+ 
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Example A one-position field in a record contains the number of dependents an employee claims 
for income tax purposes. To obtain the standard deduction, we multiply the number 
of dependents by 1000. If, however, the employee claims 10 dependents, an 4 is placed 
in the field; if he or she claims 11, a B is placed in the field, and so forth. We can only 
perform the multiplication if the field does not contain a letter: 


ET ( 


Al Ir IA 
RIN 


F. Negating Conditionals 


1. Negating Simple Conditionals 


All simple relational, class, or sign tests may be coded using a negated con- 
ditional as follows: 


Format 


Examples The following two statements are equivalent. 


44 48 52 56 60 64 72| 
| 
RRGRRRRRRRERRORREROD 
L 


ate i 
Manat 


a i a a a a i a 


To say, however, IF 4 1S NOT NEGATIVE, is not the same as saying 4 1S POSITIVE. 
If @ is zero, it is neither. Thus, the following two statemencs are not identical. 
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7a 2 16 20 2 Fy B 36 a a a8 @ w w = wo Z| 
FO) TF! {S| NEGATIVE | L| 
| | PIEIRIFIORIM IRITINZ 
CL ELISE! i 
LETT PERFORM [RTING. i. 
Mi | 
itt 
(2) | TFL | BL J/S|_INOT| [POSiI/TITVIE il 
ELLE) EPIERFIORM RITINA 
| ELISE L 
UCEC LL PPERFORM RTNG. [ HT 
Suppose 6 is equal to 0. In statement (1), RTNO is executed; in statement (2), RTNZ is 
executed. Similarly, to say IF A 18 NOT ALPHABETIC, is not the same as saying IF 
4 18 NUMERIC. If @ is alphanumeric, containing combinations of letters, digits, and 
special characters, then it is neither ALPHABETIC nor NUMERIC. Thus, the following 
two statements are not equivalent. 
78 i 1 20. Pa 28 EP 36 40 cy on [7 Bo 00 a oo 7a 
ol! LLLFL | Icl_[s]_INoft] |ALIPHIABIEMTirIc] | | Toh 
| | PERFORM |RITINP pe 
{Tes | | || DADC ERROR RRR RO 
{TTT TL PERFORM [RITINV | | {| HERES | 
pa | a | iN tH | 
TIT H 
L 
|_| ITIFL_[ IC|_[1/3 NUMER EEE am 
CUCLLL LIPEIRFIORIM [RTINP| rl Corn co 
FP ESE EREOR RTNV ceetet 
I | i 
M Te rT a i i 
2. Negating Compound Conditionals 
A common error may occur when you negate compound conditionals. The 
following will explain the error and how it can be avoided. 
Example Write a routine to perform S0UTH if 4 is not equal to 7 or 8; otherwise perform NORTH. 
We can write this as follows: 
[>t Ie 16 20 Fn 28 3 38 40 a 78 2 $6 0 cr 8 A 
TTT ile Ta_Tilg \ T1071 |oR_|A 19 JEQUAL 71 a | | | 
LEED H EEE | 
| 
| LS 
\ | 
LLL TL PERRGRN SOUTH. | | 


But suppose we want to use the negative situation. On first thought, the following 
may seem appropriate: 


LUTE, LALIS| NojT] ElauAL| Tol 7] joR| [Al Irs} Nor) E@uaL| iro] 6 | nna 
[TLELE PERFORM SOUTH [| [ | 
TTT ELSE \ | 
-/CCETE PERFORM NORTH. | wl H 
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An evaluation of this statement will show that the above is not correct. One of two 
conditions must exist for SOUTH to be executed: 


(a) A IS NOT EQUAL TO 7 
oR (b) A IS NOT EQUAL TO 8 


Suppose A is 6; SOUTH will be executed, which is what we want. If A is 7, however, we 
wish NORTH to be executed. In the above conditional, condition (a) is not met since A 
does equal 7, However, condition (b] is met since A is not equal to 8, but is equal to 
7. Only one condition needs to be satisfied for SOUTH to be executed, and since con- 
dition (b) is satisfied, SOUTH will be executed. 

Similarly, suppose 4 is 8. We want NORTH to be executed, but again we will see that 
SOUTH is executed. Condition (a) is satisfied, because A is not equal to 7 (it is equal to 
8). Since only one condition needs to be satisfied, SOUTH is executed. In fact, you can 
now sce that the statement as coded will always cause SOUTH to be executed, regardless 
of the contents of A. 


The “moral” of this illustration is a lesson in Boolean algebra, which is: 
When negating conditions separated by OR: IF NOT (CONDITIONi oR 
CONDITION2 ..+), the stated conditions become: IF NOT CONDITION! AND 
NOT CONDITIONi AND .... Hence, the IF statement could read as IF NOT 
(A = 7 OR A = 8) oras: 


r— NOTE 


EG 40, cn oo 2 36 wo 72 


ASS 
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CHAPTER SUMMARY 


I. Simple Relational 
A. Relations 


1F dataname-1 {18 ae ies ral data-name2 ... 
IF dataname-1 {15 BRED me data-name-2... 
IF data-name-1 ts ie ie data-name-2... 


B. If the condition exists, all imperative statements to the period or to the 
ELSE clause are executed. 

C. If the condition does not exist, the imperative statements after the 
word ELSE, if coded, are executed, or processing continues with the 
next sentence. 

D. Comparisons 
1. Are algebraic or logical 

(a) Numeric 
12.0 = 12.00 = 12 = +12 
(b) Nonnumeric 
ABC = ABCb = ABChb 
2. Collating sequences differ depending on whether you are using an 
ASCII or EBCDIC computer. With EBCDIC, letters are less than 
numbers. With ASCII, numbers are less than letters. 
Il. Other Ways to Alter the Path of a Program 

A. PERFORM and PERFORM .,. UNTIL statements can be used for execut- 

ing other paragraphs. 
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B. Looping 
With the use of an IF statement or a PERFORM «++ UNTIL, you can 
perform a sequence of steps a fixed number of times. 
Ill. Other Types of IF Statements 
A. Compound Condition 
1. Format 
IF condition-1 OR condition-2 ... 
IF condition-1 AND condition-1... 
2. Hierarchy 
(a) If ORs and ANDs are used in the same sentence, ANDs are eval- 
uated first from left to right, followed by ORs. 
(b) Parentheses can be used to supersede hierarchy rules. 


B. Other Tests 


1. Sign test 
POSITIVE 
IF data-name-1 19 4 NEGATIVE 
ZERO 


Data-name-1 must have an $ in its PIC clause if it is to store data 
with a negative value. 
2. Class Test 


NUMERIC 
IF data-name-1 18 Hee | 


iy 


3. Negated Conditional: 
(a) Any test can be preceded with a NOT to test the negative of a 


conditional. 
(b) IF NOT (A = B OR A = C) isthe same as IF A NOT = B AND 
A NOT = C. 


CHAPTER SELF-EVALUATING QUIZ 


What, if anything, is wrong with Questions 1-5? Correct all errors. 


l1sIF A= BOR IFAC 
PERFORM RTN=-Xe 
2. IF B= 3 OR 4 
PERFORM RTN-X. 
ee A+B 
PERFORM STEP~S, 
4. 1F A¢ 21 OR A = 21 AND A= 5S OR A? 5 
PERFORM RTN-1. 
5. IF A 18 NOT EQUAL TO 3 OR A IS NOT EQUAL TO 4 
PERFORM RTN-Xs 
6. The hierarchy rule for evaluating compound conditionals states that conditions 
surrounding the word ________ are evaluated first, followed by the conditions 
surrounding the word 
7. Indicate whether the following two statements are equivalent: 
(a) IF A 3 OR A? 4 
PERFORM ERR-RTNy 
(b) IF 4 18 NOT EQUAL TO 3 AND A IS NOT EQUAL TO 4 
PERFORM ERR-RTN. 
8. Write a single statement to PERFORM PARA-5 if A is between 3 and 13, inclusive. 
9. Write a single statement to execute PARA-5 if A is between 3 and 13, exclusive of 
the endpoints. 
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10. 


Write a single statement to code the following steps. If the conditions below are 
met, perform PARA-3, otherwise perform PARA-2: 


Aa=6 
c=0D 
E=F 
Page 
The word IF should appear only once in the statement: 226 


IF A= BORA=C 
PERFORM RTN-X,s 


Nothing wrong—implied operands are permitted. The statement is the same 226 
as IF B = 3 OR B = 4 PERFORM RTN-X. 

Each element in a condition must be a data-name. A + B is an arithmetic 210 
expression. This should be: 


ADD A TO B, 
IF CO € B 
PERFORM STEP-5S. 


. There should be parentheses around elements to make the statement logical: 230 


IF (A < 21 OR A= 21) AND (A= 5 OR A > 5) PERFORM RTN-1. Without 
the parentheses, the statement reduces to IF A ¢ 21 OR A > 5 PERFORM 
RTN1. This is because the clause A = 21 AND A = 5 is a compound condition 
that cannot be met. 


5. A branch to RTN-x will always occur. This should read: 234 
IF A IS NOT EQUAL TO 3 AND A IS NOT EQUAL TO 4 
PERFORM RTN-X. 
6. AND; OR 229 
7. Only if @ is an integer field. 234 
8. IF A = 13 OR A < 13 AND A > 3 OR A = 3 PERFORM PARA- 5. 228 


10. 


Note: This is not the only way to write the statement. Note, too, that there is no 
need for parentheses, but including them would be Okay. 


IF A > 3 AND A ¢ 13 227 
PERFORM PARA-5. 

IF A = B AND C = D AND E = F 228 
PERFORM PARA-3 

ELSE 


PERFORM PARA-2. 


EE PRACTICE PROGRAM 


Write a program to print out patient name and diagnosis for each input medical record. 
Figure 10.2 illustrates the problem definition. 


Notes: 


(a) 
(b) 
(c) 
(d) 


(e) 


Output is a printed report with the heading DIAGNOSIS REPORT. 

It is assumed that all patients have at least one symptom. 

If a patient has lung infection and fever (temperature = 1), the diagnosis is PNEUMONIA. 

If the patient has a combination of two or more symptoms (except the combination of lung 
infection and fever (temperature = 1), the diagnosis is COLD. 

If the patient has any single symptom, the diagnosis is Ok. 


See Figure 10.3 for the solution. 
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Figure 10.2 — Systems Flowchart 
Problem definition for 
Practice Program. 


DIAGNOSIS-REPORT 
MEDICAL-FILE 


MEDICAL-FILE Record Layout 


‘A 20 


1 = symptom 1 = high 1 = present 1 = present 
exists 0 = normal O= absent 0 = absent 
0 = symptom 
does not exist 


DIAGNOSIS-REPORT Printer Spacing Chart 


Sample Input Data 


F SINATRA L111 
J TRAVOLTA 1011 
S STALLONE 1600 
N STERN 9000 
J CARSON 1196 
A QUINN 1961 


Sample Output 


F SINATRA PNEUMONIA 
J TRAVOLTA COLD 

S STALLONE OK 

N STERN OK 

J CARSON PNEUMONIA 
A QUINN COLD 
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Figure 10.3 IDENTIFICATION DIVISION, 
Solution to Practice Program. PROGRAM-ID. CHAPT1O, 

* 

ENVIRONMENT DIVISION, 

CONFIGURATION SECTION. 

SOURCE-COMPUTER,. IBM-4331. 

OBJECT-COMPUTER. IBM-4331, 

INPUT-OUTPUT SECTION, 

FILE-CONTROL, 
SELECT MEDICAL-FILE ASSIGN TO DA-S-SYS007, 
SELECT DIAGNOSIS-REPORT ASSIGN TO UR-S-SYSOUT. 


DATA DIVISION. 
FILE SECTION, 


FD MEDICAL-FILE 
LABEL RECORDS ARE STANDARD. 
O1 REC-IN, 
O3 PATIENT-NAME PIC X(20),. 
OS LUNG-INFECTION PIC 4, 
0S TEMPERATURE Pic 9, 
0S SNIFFLES PIC a. 
0S SORE-THROAT PIC 9, 
05 FILLER PIC X(SG). 
FD DIAGNOSIS-REPORT 
LABEL RECORDS ARE OMITTED. 


O1  PRINT-REC PIC X(133), 
WORKING-STORAGE SECTION, 
Ol WORK-AREAS, 


oS EOF PIc 9 VALUE O, 
oS ADD-EM-UP RIC @ VALUE ©, 
O1 HEADINGI. 
0S FILLER PIC X(59) VALUE SPACES. 
OS LITERAL1L PIC X(16) VALUE ‘DIAGNOSIS REPORT’. 
05 FILLER PIC X(58) VALUE SPACES, 
Q1 DETAIL-LINE. 
OS FILLER PIC K(26) YALUE SPACES, 
OS NAME PIC X(20), 
05 FILLER PIC K(20) VALUE SPACES, 
OS DIAGNOSIS PIC X(20), 
0S FILLER PIC k(47) VALUE SPACES. 


* 
PROCEDURE DIVISION, 
MAIN-MODULE, 

OPEN INPUT MEDICAL-FILE 
OUTPUT DIAGNOSIS-REPORT. 
MOVE HEADING! TO PRINT-REC,. 
WRITE PRINT-REC. 
READ MEDICAL-FILE AT END MOVE 1 TO EOF, 
PERFORM PROCESS-RTN UNTIL EOF = 1, 
CLOSE MEDICAL-FILE+ DIAGNOSIS-REPORT. 
STOP RUN. 
PROCESS-RTN; 
ADD LUNG-INFECTION: TEMPERATURE+ SNIFFLES+ SORE-THROAT 
GIVING ADD-EM-UP+ 
IF ADD-EM-UP = 1 
MOVE ‘COLD’ TO DIAGNOSIS 


Figure 10.3 
Continued 
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ELSE 
MOVE ‘OK’ TO DIAGNOSIS. 
IF TEMPERATURE = 1 AND LUNG-INFECTION = 1 
MOVE ‘PNEUMONIA’ TO DIAGNOSIS, 
MOVE PATIENT-NAME TO NAME, 
MOVE DETAIL-LINE TO PRINT~RECs 
WRITE PRINT-REC, 
READ MEDICAL-FILE AT END MOVE 1 TO EOF. 


KEY TERMS 

ASCII code Imperative statement 
Class test Infinite loop 
Collating sequence Loop 

Compound conditional Negated conditional 
Conditional statement Sign test 

Data exception error Simple condition 


EBCDIC code 


REVIEW QUESTIONS 


I. True-False Questions 

1. (T or F) In a compound conditional, conditions surrounding the word AND are 
evaluated first. 
2. (T or F) The phrase ELSE NEXT SENTENCE can always be eliminated from condi- 
tional statements without changing the meaning of the IF statement. 
3. (T or F) The clause IF A IS POSITIVE is the opposite of the clause IF A 18 
NEGATIVE, 
4, (T or F) The clause IF A IS NUMERIC is the opposite of the clause IF A IS 
ALPHABETIC, 
5. (T or F) Data fields compared in an IF statement must always be the same size. 
6. (T or F) On most computers, at least one space must precede and follow every 
symbol such as <, >, and =. 
7. (T or F) Comparing numeric fields to nonnumeric literals can cause erroneous 
results, 
8. (T or F) The class test is frequently used before an arithmetic operation to ensure 
that a field designated as numeric actually contains only numeric data. 
9. (T or F) The hierarchy of operations in a compound conditional can be overridden 
by parentheses. 
10. (T or F) The symbol < may be used in place of ‘18 GREATER THAN’. 
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II. General Questions 
Code the following flowchart exercises with a single statement (Questions 1-3). 


Di 


1. 


In Questions 4-8, state whether FIELDA is equal to, greater than, or less than F IELDB: 


SS) (02: SSN? Be 


10. 


FIELDA FIELDB 
012 12 

12.0 12 
~89.0 89.0 
ABC ABCb 
43 +43 


Write a routine for determining F1CA where a field called SALARY is given. FICA 
is equal to 7.05% of SALARY up to $37,800. Salary in excess of $37,800 is not taxed. 


Find the largest of four numbers 4, 8, C, and D and place it in the field called aLoT. 
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Are the following groups of statements equivalent (Questions 11-14)? 


ll. (a) IF A= B 
aDD C TO D 
ELSE 
ADD E TO Fy 
PERFORM RTN~1« 
b) IF 4 = B 
aDD c TO D 
PERFORM RTN-1 
ELSE 
ADD E TO Fy 
12. (a) IF A IS POSITIVE 
PERFORM RTN-X 
ELSE 
PERFORM RTN-Ys 
b) IF A IS NOT NEGATIVE 
PERFORM RTN-X 
ELSE 
PERFORM RTN=Y4 
13. (a) IF DISCOUNT IS GREATER THAN TOTAL 
PERFORM ERR-RTN 
ELSE 
SUBTRACT DISCOUNT FROM TOTAL, 
(b) IF TOTAL » DISCOUNT OR TOTAL = DISCOUNT 
NEXT SENTENCE 
ELSE 
PERFORM ERR-RTN+ 
SUBTRACT DISCOUNT FROM TOTAL, 
14, (a) IF A ® B 
apd c TO D 
PERFORM RTN-5 
ELSE 
PERFORM RTN-5S, 
(b) IF & = B 
ADD C TO Dy 
PERFORM RTN-5. he 


< 


What, if anything, is wrong with the following statements (Questions 15~20)? 


15. IF A IS GREATER THAN OR EQUAL TO B 
PERFORM RTN-3, 
16. IF A IS NOT EQUAL TO B OR A IS NOT EQUAL TO Cc 
PERFORM RTN-4, 
17. IF A DOES NOT EQUAL § 
PERFORM STEP-3, 
18. IF A = 3 OR IF A = 4 
PERFORM RTN~2. 
19. IF A = 1123° 
PERFORM BEGIN, 
20. IF B = /123' OR B = 
PERFORM END1, 


ro 


1 
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21, Write a routine to execute a paragraph called NO-TEMP if C is between 98.6 and 


100.2, inclusive. 
22. Consider the following conditional: 


IF XX NOT = ZERO 


AND ZZ = 1 
AND XX NOT = 1 
OR XX NOT = 2 


PERFORM FINISH. 
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Indicate whether FINISH will be performed if xx and zz contain the following: 
(a) O 0 
(b}) 0 1 
c) O 2 
d) 0 3 
e) 1 0 
g 2 1 
g) 1 2 
h) 1 3 


23. Write a program excerpt to determine whether a field, called FLDA, with a PIC 99, 
contains a positive or negative number. 


Hint: You may use the DIVIDE +++ REMAINDER for this, or some other technique. 


ER DEBUGGING EXERCISES 


1. Consider the following program excerpt: 


+ 


PERFORM CALC-RTN UNTIL EOF = 1, 


’ 
‘ 


CALC-RTN. 
MOVE © TO COUNTER, 
PERFORM LOOP-RTN 
UNTIL COUNTER = 5. 
MOVE TOTAL TO TOTAL-OUT. 
MOVE TOTAL-REC TO PRINT-REC. 
WRITE PRINT-REC. 
READ SALES-FILE AT END MOVE 1 TO EOF, 
LOOP-RTN. 
ADD AMTi+ AMTZ GIVING AMT3, 
MULTIPLY 1,08 BY AMT3 GIVING GROSS. 
SUBTRACT DISCOUNT FROM GROSS GIVING 
TOTAL+ 


(a) This coding will result in an abend condition. Indicate why. What changes would 
you need to make to correct the coding? 

(b) Suppose COUNTER is initialized in WORK ING-STORAGE with a YALUE of 0. Would 
it be correct to eliminate the MOVE 0 TO COUNTER instruction from CALC-RTN? 
Explain your answer. 

(c) Code the three arithmetic statements in LOOP-RTN with a single COMPUTE state- 
ment. 

2. Consider the following coding: 


PERFORM CALC-RTN UNTIL EOF = 1, 


+ 


CALC-RTN. 
IF AMTi = 5400 
ADD AMT2 TO TOTAL 
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ELSE 
ADD 1 TO ERR-CT 
WRITE OUT-REC FROM DETAIL-REC 
READ TRANS-REC AT END MOVE 1 TO EOF. 


(a) Under what conditions is a record written? 
Hint: The punctuation is more critical here than the indentations. 


(b) Suppose AMT1 = 5400 initially. The program will abend. Determine why. 
(c) Correct this program so it will run properly. 
3. The following coding will result in a syntax error. Explain why. 
IF AMTL = AMTZ2 
ADD AMT3 TO TOTAL. 


ELSE 
ADD AMT4 TO TOTAL, 


4. Consider the following specifications: 


Ol REC-i, 
os A PIC Xe 
os B PIC gd. | 
os oC PIC Q. 


(a) The following coding will result in a syntax error. Explain why. 


IF A IS POSITIVE 
PERFORM GO-TO-IT, 


(b) Consider the following: 


IF A NOT EQUAL TO ‘6B’ OR 
B NOT EQUAL TO 7 
PERFORM RTN=X, 


Will a syntax error result? Explain your answer. Under what condition will 
RTN-X be performed? 

(c) Suppose that REC-1 was not initialized and you included the following coding 
in the PROCEDURE DIVISION: 


IF B® 6G 
PERFORM RTNS, 


Under what conditions, if any, will a syntax error occur? Under what conditions, 
if any, would an abend condition occur? 


Se PROGRAMMING ASSIGNMENTS 


Because of the importance of conditional statements, an extended list of programming 
assignments has been included. It is recommended that a flowchart or pseudocode be 
used to represent the logic of each assignment before it is coded. 


1. Write a program to create a master customer file. The problem definition is shown 
in Figure 10.4. 


Notes 
(a) If sales exceed $100.00, allow 3% discount. 
If sales are $100.00 or less, allow 2% discount. 
(b}) Discount amount = Sales amount x Discount %. 
(c) Net amount = Sales amount — Discount amount 


2. Write a program to list all employees who meet all the following conditions: 
(a) Annual Salary is at least $20,000. 
(b) Job Classification Code is 02. 
(c) Territory Number is 01. 
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Figure 10.4 
Problem definition for Pro- 
gramming Assignment 1. 
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The problem definition is shown in Figure 10.5. 


Systems Flowchart 


CUSTOMER-TRANS CUSTOMER-MASTER 
40-position records 75-position records 
standard labels standard labels 

10 records/block 10 records/block 


CUSTOMER-TRANS Record Layout 


CUSTOMER-MASTER Record Layout 


1 34 35 39 40 41 42 46 47 


3. Write a program for a modeling agency. The problem definition is shown in Figure 


10.6. Output is a printed report with the names of all: 


(a) Blond hair, blue-eyed males more than 6 feet tall and weighing between 185 


and 200 lbs. 


(b] Brown hair, brown-eyed females between 5 feet 2 inches and 5 feet 6 inches 


and weighing less than 120 lbs. 


All other combinations should not be printed. 


4. Write a program to create a sequential disk file from the following input tape 


records: 


Input: Tape file 
1-5 Employee number 
6-25 Employee name 
26-27 Hours worked 
28-31 Rate XX.XX 
32-80 Not used 
(Block size is 20, standard labels) 


Output: Sequential disk file 
1-5 Employee number 
6-25 Employee name 
26-31 Gross pay XXXX.XX 
32-50 Not used 
(Block size is 10; standard labels) 


Gross pay = Regular hours x Rate + Overtime hours x 1.5 x Rate. 


Overtime hours are those hours exceeding 40. 


CONDITIONAL STATEMENTS 245 


Figure 10.5 systems Flowchart 
Problem definition for Pro- 
gramming Assignment 2. 


PAYROLL-MASTER PAYROLL-LIST 
80-position records 

standard labels 

20 records/block 


PAYROLL-MASTER Record Layout 


25 26 27 28 29 30 


PAYROLL-LIST Printer Spacing Chart 


afnfafafa fy afatytapatay 
1}2|3]4]5[6|7]3]9/0] 1/2} 


ala] 
56 


1 2 
1}2]3/4]6/6|7/a/9/0 4 


a 
2le|~ Jala} a}o||— 


5. Write a program to generate, in effect, a translator program. Input will be tape 
records with the following format: 


1-2, Operation code 
3-12 First operand (field to be operated on) 
13-22, Second operand 
23-80 Not used 


Operation Codes 
10 corresponds to ADD 
20 corresponds to SUBTRACT 
30 corresponds to MULTIPLY 
40 corresponds to DIVIDE 
50 corresponds to STOP RUN 
The tape has standard labels and a blocking factor of 20. 
The program should read in each input record, perform the required operation, 


and print the result. For example, an input record with 2000000800000000010000 
as its first 22 positions should result in the printing of 0000070000 (80000-10000). 


Hint: Make sure that the output field is large enough to accommodate the answer. 
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Figure 10.6 — systems Flowchart 
Problem definition for Pro- 
gramming Assignment 3. 


MODEL-MASTER MODEL-REPORT 
80-position records 

standard labels 

20 records/block 


MODEL-MASTER Record Layout 


MODEL-REPORT Printer Spacing Chart 


afayayadi '2}2) 2|2|2]2| 2|2|21 
12] 3|45/6]7/a/9]0]1|2) 3/4]5/6|7\8]9/0]11213]4/5|6)7 8! 


t t 
12 t Tot mH rT reethe} 


6. Write a program to compute compound interest from tape records with the follow- 
ing format: 


1-5 Account number 
6-25 Depositor’s name 


26-30 Principal Py 
31-32 Interest rate (.XX) r 
33-34 Years of investment n 


35-80 Not used 
(Block size is 20, standard labels) 


For each record read, print the input data and the principal after n years of in- 
vestment. The principal after n years of investment is determined by the formula: 


P, = Py (1 + 
r = interest rate expressed as a decimal number (e.g., 7% = .07) 
n = years of investment 

Py = initial principal amount 


P,, = principal compounded after n years of investment 
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7. Write a program to read a detail Bank Transaction Tape with the following format: 


1-5 Account number 
6-25 Name of depositor 
26 Type: 1-Previous balance, 2-Deposit, 3-Withdrawal 
27-33 Amount XXXXX.XX 
34-50 Not used 


The tape has standard labels and a blocking factor of 50. The tape is in sequence 
by account number. Type 1 records exist for each account number followed by 
Types 2 and 3, if they exist. Types 2 and 3 may be present for a given account 
number and may appear in any sequence. 

Print out the name of the depositor and his or her current balance (Previous 
Balance + Deposits — Withdrawals). Include appropriate headings. 

8. Write a program to print an inventory reorder form for cach record that is read 
from a sequential disk file. Information on the inventory reorder form is obtained 
from the disk record and its corresponding tape record. Input, then, consists of a 
detail disk record and a master inventory tape record. 


Disk Input 
1-5 Product number 
6-15 Product name 
16-80 Not used 
(Block size is 15, standard labels) 


Master Tape Input 
1-5 Product number 
6-15 Product name 
16-20 Unit price XXX.XX 
21-35 Name of vendor 
(Block size is 10; standard labels) 


If an input disk record for a specific product exists, find the corresponding tape 
record and print Product Number, Product Name, and Name of Vendor. When 
there are no more disk records, stop the run. The disk and tape are in product 
number sequence, Print appropriate headings. 

9, Write a program for a college bursar to compute for each semester: 
(a) The tuition for each student. 
(b) The total tuition for all students. 


If a student is taking 12 credits or less, tuition is $250 per credit. If a student is 
taking more than 12 credits, the cost is $3000. 


Input: Magnetic tape file 
1-20 Student name 
21-22. Number of credits 
23-80 Not used 
(Block size is 15; standard labels) 


Output: Sequential disk file 

~20 Student name 

21-22, Number of credits 

23-26 Tuition 

27-40 Not used 

(Block size is 50; standard labels) 


Print the message TOTAL TUITION and the computed figure. 

10. Write a program to summarize accident records to obtain the following: 
(a) The percentage of drivers younger than 25. 

(b) The percentage of drivers who are female. 

(c) The percentage of drivers from New York. 
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ll. 


12. 


13. 


14. 


There is one tape record for each driver involved in an accident in the past year: 


1-4 Driver number 
5-6 State code (1 for New York) 
7-10 Birth date (Month and Year) 
11 Sex (M for male, F for female) 
(Block size is 50; standard labels) 


Results should be printed with constants: 


% OF DRIVERS UNDER 25 
% OF DRIVERS WHO ARE FEMALE 
% OF DRIVERS FROM NY 


Write a program to compute the number of $20, $10, $5, and $1 bills that an 
employee should be paid when his or her salary is provided as input. 


Input: Tape records 
1-5 Employee number 
6-25 Employee name 
26-29 Salary (in $) 
30-80 Not used 
(Block size is 20; standard labels) 


Output: A printed report with each employee’s number, name, salary, and appro- 
priate messages (i.c., NO. OF 20s, etc.}. 


Note: Each employee should be paid in the largest denominations possible. 


Write a program to compute the arithmetic mean (average) for an input tape file 
with the following format: 


Record 1 for group: 1-5 Account number 
6-7 Number of records in group 
8-10 Not used 
Remainder of records for group: 1-5 Account number 
6-10 Amount XXX.XX 


Print: Account number and arithmetic mean for each group. The amount should 
be rounded to the nearest integer. (The tape has standard labels and a blocking 
factor of 50.) 


Write a program to accept, as input, 80-position records that have a date field in 
positions 1-6 in the form of month/day/year (i.e., 022586 refers to February 25, 
1986). If the date is valid, convert it to a Julian date (year/day of year). (In this 
example, the Julian date would be 86/056.) For each record read, print an output 
ine with the input date and the corresponding Julian date. 


Hint: Assume the program will be used for 20 years only, beginning with 1985. Leap years 
1988, 1992, 1996, etc. have 29 days in February. All others have 28 days in February. 


A pet store sells cats, dogs, birds, and tropical fish. Management would like to 
know which pets are the most profitable. Input consists of the following sales 
records, one for each sale transacted: 


1 Pet type (1 for cat; 2 for dog; 3 for bird; 4 for fish) 
2-6 Amount of Sale XXX.XX 
7-11 Cost to Store XXX.XX 


Print a report that contains the following: 


PET TOTAL NO. SOLD TOTAL SALES AMT PROFIT 
PROFIT = TOTAL SALES ANT for the pet minus TOTAL COST TO STORE. 
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OBJECTIVES 


To familiarize you with: 
1. Proper programming practices and standards. 


. Tools used for debugging a program and minimizing the debugging effort. 
. Common programming errors to be avoided. 


. Techniques used for making programs easier to debug and more user-friendly. 


Bw 


RRR cai ieee Techniques Used to Minimize the Debugging Effort 


By now, you have probably coded and executed several COBOL programs. You 
should have found that writing the program is only one phase in the process. 
Getting the program to work, or debugging it, could be an even more complex 
task. A good programmer is one who not only writes efficient programs but 
also is adept at preventing, finding, and correcting errors as well. 

Several tasks may be used to reduce the time required to debug a program. 
In this chapter, we focus on basic debugging tools and suggestions for avoiding 
errors. Chapter 26 provides a more in-depth analysis of logic errors and how 
to correct them. 

The following techniques used to improve the coding of programs will help 
to decrease errors and make the debugging phase more efficient. 


A. Planning a Program 


Programmers who take the time to plan the logic to be used in their programs 
find that this reduces the debugging effort. 

Flowcharting a program or writing a pseudocode that outlines the logic will 
reduce the coding and debugging time necessary. Verifying program logic with 
the user and the systems analyst even before coding is begun will also help 
reduce the overall debugging time required. 


B. Desk Checking a Program 


After a program has been coded, it should be desk checked to ensure that there 
are no obvious errors or omissions. Similarly, after a program has been keyed, 
using either a terminal or some other input device, it should again be checked 
for typographical errors, omissions, and mistakes in logic. 

Because of the availability of computer power at many organizations, pro- 
grammers frequently believe it is better to have the computer find typograph- 
ical errors during compilation and execution than to take the time to check 
the program manually. This approach, however, is not only wasteful, but it 
actually increases the time needed to find and correct major errors. The pro- 
grammer should spend some time manually reviewing a program or desk 
checking it before it is compiled. 


C. Structured Walkthroughs 


A structured walkthrough is a manual procedure of stepping through the logic 
of your program with sample data to ensure that it will produce correct results. 

Like desk checking, this technique will minimize debugging time as well 
as computer time. It is a method of program verification that requires the 
programmer to spend time stepping through the logic before the program is 
run. 


D. Programmer Teams 


When several programmers work together in programming teams to analyze 
and review the logic of each coded program, they are likely to learn from one 
another. The end result will be a more efficient program with fewer initial 
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errors. Moreover, programmers will learn new and efficient techniques from 
working together in an open, cooperative environment. 


Il. The Debugging Phase 


After a program has been planned and coded, and the techniques just described 
have been used to minimize errors, you are ready to debug your program. 

There are two points at which errors may occur—during compilation and 
during execution. We will consider each separately. 


A. Correcting Syntax Errors 


In attempting to translate or compile your program into machine language so 
that it can be executed, the computer requires that specified coding rules be 
followed. If any violations appear in your program, the computer will print 
out diagnostic messages during the compilation phase. This is a list of all rule 
violations or syntax errors. This list of diagnostics may appear (1) together at 
the end of the COBOL listing, or (2) individually, preceding or following each 
erroneous statement. Logic errors are not detected during this phase, but may 
only be determined during actual execution of the program. 
A rule violation may be, for example: 


SAMPLE RULE VIOLATIONS 
Attempting to add two operands using the verb AD instead of ADD. 
. Attempting to subtract from a nonnumeric field. 


3. Using a field in the PROCEDURE DIVISION that has not been 
defined in the DATA DIVISION. 


ype 


If these examples seem obvious, leaving you incredulous that people actually 
make such mistakes, the results of your first compilation are apt to be an eye- 
opening experience. In reality, both experienced and novice programmers make 
numerous “simple” or obvious errors that result in many diagnostics. In COBOL, 
a single typographical error could generate numerous syntax errors. 

Do not become unnecessarily discouraged if numerous diagnostics accom- 
pany your source program listings. More importantly, you should learn to 
understand these messages and correct the errors with minimal difficulty. 

Each compiler has its own set of diagnostic messages. Sometimes it takes 
practice to become accustomed to the succinct format of a diagnostic message. 
Consult your computer’s specifications manual for a listing of common di- 
agnostics, Note, however, that while the messages illustrated in this section 
may not conform exactly to those for your machine, the general format is the 
same. Thus, knowledge of, and experience with, diagnostics of one compiler 
greatly facilitates the understanding of diagnostics of another compiler. 

Most diagnostic messages have the following format: 


Line No. Error Code Error Message 


Line No. refers to the sequence number assigned by the compiler to each 
line of a source program. This line number is assigned by the system and 
printed on the source program listing. To find the erroneous item, simply 
cross-reference the sequence number assigned on the source program listing. 

Error Code is a code number assigned to the specific message in the Spec- 
ifications Manual. That is, you can cross-reference any diagnostic by looking 
up the Error Code in the manual for further clarification. Frequently, the 
manual provides hints as to what has caused the diagnostic. 
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The printed Error Message is usually a concise description of the rule vio- 
lation. In a short time, the novice programmer becomes familiar enough with 
error messages so that he or she can determine its cause with minimal effort. 

The following represents sample diagnostics: 


SAMPLE DIAGNOSTICS 
Line No. Error Code Error Message 
18 IKFZ041-C NO OPEN CLAUSE FOUND FOR FILE 
25 IKFOGSI-W PERIOD MISSING IN PRECEDING 
STATEMENT 
28 IKFOOLI-C LITERAL EXCEEDS 120 CHARACTERS 
29 IKFS531-E FIGURATIVE CONSTANT IS NOT 
ALLOWED AS RECEIVING FIELD 
30 IKF4011-C SYNTAX REQUIRES A DATA-NAME 
FOUND ‘DATA’ 


When a corresponding line number results in any of these diagnostics during 
a compilation, it is a relatively simple task to find the error. In any case, if 
the error message is not clear enough, the COBOL Specifications Manual ref- 
erences each code with a more explicit error message. 

It is simply not feasible to undertake a discussion of all possible diagnostics. 
You will, however, be able to understand most messages, once the format 
becomes clear. 

Sometimes a single error results in several diagnostics. Similarly, the error 
detected by the machine may have been triggered by a mistake several entries 
earlier. Thus, if the error is not readily found, examine the lines directly preceding 
the ones specified in the error message. 

The Error Code accompanying all diagnostics contains, as the last character, 
usually a W, C, or E (or, correspondingly, a 0, 1, 2). These letters or numbers 
indicate the severity of the error; the execution of the program may be ter- 
minated depending on the level of severity of errors. 


(a) W-Level or Level-O Errors. Minor level errors, sometimes called warning, 
observation, W-level, or level-O messages, will not cause termination of the 
program. They are merely warnings to the programmer. To attempt to place 
a five-position alphanumeric field into a three-position alphanumeric field, for 
example, may result in the following warning message: 


DESTINATION FIELD DOES NOT ACCEPT THE 
WHOLE SENDING FIELD IN MOVE 


To perform this operation is not necessarily incorrect. The compiler is merely 
indicating that truncation will occur. If truncation occurs as a result of a 
programming oversight, it should be corrected. If, however, the programmer 
chooses to truncate a field, no changes are necessary. Thus, the program will 
execute with warning-level diagnostics. 


(b) C-Level or Level-1 Errors. Intermediate level errors are conditional er- 
rors, usually called C-level, where the compiler makes an adjustment for the 
error. That is, the computer assumes a specific meaning for your coded entry 
and makes the necessary adjustment. This adjustment is called a default. If 
the adjustment is what the programmer intended to do, execution will proceed 
normally. If, however, the correction is not the desired one; the error must be 
corrected. Consider the following C-level diagnostic: 


007020 C-QUALIFICATION-NAME REQUIRES MORE QUALIFICATION 
FIRST NAME DEFINED IS ASSUMED 


which applies to the following statement 0072: 


ooL 
002 
003 
ood 
005 
oo8 
007 
008 
009 
010 
O14 
O12 
O13 
O14 
OLS 
O16 
O17 
018 
o19 
029 
O21 
O22 
023 
024 
O25 
026 
o27 
028 
o29 
030 
O31 
032 
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0072 MOVE NAME 


QO NAME OF REC-OUT,. 


the first time NAME is specified it ha 
know which NAME you mean. It wi 


The first NAME field in the statement was not properly qualified. That is, 
s no qualifier, so the computer does not 
l assume you mean the first NAME field 


specified in the DATA DIVISION. If, in fact, the first NAME field designated in 
the DATA DIVISION is the required one, the statement need not be corrected 
for execution to continue properly. If, however, the NAME field required is not 
be corrected before execution can begin. 
C-level diagnostics should eventually be corrected before the 
program is considered fully debugged. 


the first one, then the program must 


In any case, all 


(c) E-Level or Level-2 Errors. Major level errors, called execution errors, or 
fatal errors, by some compilers, will terminate execution. The compiler deems 
these errors of such magnitude that it will not permit execution to occur. The 
following are examples of major level errors: 


Mayor LEVEL ERRORS 


FILE SECTION QUT OF SEQUENCE 
ENVIRONMENT DIVISION MISSING 
UNDEFINED DATA-NAME 

INVALID LITERAL: #$100,00 
INVALID DATA=NAME: DISCOUNT~% 


Consider the following COBOL listing: 


IDENTIFICAT 
PROGRAM-ID, 
ENVIRONMENT 
FILE-CONTRO 
SELECT 
DATA DIVIST 
FO EMPLOYE 
OL EMPLOYE 
oS EMP 
oS HOU 
oS HOU 
FD PAYROLL 
Ol PAYROLL 
oS NAM 
oS HOU 
OS RAT 
OS WEE 
WORK ING-STO 
Ol EOF 


PROCEDURE D 

START. 
READ E 
PERFOR 
STOP RU 

CALC-RTN. 
MOVE E 
MOVE HO 
MOVE HO 
MULTIPL 


WRITE P 
READ E 


ION DIVISION, 


SAMPLE. 

DIVISION. 

L, SELECT EMPLOYEE~FILE ASSIGN TO UT-8-SYS004, 
PAYROLL-FILE ASSIGN TO UT-S-SYS00S, 
ON. 

E-FILE 

E-RECORD, 

LOYEE~NAME PIC AC20),. 
RS-WORKED PIc 99, 

RLY=RATE PIC 9va9g, 

-FILE 

~RECORD, 

E-OU PIC A(20). 

RS-OUT PIC 99, 
E-OU PIC gvag, 
KLY-WAGES PIC g99vag, 

RAGE SECTION, 

PIc 9 VALUE O, 
IVISION, 


PLOYEE-FILE AT E 


+ 


EEKLY-WAGES,. 
AYROLL-RECORD. 
PLOYEE-FILE AT 


m 


D MOVE 1 TO EOF, 


CALC-RTN UNTIL EOF = i, 


PLOYEE-NAME TO NAME-OUT. 
URS-WORKED TO HOURS-OQUT. 
URLY-RATE TO RATE-OUT. 

Y HOURS-WORKED BY HOURLY-RATE GIVING 


D MOVE 1 TO EOF, 
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The errors associated with this listing are shown in Figure 11.1. 

Since there is at least one E-level diagnostic, the program must be corrected 
before it can be executed. A program can be executed with W- and some 
C-level diagnostics, but E-level errors automatically abort the run. 

Let us evaluate each diagnostic, starting with the first. 


Diagnostic 1 4 IKF1002I1-W INPUT-OUTPUT SECTION HEADER MISSING. 
ASSUMED PRESENT. 


This error indicates that line number 4 should have specified the INPUT-OUTPUT SEC- 
TION. Before coding FILE-CONTROL, an INPUT-OUTPUT SECTION should be specified. 
The computer automatically assumes that the INPUT-OUTPUT entry is present. Hence, 
this is considered a W- or warning-level error only. 


Diagnostic 2 7 IKF10021-W FILE SECTION HEADER MISSING, 
ASSUMED PRESENT. 


This error states that line number 7 should have specified the FILE SECTION. Before 
coding an FD, the FILE SECTION statement is required. Note, however, that this is a 
W-level error or warning. It is not critical, since the compiler automatically inserts the 
FILE SECTION entry. 


Diagnostics 3 and 4 4 IKF20491-C NO OPEN CLAUSE FOUND FOR FILE. 
4 IKF21331-W LABEL RECORDS CLAUSE MISSING. 


The file defined on line number 4, EMPLOYEE-FILE, is not opened in the PROCEDURE 
DIVISION, nor does it contain a LABEL RECORDS clause. Since no LABEL RECORDS 
clause exists, the compiler assumes that labels are omitted. Once again, execution can 
still be achieved even with these errors. 


Figure 11.1 LINE ERROR MESSAGE 
Error messages for sample 
COBOL listing. 


4 IKF1002I1-W INPUT-OUTPUT SECTION HEADER MISSING, 
ASSUMED PRESENT. 

7 IKF10021-W FILE SECTION HEADER MISSING, 
ASSUMED PRESENT. 

4 IKF20491-C O OPEN CLAUSE FOUND FOR FILE. 

4 IKF21331-W LABEL RECORDS CLAUSE MISSING, 

8 IKFLO431- END OF SENTENCE SHOULD PRECEDE O01. 
ASSUMED PRESENT, 

3 IKFZ0491-C NO OPEN CLAUSE FOUND FOR FILE. 

S IKF21331- LABEL RECORDS CLAUSE MISSING. 

13 IKF1O431- END OF SENTENCE SHOULD PRECEDE Ol. 
ASSUMED PRESENT, 

21 IKFL1O871- ‘START’ SHOULD NOT BEGIN A~AREA-. 

21 IKF40501-E SYNTAX REQUIRES QISAM-FILE WITH NOMINAL 


KEY. FOUND END-OF-SENT., STATEMENT 
DISCARDED. 


Diagnostic 5 


Diagnostics 6 and 7 


Diagnostic 8 


Diagnostics 9 and 10 
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END OF SENTENCE SHOULD PRECEDE 01, 
ASSUMED PRESENT, 


8 IKF10431-W 


This error occurred because all file description entries should end with a period. The 
error is a W-level one, since the compiler will assume the presence of the period. 
Note that the error specifies line 8 when it is, in fact, line 7 that has a missing 
period. This happens because the computer is searching for the period and does not 
realize it is missing until it reaches line 8. If an error is specified on a particular line 
and you cannot immediately find it, look at the previous line, which may be the cause. 


NO OPEN CLAUSE FOUND FOR FILE, 
LABEL RECORDS CLAUSE MISSING, 


IKFZ0491-C 
IKF21331-W 


wo 


The file defined on line number 5, PAYROLL-FILE, is not opened in the PROCEDURE 
DIVISION, nor does it contain a LABEL RECORDS clause. 


END OF SENTENCE SHOULD PRECEDE Ol. 
ASSUMED PRESENT, 


13 IKF10431-h) 


All file description entries should end with a period. 


‘START’ SHOULD NOT BEGIN A-AREA, 

SYNTAX REQUIRES QISAM-FILE WITH NOMINAL 
KEY. FOUND END-OF-SENT. STATEMENT 
DISCARDED. 


21 
pal 


IKF10871~-W 
IKF40501-E 


Here, a single error causes two diagnostics, START is an invalid paragraph-name because 
it is a reserved word for the COBOL compiler used here. Thus, line 21 is in error, since 
START is defined there as a paragraph-name. Both diagnostics refer to the reserved 


* meaning of the word sTaRT. Such errors may be difficult to debug because their cause 


isnot immediately obvious. In general, if you obtain an obscure message, check first 


~ to see if the word mentioned is a reserved word. Check your specific computer manual’s 


reserved word list, since your system’s enhancements may use additional reserved 
words not on our list. 


Common COBOL reserved words that programmers frequently attempt to 
use as data-names include: 


AREA LINE 

COUNT LINE-COUNTER 
DATE PAGE 

DAY REPORT 
DETAIL SUM 

HEADING UNIT 


In addition, each system has its own extensions to this list. Common re- 
served words used on many systems are: 


ADDRESS HOLD 
CODE Tae 
ERROR LIMLT 
FINAL NUMBER 
GROUP TABLE 


Because a single error might generate two or more messages, do not be 
alarmed by the number of errors listed as diagnostics. It may be that three or 
four errors, for example, generate a dozen or so messages. 


B. Debugging A COBOL Program—Execution Phase 


1. Design of Test Data 
You will recall that it is not sufficient to simply code a COBOL program, 
compile it, eliminate the diagnostics, and then consider the program complete. 


256 


BASIC COBOL OPERATIONS 


All programs must be tested first with test data, then with live data in a 
formal production run: 


1. Test or “dummy” data is carefully designed by you or your instructor 
to test all conditions in the program. 


2. “Live” data is actual data used in the specific application for producing 
output. 


The programmer must make certain that any data used to test the program 
contains all conceivable entries. Every condition and combination of condi- 
tions in the program should be tested by including data with the entries re- 
quired to produce both ‘YES’ and ‘NO’ results. If thorough testing is not 
performed, it is quite possible that the program will work for a while and then, 
when an unusual situation arises, the program will abort. This could very well 
embarrass the programmer, who might be besieged by late night calls from 
computer operators because the program is not operating properly. 

Once test data has been adequately designed, the programmer can execute 
or test the program. Frequently, programs contain minor logic errors that cause 
the computer to abort the run or to produce erroneous results. We direct our 
discussion to the methods used to find these logic errors. The process of dis- 
covering the cause of logic errors is not always easy. 


2. Debugging Tools for Finding Logic Errors 

COBOL is a high-level programming language. That is, it is significantly dif- 
ferent from machine language. It is a language that is relatively easy for a 
programmer to code but one that requires a rather complex compilation process, 
since the translation to machine language is very intricate. 

Because COBOL is a high-level language, it is somewhat difficult for the 
programmer to pinpoint logic errors, particularly if they cause machine inter- 
rupts that are displayed using machine language. An interrupt is called an 
abend condition, which is an abbreviation for abnormal end condition. 

Program errors may be debugged by taking a ‘storage dump” and determin- 
ing what was actually in memory at the time the error or interrupt occurred. 
But to be able to read a storage dump, you need to know something about 
machine language because the display is often difficult to read. This method 
of debugging is usually one of last resort, since there are simple techniques 
that can be used in COBOL to make debugging easier. We discuss the reading 
of storage dumps in Chapter 26. 

In this section, we consider debugging aids that are incorporated directly in 
the program and assist the programmer in pinpointing logic errors or abend 
conditions. The aids discussed should be sufficient for finding common errors. 

Since these debugging aids are used within the program itself, the necessity 
for memory dumps and external displays of machine addresses is reduced. 
After a program has been successfully compiled with no major diagnostic 
messages, and then fully tested, these debugging aids may be removed from 
the program. The program is then typically turned over to the operations staff 
for execution on a regular basis. 

Two major tools are usually incorporated as part of a COBOL program 
during the test phase to facilitate program control. These tools can then be 
eliminated once the program is operating. These aids are COBOL enhance- 
ments that are available with most compilers: 


DEBUGGING TOOLS 
1. READY TRACE 
2. EXHIBIT 
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(a) READY TRACE. The READY TRACE option is used for indicating the 
actual sequence of paragraphs that the program executes during a specific run. 

A READY TRACE placed at the beginning of your program results in a list of 
paragraphs actually encountered, in sequence, during execution. 

If, for example, you code READY TRACE as the first statement in MAIN- 
MODULE, the computer may print the following before an abend occurs: 


HEADING-RTN 
CALC-RTN 
LOOP-RTN 


If this is all that prints, then you know there is a logic error in LOOP-RTN, 
since that was the last paragraph encountered. You know too that LOOP-RTN 
was only executed once, so that the error occurred on the first input record. 

Similarly, suppose you code READY TRACE as the first statement in MAIN- 
MODULE for the following program: 


PROCEDURE DIVISION. 
MAIN-MODULE. 
READY TRACE, 
OPEN INPUT FILE-IN 
OUTPUT FILE-OUT. 
READ FILE-IN AT END MOVE 1 TO EOF, 
PERFORM CALC-RTN UNTIL EQF = 1, 
CLOSE FILE-~IN 
FILE-OUT, 
STOP RUN, 


CALC@RTN« 


+ 


READ FILE-IN AT END MOVE 1 TO EOF, 
During execution, the following is displayed before an abend occurs. 


CALC-RTN 
CALC-RTN 


This means that the program was terminated during the second pass through 
CALC-RTN. Since the first pass through CALC-RTN reads the second input record, 
you may assume that it was during the processing of the second record that 
an error occurred. Chances are the second record has incorrectly formatted 
data; for example, you are attempting to perform an arithmetic operation and 
one of the input fields is inadvertently blank. 

A READY TRACE is also used for following the path of a complex program. 
Suppose the following prints as a result of the READY TRACE entry: 


CALC~RTN 
RTN1 
RTNG 
RTNS 
RTN4 


You can then check to see if this was the logic pattern that should have 
been followed for the first record in your test data. 

Some programmers always code READY TRACE during the debugging phase. 
Others only use it after they have detected an error condition and cannot find 
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the error during desk checking. If you wish to use a READY TRACE for just part 
of a procedure, you may code: 


PROCEDURE DIVISION, 


+ 


+ 
READY TRACE. 


+ 


RESET TRACE. 


When encountered, RESET TRACE will stop the printing of paragraph names. 

Thus, if a programmer inserts a READY TRACE statement in his or her source 
program during debugging, logic errors can be more easily identified and thus 
corrected. Once all logic errors have been debugged, the READY TRACE and 
RESET TRACE statements must be removed from the source program. You 
would not want the regularly scheduled run of the program to print each 
paragraph-name as it is encountered. 


(b) EXHIBIT. During the testing of a program, it may help you to examine 
the contents of some data fields at key points in the logic flow to determine 
if calculations are being performed correctly. Programmers often find that their 
programs operate on all input data but that the calculated results are incorrect. 
To make debugging easier, it is possible to examine specified data fields at 
various check points in the program, usually after they have been altered. In 
this way, the programmer can spot a logic error easily by manually performing 
the necessary operations on the data and comparing the results with the com- 
puter-produced fields that are displayed. When a discrepancy exists, the logic 
error must have occurred after the previous checkpoint. 

The EXHIBIT statement prints the required data fields on the printer. A 
simplified format of the EXHIBIT statement is as follows: 


The EXHIBIT is not part of the ANS standard but is available as a debugging 
aid with most compilers. Hence, we consider it here as a useful tool. 


Suppose your program performs the following: 


COMPUTE FLD1i = FLD2 * FLD3, 
COMPUTE FLDZ2 = 14 + FLD4 / FLDS, 


You expected a particular result, but you obtained a different one. Include the fol- 
lowing to help you pinpoint the error: 


COMPUTE FLDi = FLDZ * FLDG+ 
EXHIBIT FLD1+ 

COMPUTE FLD2Z = 14 + FLD4 / FLDS. 
EXHIBIT FLD2. 


The EXHIBIT statements should be placed at key locations in the program 
to test the outcome of specified arithmetic or logic instructions. During the 
run, the EXHIBIT statements will cause the printing of the contents of the 
specified data fields. In the above, you can check each COMPUTE by exhibiting 
the resulting field after each calculation. 

You must step through the program manually, comparing your intermediate 
results with the exhibited items to ensure proper execution. 
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From this example, we have seen that the use of the EXHIBIT statement 
greatly facilitates debugging by printing intermediate results at crucial check- 
points in the program. Note, however, that the printing of the above results 
would blend with normal printed output and be difficult to decipher. That is, 
the EXHIBIT statement could cause the printing of these fields in the middle 
of a report that is being produced by the program. To facilitate the reading of 
an exhibited field, we can have its name print along with its contents. 


Format name: | | {data-name-2 | 
| ric-literal-2{ ’ 
Thus, for our above example, when FL.D1 prints it would print as: 
FLDL = 27312 
FLDL = 26275 
We sometimes want an EXHIBIT to be executed only in the event that the 
contents of a data field actually change. That is, we may EXHIBIT that field 
only when its value is altered. We can use the following options of the EX - 
HIBIT statement for this purpose. 
Format 
Examples EXHIBIT CHANGED DEC-NO. 


EXHIBIT CHANGED NAMED BIT-CONFIG. 


Thus, the complete format of an EXHIBIT statement is: 


Full Format 


The use of a nonnumeric literal with the options NAMED and CHANGED NAMED 
causes the literal to print along with the contents of the field. For a CHANGED 
option, the literal and data field contents will print only when the contents 
in the data-name has been altered. 


(c) Use of a DISPLAY in Place of an EXHIBIT. A DISPLAY statement follows 
many of the same rules indicated for an EXHIBIT statement. In fact, a DIS- 
PLAY statement may be used in place of an EXHIBIT statement to print out 
values of key fields at given checkpoints. 

When creating tape or disk as output, one way of checking the results is to 
DISPLAY the record. Typically, you may code DISPLAY record-name during 
processing, just before writing the record. Most systems also enable you to 
examine output created on magnetic media with a job control command such 
as /PRINT. Check with your computer center. 

The DISPLAY statement with all its options is discussed in Chapter 24, 
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C. Validating Input Data 


A final word on ensuring program integrity. Numerous programming errors 
result from programmers simply assuming the validity of input data. Always 
check input fields for valid data, insofar as possible, before processing. A nu- 
meric input field that is blank, for example, can cause the computer to abort 
the run if an ADD is performed. A space is not a valid numeric character, and, 
when used inadvertently in numeric fields, a program interruption will occur. 
Chapter 15 discusses data validation techniques in detail. 


D. Initializing Fields Before Processing 


Many errors occur because output and WORKING-STORAGE entries are not 
properly cleared. Make certain that the initial contents of data fields are es- 
tablished before processing begins. 

For 1985 users, a special INITIALIZE verb is available for clearing fields. The 
format for this verb is: 


INITIALIZE group or record item... 


The operations performed are as follows: 
1. All elementary numeric items within the group or record item are set 
to zero. 


2. All elementary nonnumeric items within the group or record item are 
set to spaces. 


Self-Evaluating Quiz 


Solutions 


1. (T or F) A READY TRACE is used to list all the paragraphs coded in a program. 
2 


T or F] If the program is in an infinite loop, the READY TRACE will list the same 
paragraph-name over and over again. 


3. (Tor F) A RESET TRACE is used to list the paragraphs executed in reverse order. 
4. (T or F) EXHIBIT (data-name} differs from EXHIBIT CHANGED (data-name) in that 
the EXHIBIT always prints the field when the instruction is executed, while 
EXHIBIT CHANGED only prints it when the contents have changed. 

5. (T or F) Most logic errors are detected during the compilation process. 

6. (T or E) If a program has been compiled without any errors, it will run properly. 
7. (T or EF) Warning-level diagnostics do not usually interfere with the execution of 
the program. 

8. (T or F) Sometimes conditional errors are corrected by the compiler in such a 
manner that the program will run properly. 


9. (T or F) A single error in a COBOL program sometimes generates numerous error 
messages. 


10. (T or F) One or two input records are normally sufficient for test data. 


1. FIt lists the paragraphs that have been executed in the sequence in which they 
are executed. 


i 

FA RESET TRACE “turns off” the READY TRACE feature. 
c 

F—Logic errors are detected during execution. 

F—It may have logic errors. 

T 

ET 

T 


F—Input data should include every conceivable condition tested by the program, 
usually this requires numerous input records. 


CON an Pr wp 


ik 
S 


AN INTRODUCTION TO DEBUGGING COBOL PROGRAMS 261 


Il. Common Errors 
A. Data Exception When Numeric Fields Contain 
Spaces or Nonnumeric Data 


If a field is defined with a Pic of 9’s and it is used in arithmetic operations, 
it must not contain spaces. If it does, the computer will automatically abort 
the run and print an error message such as DATA EXCEPTION. 

To avoid the possibility that an abnormal end or abend condition will result 
if a numeric field containing spaces is used in an arithmetic operation, use 
the following type of coding: 


IF AMT IS NUMERIC 
(Arithmetic operation) 
ELSE 
PERFORM ERR-RTN, 


Nonnumeric, nonblank data erroneously placed in a numeric field may not 
cause an abend condition but will produce incorrect or meaningless results. 


B. Failure to Reset Numeric Fields to Zero 
After Calculations and Output 


Consider the following CALC~-RTN designed to produce one total for each group 
of 25 input records: 


+ 
’ 


READ AMT-FILE AT END MOVE 1 TO EOF. 
PERFORM CALC-RTN UNTIL EOF = 1, 


’ 
+ 


CALC-RTN. 
ADD AMT TO TOTAL. 
ADD 1 TO COUNTER, 
IF COUNTER = 25 
PERFORM PRINT-RTN. 

READ AMT-FILE AT END MOVE 1 TO EOF. 
PRINT-RTN, 
MOVE TOTAL TO TOTAL-QUT, 

MOVE DETAIL-~REC TO PRINT-REC, 
WRITE PRINT-REC, 


Both TOTAL and COUNTER must be initialized at zero before CALC-RTN is 
executed. Otherwise a data exception error may occur. 

The program excerpt produces only one correct summation, the first. When 
COUNTER is 25, PRINT-RTN is executed and the output is correctly written. 
Then the next record is read and the twenty-sixth AMT is added to TOTAL. 
Since TOTAL was not initialized to zero in PRINT-RTN, it will then contain 
the sum of 26 amounts, Since COUNTER was not reset to zero, the next instruc- 
tion that adds 1 to COUNTER results in 26. COUNTER is never again equal to 
25, and PRINT-RTN is not executed again. The result will be that CALC-RTN 
continues to be executed until there is no more data. Only one output line, 
the first, will be printed. 

If you execute a program that produces correct results the first time and 
then subsequently produces erroneous results or no results at all, chances are 
it is because you failed to reinitialize fields. To correct the above coding, we 
add two lines to PRINT-RTN, as follows: 


PRINT-RTN, 
MOVE TOTAL TO TOTAL-OQUT. 
MOVE DETAIL-REC TO PRINT-REC, 
WRITE PRINT-REC, 
MOVE O TO TOTAL. 
MOVE © TO COUNTER, 


262 BASIC COBOL OPERATIONS 


C. Using One EOF Indicator with Multiple Input Files 
Consider the following program excerpt: 


+ 
+ 


READ FILE-i AT END MOVE 1 TO EOF. 
PERFORM CALC-RTN1 UNTIL EOF = i; 


‘ 
READ FILE-2 AT END MOVE 1 TO EOF, 
PERFORM CALC-RTNZ UNTIL EOF = i+ 
CLOSE FILE-1, FILE-2, 

STOP RUN. 


EOF must be reset to zero after PERFORM CALC-RTN1. If it is not, CALC- 
RTN2 will never be executed. Since EOF is set equal to 1 when the end of 
FILE-1 is reached and since it is not reset, PERFORM CALC-RTN@ is not exe- 
cuted. Prior to READ FILE-2..., you should code: 


MOWE O TO EOF. 


Using a separate end-of-file indicator for each input file (e.g., EOF 1 and EOF2), 
however, will reduce the risk of a logic error. 


D. Ensuring That Truncation Does Not Occur 
in Arithmetic Operations 


Consider the following: 


AMTL , AMT2 AMTS 
PIC Contents PIC Contents PIC Contents 
99 86 99 43 9(3) 000 


Suppose we perform the following operation: 
COMPUTE AMT3 = AMTL * AMTZ 


After the COMPUTE, the result in ANTS will be 698, although the actual 
product is 3698. That is, ANT2 is not large enough to accommodate the results. 
On some systems, such truncation can actually cause an abend condition. 

To avoid this error: 


1. Make absolutely certain that the resultant field has enough integer po- 
sitions for the answer. 

In a multiplication operation, the number of integer positions re- 
quired is the sum of the integer digits in the fields being multiplied. 
Since AMT1 and AMT2 each have PIC 99, then AMT? should have a PIC 
of 9(4). 

In an addition operation, the resultant field should be at least one 
position more than the largest field being added. If there are numerous 
fields being added, take the largest number that can be stored in each, 
add them together, and make the result large enough to accommodate 
the sum produced. 

For subtraction, division, and COMPUTE instructions, you may once 
again operate on the data manually with the largest quantities that could 
possibly be stored in each field. Then make your result field large enough 
for the answer. 

2. Use the ON SIZE ERROR clause. 
When in doubt about the possibility of a truncation, use the ON SIZE 
ERROR clause as the last clause in an arithmetic statement: 


(arithmetic statement) ON S1ZE ERROR (perform an error routine) 
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E. Dividing By Zero 


If a DIVIDE operation is to be performed where the divisor is zero, the results 
will be unpredictable. An ON SIZE ERROR clause that is included with a 
DIVIDE operation will be executed if the divisor is zero, thereby avoiding any 


erroneous results. 
Another way to ensure proper results is to code the following: 
IF divisor 1S NOT ZERO 


DIVIDE | divisor INTO data-name 
data-name BY divisor 


ELSE 
perform an error routine 


The above five errors review material discussed in previous chapters. The 
following errors have not heretofore been considered. 


F. Inaccurate Use of Conditionals Within Conditionals 


Clauses beginning with AT END and ON SIZE ERROR are really conditional 
clauses. Since these clauses are executed only if a condition exists, they are 
treated by the system as conditionals: 


CLAUSE WHEN EXECUTED 
AT END If the end of the file has been reached, 


ON SIZE ERROR If the result field is not large enough to 
accommodate the actual result or an attempt was 
made to divide by zero. 


Since the above clauses are executed as conditionals, great care should be 
taken when using them in conjunction with IF ... ELSE statements. 


1. READ «++ AT END Within an IF Statement 
Consider the following: 


Erroneous Coding IF A= 6 
ADD 1 TO CTR 
ELSE 
READ INFILE AT END MOVE 1 TO EOF, 


Such coding will produce a syntax error. The reason for this is that there 
are two conditionals, which, to the computer, appear to be in conflict, That 
is, if an AT END condition is reached, the computer treats it as a kind of ELSE 
clause. Thus, it will not know whether to process MOVE 1 TO EOF if A is equal 
to B or if A does not equal B. 

To avoid this syntax error, we would need to code: 


IF A= B 

ADD 1 TO CTR 
ELSE 

PERFORM READ-RTN- 


‘ 
' 


READ-RTN. 
READ INFILE AT END MOVE 1 TO EOF. 
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On 1985 compilers, an END-READ clause may be used as a scope terminator 
to delineate the READ statement clearly and to avoid the above error: 


IF A= 6B 
ADD 1 TO CTR 

ELSE 
READ INFILE AT END MOVE 1 TO EOF 
END-READ, 


2.0N SIZE ERROR Within an IF Statement 
Similarly, consider the following coding, which is incorrect: 


Erroneous Coding IF A= 8B 
COMPUTE C = D * E ON SIZE ERROR 
MOVE 1 TO ERR-CT 
ELSE 
ADD 1 TO CTR+ 


Since the ON SIZE ERROR translates in the computer to a kind of ELSE 
clause, the computer will not be able to determine which conditional clause 
to execute at any given time. 

To avoid problems, we could change the above as follows: 


IF A= B 

PERFORM COMPUTE-RTN 
ELSE 

ADD i TO CTR+ 


’ 


COMPUTE-RTN+ 
COMPUTE C = D * E ON SIZE ERROR 
MOVE 1 TO ERR-CT-+ 


Another method for coding this is with the use of an END-COMPUTE, END~- 
ADD, END-SUBTRACT, END-DIVIDE, or END-MULTIPLY, which may be used 
with the corresponding verb if you are working under the 1985 standard. 

The 1985 standard permits ON SIZE ERROR clauses to have a delimiter that 
makes it clear to the compiler how to handle the conditional specified. Using 
the 1985 standard with an ON SIZE ERROR clause, we may specify END-ADD 
for ADD operations, END-SUBTRACT for SUBTRACT operations, and so on. Thus, 
if you are using the 1985 standard, you may code the above as follows: 


IF A= B68 
COMPUTE C = D ON SIZE ERROR 
MOVE 1 TO ERR-CT 
END-COMPUTE 
ELSE 
ADD 1 TO CTR: 


This will delineate the ON S1ZE ERROR clause for the system so that it does 
not conflict with an ELSE clause. 


G. Accessing an I/O Area Incorrectly 


When an AT END condition is reached, the input record area is no longer 
available for processing on many computers. Thus the following coding may 
cause an abnormal end: 
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Incorrect Coding 


48 @ 36 0 co co P| 


EAD [1 i 
ERFOR | 

nae eae 

TN, anne | 
EAD (INFIUE |AT|_END (MOVE! [i 70_E OF. i 


tit 


The boxed entry attempts to access TOT-AMT within the input area after an 
AT END condition has been reached. 

Similarly, it is not always possible to access an output area properly after 
a WRITE statement. Once the record is written onto a file, it is frequently no 
longer available for processing. In such cases, the following would be incorrect: 


Incorrect Coding WRITE OUT-REC. 
ADD AMT OF OUT-REC TO FINAL-TOT. 


The ADD statement must be executed prior to the WRITE if it is to produce 
the correct results. 

One way to avoid this problem is to use the WORK ING-STORAGE section for 
storing and describing input and output records. We can then, for example, 
move the detail record from WORK ING-STORAGE to the print area before each 
WRITE; we can also use the WORK ING-STORAGE area for processing the detail 
record, even after the output record has been written. The following, then, is 


correct: 
FD QUT-~FILE. 
+ 
91 QUT-REC PIC X(100), 
+ 


WORK ING-STORAGE SECTION, 


’ 
+ 


O1 DETAIL-REC. 
O35 AMT PIC 9(5)u99, 


MOVE DETAIL-REC TO QUT-REC, 
WRITE OUT-REC, 
ADD AMT TO FINAL-~TOT. 


Since AMT is not part of an I/O area within the FILE SECTION, it can be 
accessed at any time, even after a WRITE. 
Similarly, READ ... INTO can be used to store input data in WORK ING-~ 
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STORAGE. In this way, the WORK ING-STORAGE descriptors can still be processed 
even after an end-of-file condition has been reached. 


READ INFILE INTO WS-INREC 
AT END MOVE 1 TO EOF. 
PERFORM CALC-RTN UNTIL EOF = 1. 
ADD TOTAL-AMT OF WS-INREC TO FINTOT. 


H. Incorrect Processing of Multiple Records Within a File 


Remember that one I/O area is established for each FD. Thus even if you 
describe multiple records with different 01s, the computer reserves only one 
I/O area for the entire FD. All that is accomplished by defining multiple 01s 
within the FD is to redefine the I/O area in different ways. To code the fol- 
lowing, for example, is erroneous even if the FD for FILE-1 has two 01's: 


READ FILE-1 AT END MOVE 1 TO EOF. 
READ FILE-1 AT END MOVE 1 TO EOF, 


The data in the first record will not be retained when the second READ is 
executed. 

As indicated previously, it is better to describe I/O formats in WORKING~- 
STORAGE, where each format is set up as a separate area. Move a record from 
the WORKING-STORAGE area to the output area before writing it. Similarly, 
use a READ +++ INTO to read multiple records into different areas in WORK ING - 
STORAGE in succession. 


Een cae ocala V. Stylistic Guidelines That Make Programs 


Easier to Debug and Document 


The following are not compiler requirements but suggestions that may make 
debugging and documenting a program easier. Most of these guidelines have 
been discussed already; we repeat them here as a reminder. 


A. Naming Paragraphs 


Most of our programs thus far have been relatively short, at least compared 
to programs that are typically written for business applications. 

When PROCEDURE DIVISION entries include numerous coding lines, the 
use of paragraph-names such as CALC-RTN, PRINT-RTN, and ERR-RTN do not 
always provide the programmer with enough information. When debugging a 
program, or when a user is examining a program as part of documentation, 
locating a paragraph from pages of PROCEDURE DIVISION entries may prove 
cumbersome. Thus, when there are many lines in the PROCEDURE DIVISION 
and numerous paragraphs, it becomes difficult to locate a paragraph-name 
when it simply describes the type of module it is executing. It would be far 
better if the paragraph-name also helped to actively locate the routine. 

One useful technique for achieving this goal is to assign a numeric prefix 
to paragraph-names, such as 0010 or 0020. If a paragraph is to be added to the 
program, it can easily be inserted in the correct place with an appropriate 
number: 


PROCEDURE DIVISION. 
OOLO-MAIN. 


' 
+ 


0020-HOUSEKEEPING ’ 


+ 
+ 
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0030-CALD-RTN+ 


' 
+ 


If we wished to add a paragraph to appear between 0010-MAIN and 0020- 
HOUSEKEEPING, we could code it as 0015-HEADINGS. Thus, the paragraph- 
name itself helps to locate the paragraph within the PROCEDURE DIVISION. 

Note that rules for forming paragraph-names are the same as rules for form- 
ing data-names except that a paragraph-name may contain all numbers. 

From this point on, we will use the above technique for labeling paragraphs 
in relatively long programs. 

A second technique that might be used to help locate paragraphs for both 
debugging and documentation purposes is to use the sequence number or page 
and line number as a prefix to a meaningful paragraph-name: 


Sequence No COBOL Statement 
OOSO10 PROCEDURE DIVISION. 
ON5020 OOSOZ0-MAIN: 

O0S030 ’ 

OOsoOdd + 

QOSO9O 905090-HOUSEKEEPING, 


’ + 
' + 


’ + 


B. Naming Fields 
Data-names are most meaningful when designated as follows: 


I, For input and output fields, use -1N and -OUT, respectively (e.g., NAME~ 
IN and NAME-OUT). 
2. For WORKING-STORAGE fields, use WS~- as a prefix (e.g., WS-TOTAL), 


C. Formatting COBOL Statements 


1. Being Generous in the Use of Coding Lines 

When debugging a program, you may find that there are job control instruc- 
tions that allow you to isolate the specific line that causes an error. If more 
than one instruction or even more than one clause is coded on a single line, 
it would be more difficult to find the error, even knowing the line number. 
Thus, it is most effective if each clause appears on a line by itself: 


IF A = B 
ADD C TO TOTAL 
ADD 1 TO CTR 

ELSE 
ADD 1 TO ERR-CTR. 


Knowing the line number that causes an abend is even better than knowing 
the paragraph as you would if you used a READY TRACE. The job control nec- 
essary to pinpoint actual instructions is a system-dependent specification. 


2. Indenting Clauses 
Indenting clauses within a statement or sentence helps both the programmer 
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and the user to read the program. The following is considered very poor for- 
matting: 


IF A= B ADD i TO CTRi ELSE ADD 1 TO CTR2, 
It is better to code: 


IF € = B AbD 1 TO CTRI 
ELSE ADD i TO CTRE-. 


The following is even better: 
IF A = B 
ADD i TO CTRIi 


ELSE 
ADD 1 TO CTR2. 


All too frequently, programmers pay little attention to formatting. The re- 
sult is a program that is difficult to read and debug. We have been using and 
will continue to use the IF format specified in the last example. 


D. Using Comments 


A comment may be designated on any line with the use of an asterisk (#) in 
column 7. Use comments often, since they help to clarify the program. 


E. Recommendations for DATA DIVISION Entries 


1. Leave gaps in level-number assignment [05, 10, 15, and so on) in case 
insertions become necessary. 

2. Use an 01 called WORK-AREAS or something similar and use 95’s to 
define independent areas within it instead of using separate 77-level 
items. This technique is a useful documentation tool for grouping all 
counters, subtotals, and other work areas. 

3. In general, assign unique data-names. Avoid qualification of names where 
possible. Do not use the CORRESPONDING clause in the PROCEDURE 
DIVISION unless absolutely necessary. 

4. To conserve space and to avoid keying errors, use the abbreviation PIC 
for PICTURE clause. 

5. Avoid the use of 18 with VALUE and PIC clauses; it just takes up space. 

Avoid the use of A in PIC clauses, use X to define all nonnumeric fields. 

7. Align P1c and VALUE clauses to improve readability and facilitate de- 
bugging. 


a 


F. Alternate Method of Structuring a Program 
Without an Initial Read 


The method of coding structured programs that we have used is called the 
initial read method: 
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An alternate method for coding a structured program avoids the initial read: 


MAIN-MODULE. 
OPEN +46 
PERFORM CALC-RTN UNTIL EQF = 1, 


’ 
’ 


CALC-RTN. 
READ INPUT~FILE AT END 
PERFORM EQJ-RTN, 


+ 
’ 


EQJ-RTN« 
CLOSE ++, 
STOP RUN, 


Some organizations prefer this alternate method of structuring a program. 
We will, however, continue to use the initial read in our programs. 


CHAPTER SUMMARY 
I. Methods Used to Minimize the Debugging Effort 
A. Use proper planning tools. 
B. Desk check a program before compiling. 
C. Walk through a program and analyze it with a programming team. 
Il. Debugging 
A. Compilation stage. 
1. There are different levels of syntax errors. 
a) Warning. 
b) Conditional—the computer makes an assumption called a de- 
fault. 
c) Execution—the program will not run until these are corrected, 
2, Learn to decipher diagnostics by using your specifications manual 
or reference. 
B. Execution stage. 
1. Make sure that test data includes all possible conditions. 
2. Use debugging aids. 
a) READY TRACE—to list all paragraphs encountered during execu- 
tion. 
b) EXHIBIT or DISPLAY—to display intermediate results that 
would not otherwise print. 
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C. Avoiding common errors. 
1. Make sure that numeric fields contain numeric data. 
2. Reset EOF indicators if used more than once. 
3. Make sure resulting fields in arithmetic operations are large enough 
to hold the answers. 
4. Make sure you do not divide by zero. 
5. For 1968 and 1974 COBOL users, do not use a READ «++ AT END or 
ON SIZE ERROR along with an IF. 
6. Do not access an output area after a WRITE, or an input area after an 
AT END condition. 
D. Follow programming style guidelines specified in the chapter. 


ER CHAPTER SELF-EVALUATING QUIZ 


1. Ifa field used in an arithmetic operation has blanks in it, a _______ will occur. 


wv 


Tt. 


12, 


(T or F) It is good programming form to test a field to make sure it has numeric 
contents before performing an arithmetic operation. 


. (T or F) If you execute a program and only the first set of output totals is correct, 


it may be that you failed to reinitialize fields. 

(T or F) If your program includes ADD AMT TO FIN-TOT, it is not necessary to 
initialize FIN-TOT at zero since all numeric fields have an initial value of zero 
when the program begins. 


. Suppose FLD1 has a PIC of 9(3) and FLD2 has a PIC of 9(5), and the following 


statement is executed: 
MULTIPLY FLD1i BY FLD2 GIVING FLD3. 


To ensure that FLD3 is large enough to accommodate the product, it should have 
a PIC of 


Consider the following coding: 
COMPUTE AzFB/C 


Suppose 6 has a PIC of 9 and C has a PIC of 949, A should have a PIC of 
to ensure that it can accommodate the answer. 
Suppose we have the following coding: 


COMPUTE E= F/G 


If G has value of ______, the results will be unpredictable. 


. Consider the following coding: 


IF A= B 
ADD C TO D ON SIZE ERROR 
MOVE 0 TO D 
MOVE 1 TO ERR-CT 
ELSE 


ADD 1 TO COUNTER, 


A syntax error will occur because 
To correct the coding in Question 8 on any system, we could have 


. Another method for correcting the coding in Question 8 that is only valid for 1985 


systems is ______. 

If a program is lengthy, paragraph-names should include ____— as part of 
meaningful titles. 

(T or F) Coding one clause per line will help in debugging because it will make it 
easier to isolate errors. 


Solutions 
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10. 


(T or F) Moving I/O areas to WORKING-STORAGE will reduce the risk of accessing 
input/output fields at improper points in the program. 

(T or F) Unique data-names are considered better form than having to use qualifiers. 
(T or F) The only method for coding a structured program is with the use of an 
initial read. 


(T or F) READY TRACE is an instruction that can isolate the paragraph in which an 
error has occurred. 
. (T or F) Always include a READY TRACE in all program runs. 
EXHIBIT NAMED (data-name) prints the ________ as well as the contents of the 
data-name. 
. (T or F) An EXHIBIT or a DISPLAY is used for examining fields during processing, 
. (T or F) All systems have the same COBOL reserved words. 
Page 
. data exception or logic error or abend condition 261 
T 261 
Bu 261 
. F—On some systems FIN-TOT will be set to 0, but you cannot assume that 261 
this will be the case on all systems. 
. 8(8) [5 + 3] 262 
. 99499 would be appropriate. The quotient would be valid to two decimal 262 
places. Also, supposing B has value 9, the largest possible value in B, and ¢ 
has value 0,1, the smallest possible value in c, the quotient would be 90. 
Hence, A must have two integer positions. 
0 263 
. ON SIZE ERROR and ELSE are both considered conditional, and this will cause 264 
a problem. 
. IF A= B 264 
PERFORM ADD-RTN 
ELSE 
° ADD 1 TO COUNTER. 
ADD-RTN» 
ADD C TO D ON SIZE ERROR 
MOVE © TO D 
MOVE 1 TO ERR-CT, 
IF A=8 264 
ADD C TO D ON SIZE ERROR 
MOVE © TO D 
MOVE 1 TO ERR-CT 
END-ADD 
ELSE 
ADD 1 TO COUNTER, 
. sequence or page and line numbers 267 
T 267 
—T 265 
ma 267 
F—Another method is described in this chapter. 269 
eT. 257 
F—It is not always necessary. It should be used, however, if you have a logic 258 


error and cannot find it. 


. name of the field . 259 


2 259 


. F—Each system’s enhancements use additional COBOL reserved words. 255 
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KEY TERMS 


Abend condition DISPLAY 

Data exception EXHIBIT 

Debugging INITIALIZE (1985) 
Default READY TRACE 

Desk checking Structured walkthrough 
Diagnostic message Test data 


REVIEW QUESTIONS 


I. True-False Questions 


1, 


6. 


10. 


(T or F] A READY TRACE will pinpoint the particular instruction that causes an 
error. 


. (T or F) Conditional errors may cause an abend situation. 


(T or F} Execution-level errors require correction before actually executing the 
program. 

(T or F] Fields that print should be exhibited or displayed just before the WRITE 
statement is executed to ensure that they are correct. 


. (T or F) In general, desk checking a program is discouraged because it takes a 


computer far less time to find a typographic error than it would take the program- 
mer. 


(T or F] Once a COBOL program has been compiled so that there are no syntax 
errors, it is ready to be run on a regularly scheduled basis. 


(T or F) A data exception error occurs if a numeric field contains zero. 


. (T or F} If an arithmetic operation is performed and truncation occurs, an abend 


condition will result. 
(T or F) If two input files are used in a program, it is possible to use one EOF 
indicator correctly. 


(T or F] Using the 1985 COBOL compiler, an END-COMPUTE can be used to specify 
the endpoint of a COMPUTE operation. 


II. Fill In the Blanks 


Li 
2. 
_ A______ or a_________ is typically used as a planning tol before coding of a 


oot a! 1G 


The term abend is an abbreviation for 
The best way to include comments in a program is 


program is undertaken. 


Two ways in which a SIZE ERROR condition may occur is when ______ or 
when 


A syntax error is 

Test data is 

A logic error is i 

Manual reviewing of a program for typographical errors before compiling it is 
referred to as 


Manually stepping a" the logic of a program before it is executed is referred 
to as 


. Two ways to ensure that information created on a tape or disk is correct is by 


and 
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OBJECTIVES 


To familarize you with: 

1. The major characteristics of printed output. 

2. The types of editing performed to make printed output user-friendly. 
3. Criteria to use when designing printed reports. 


I. A Review of Special Considerations for Printed Output 


When output is written on disk or tape, the following rules apply: 


1. Data should be as concise as possible (e.g., use item numbers instead of 
item descriptions to identify parts stored in a warehouse). 


2. Do not include “edit’’ symbols such as dollar signs or commas. 


3. Use codes in place of long fields (e.g., 1, 2, 3 or ‘M’, ‘S’, ‘D’ for marital 
status rather than “Married,” “Single,” Divorced”). 


Tape and disk output are generally used for intermediate storage, with the 
stored data ultimately reentering the computer flow as input to another pro- 
gram. These types of output are created, then, with efficiency in mind. Fields 
and records on these files are kept as concise as possible to make effective use 
of the computer and its storage capabilities. 

The printed report, however, is written with businesspeople or other users 
in mind. Because computer-generated reports are read by people, such forms 
must be clear, neat, and easy to interpret. Several characteristics, not appli- 
cable to other forms of output, must be considered when preparing reports. 


A. Editing of Printed Data 


A tape, disk, or card may have two amount fields with the following data: 
00450 and 3872658. Although these fields are acceptable on tape, disk, and 
cards, the printed report should contain this information in edited form to 
make it more meaningful to the user. $450.00 and $38,726.58, for example, 
are clearer methods of presenting the data. 

Editing is defined as the inclusion of edit symbols to make fields of data 
clearer and more user-friendly. Editing of data is of prime consideration when 
printing information. We have already seen how we may use the dollar sign 
and decimal point for editing. In this chapter, we will focus on various types 
of editing that can be performed on numeric and nonnumeric fields. 


B. Spacing of Forms 


The lines on printed output must be properly spaced for ease of reading. Cer- 
tain lines must be single-spaced, others double-spaced. The printed output 
must have adequate margins at both the top and bottom of each page. This 
requires the computer to be programmed to sense the end of a page and thus 
to transmit the next line of information to a new page. 


C. Alignment of Data 


Reports do not have fields of information adjacent to one another as is the 
practice with other forms of output. Printed output is more easily interpreted 
when data is spaced neatly and evenly across the page. We have seen how the 
Printer Spacing Chart is used for planning the output design so that detail 
lines and heading lines are neatly spaced (see Figure 12.1). 
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Figure 12.1 
Sample Printer Spacing Chart. 


Figure 12.2 
Design features of printed 
output. 


Double-space detail lines 


D. Printing of Headings 


Heading information, which supplies the report name, date, and field desig- 
nations, is essential for a clear and meaningful presentation of printed infor- 
mation. 

Figure 12.2 provides a schematic of how data may actually be printed. The 
output would print according to the specifications provided in the Printer 
Spacing Chart in Figure 12.1. Because printed information has characteristics 
different from other output, we will study the printed report as a separate, and 
rather special, topic. The first item, editing, will be considered in this chapter. 
Spacing alignment and features of headings will be discussed in the next chapter. 


Spacing 


Headings 


Editing 


Y 


Alignment of data 
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Il. The Editing Function 


A. The Basic Edit Symbols 
The following will be considered editing functions: 


EDITING FUNCTIONS 


Suppression of leading zeros. 

Printing of decimal points where decimal alignment is implied. 
Printing of dollar signs and commas. 

Printing of asterisks for check protection. 

Printing of plus or minus signs to reflect the value of a field. 
Printing of debit or credit symbols for accounting applications. 
Printing of spaces or zeros as separators within fields. 


SA ES Oe 


The first six editing functions described above may only be performed on 
numeric fields, or fields with PICTURE clauses consisting of 9’s. The last 
editing function, the printing of zeros or spaces as separators, may be per- 
formed on any data field. 

All editing is performed by moving an elementary item to a report-item. 
An elementary item, you will recall, is a field with a PICTURE clause; that is, 
it is a data item that is not further subdivided. A report-item is an elementary 
item that has the appropriate PICTURE clause to perform editing functions. 
Note that it is the PICTURE clause of the receiving field, the report-item, that 
causes editing. The operation of editing can be performed by moving a numeric 
field to a receiving field that contains edit symbols in,its PICTURE clause. 

To perform an editing function, the PICTURE clauses of the fields that will 
serve as output must contain the appropriate edit symbols. Data is moved 
from input or work areas to these output areas. When a WRITE statement is 
executed, the information to be printed will be in edited form. As in all MOVE 
operations, the sending fields remain unchanged after the data has been trans- 
mitted to the report-item, The report-item itself may be defined as part of the 
output record or in a WORK ING-STORAGE area that will be moved to the output 
area before writing. We have seen that the latter is recommended. 

In addition, the GIVING option of the arithmetic verbs ADD, SUBTRACT, 
MULTIPLY, and DIVIDE permits the last data field specified to be a report- 
item. Thus, in the following statement RESULT may be a report-item: 


ADD AMTL+ AMTZ+ AMT3s GIVING RESULT 


Similarly the first data-name specified 
item, That is, COMPUTE RESULT = AM 
edited sum in the field called RESULT 


in the COMPUTE may also be a report- 
1 + AMTZ2 + AMTS would produce an 
if RESULT were a report-item. In all 


instances, AMT1, AMT2Z, and ANTS must be strictly numeric, since they are part 
of the arithmetic operation. RESULT could not itself be used in an arithmetic 
operation other than as a receiving field. 

Thus, we can obtain editing by (1) moving a field to a report-item or (2) 
performing an arithmetic operation using the GIVING option or the COMPUTE 
statement and placing the result in a report-item. 
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Self-Evaluating Quiz 


Solutions 


1. Editing is performed (a) by a ________ operation, or (b) by using the 
option with an arithmetic verb, or (c) by using the _________ statement and placing 
the result in a report-item. 
2. When editing is performed by moving, a(n) ______ item _is moved to a(n) 
item, 


3. A receiving field that has the appropriate PICTURE clause to perform editing is called 
a 


4. Most editing is performed on (numeric, nonnumeric) fields. 


5. When moving the contents of a data item to a report-item to perform editing, the 
contents of the sending field (changes, remains unchanged] after the operation. 


MOWE; GIVING, COMPUTE 

elementary numeric; report- 

report-item 

numeric 

. remains unchanged—MoVeE operations do not affect the contents of the sending field. 


Oi Go iS 


B. Interpreting Edit Characters 


1. The Printing of Decimal Points Where Decimal Alignment is Implied 
We have already considered the printing of decimal points in Chapter 7. The 
following discussion, then, will serve as a review. 

As indicated in previous illustrations, a field such as TAX, with PICTURE 
ggyg99 and contents of 12,35, should print as 12.35 when edited. It is only 
through editing that the implied decimal point will be replaced with an actual 
decimal point. That is, printing TAX as is would result in 1235 as output; 
implied decimal points do not print. 

The appropriate report-item that will print a decimal point will have a 
PICTURE of 99,99. The decimal point, which may never appear in the PIC- 
TURE clause of a numeric item, is part of a report-item. It instructs the com- 
puter to place an actual decimal point where it is assumed to be in the sending 
field. If a sending field had a PICTURE of 999999, its report-item would have 
a PICTURE clause of 999.999. 

A sending field with PICTURE 99V99 takes four storage positions, since 
implied decimal points do not use storage, while the corresponding report- 
item takes five positions, since a real decimal point does, in fact, use a position. 
The number 12.35, when printed, uses five print positions. 


2. Suppression of Leading Zeros 

Nonsignificant or leading zeros are zeros appearing in the leftmost positions 
of a field and having no significant value. For example, 00387 has two leading 
zeros. Nonsignificant zeros should generally be omitted when printing. 00387 
should print as 44387, since the two numbers are numerically equivalent and 
the latter is easier to read. The operation to perform this type of editing is 
called suppression of leading zeros. 

The number 10000 has no leading zeros. All zeros in the number 10000 
have numeric significance because none appear in the leftmost positions of 
the field. Under no circumstances would we want to suppress the printing of 
the zeros in 10000, since each adds value to the number. 

The edit symbol [-Z_] is used to suppress leading zeros and to replace them 
with blanks or spaces. FIELDA, with PICTURE 999, might be edited by moving 
it to EDIT1, with a PICTURE of zzz, as shown on the top of the next page. 

Each Z represents one storage position that may accept data from a sending 
field. In addition, any nonsignificant zeros encountered in the sending field 
will be replaced with blanks. Thus, the following are examples of how FIELDA 
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will print depending on its initial value (recall that a blank is represented in 
the following examples by a slash through a lowercase b as }): 


038 will print as 438 
003 will print as bb3 
000 will print as bbb 


Any number that does not have leading zeros, such as 108, will print as is. 

When suppressing leading zeros, the sending field must be defined as nu- 
meric. The receiving field should be the same size as the sending field. Ptc- 
TURE 222 indicates a three-position storage area that may accept three char- 
acters of numeric data and that will suppress all leading zeros. 

Often it is desirable to suppress only some leading zeros. Consider the case 
where the contents of four sending fields denoting Charitable Deductions are 
0020, 4325, 0003, and 0000, respectively. The output may be as follows: 


DEDUCTIONS 


NAME SALARY FOR CHARITY 
P, NEWMAN 13872 20 

B, STREISAND 40873 4325 

B. REYNOLDS 10287 3 

T. SELLECK 25382 


All leading zeros will be suppressed. The PICTURE clause for the report-item 
is 2222 or 2(4). 

As may be evident from this illustration, it is sometimes inadvisable to 
leave fields completely blank when a zero balance is implied. Users who ques- 
tion, at times, the accuracy of computer output, tend to regard blank fields as 
an indication that the computer erred or that it stopped and was restarted 
improperly. Perhaps T. SELLECK did, in fact, make a contribution but the 
computer, through an electronic error, failed to indicate it. 

For this reason, it is sometimes good practice to print a single zero where 
a zero balance exists. In this way, the report will leave no doubt about the 
charitable inclinations of T. SELLECK. 

Thus, if the four-position charity field has contents 0000, we want it to 
print as bbKO. That is, we want only the three leftmost positions of the field 
to be zero suppressed and the rightmost position to print without suppressing 
the zero. The PICTURE clause of the report-item, then, would be 2229. 2’s 
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indicate numeric characters to be zero suppressed, and 9’s indicate numeric 
characters to print without zero suppression. Hence 0000 will print as bKKO 
if the report-item PICTURE clause is Z2Z9 or Z(3)9. 

The combined use of 2’s and 9’s in a report-item requires that all z’s precede 
any 9’s. Zeros may be suppressed only if they precede significant digits. 

The following examples will clarify editing with zero suppression. We are 
assuming edited results are obtained by the operation: MOVE SENDING-FIELD 
TO REPORT-ITEM. Edited results may also be obtained by using the GIVING 
option of an arithmetic statement or by using the COMPUTE statement. 


Sending-Field Report-Item 
PICTURE Contents PICTURE Edited Results 
1, 9¢3) 109 Z2z 109 
2, 9(3) 007 2(3) rd 
3. 9(3) 000 Zzz 
4. 9(3) 007 z99 07 
5. 94) 0082 z999 082 


We can combine the two editing functions discussed so that we zero sup- 
press and place decimal points in the edited field. Consider the following: 


Sending-Field Report-Item 
PICTURE Contents PICTURE Edited Results 
1, s9v99 02,38 Z2z,.99 2.38 
2. 99V99 00,03 22,99 03 
3. 99v99 00,05 z9,.99 0.05 


Since numeric positions to the right of a decimal point have significance 
when they are zero, we will not perform zero suppression on these quantities. 
That is, .01 should not be edited to read .1, since the two numbers are not 
numerically equivalent. As a rule, then, we will not zero suppress characters 
to the right of a decimal point in a number. 

There is one exception to this rule. COBOL allows you to use a report-item 
with PICTURE 2Z.2Z. This will suppress zeros to the right of the decimal 
point only if the entire field is zero, in which case all spaces will print. Thus 
00,03 prints as bb.03, but 00,00 prints as five blanks. Because this PICTURE 
clause may be confusing, we will not, in general, use it. 

The number of 2’s representing integers in the report-item should be equal 
to the number of integers or 9’s in the sending field. The following, then, 
would produce either a syntax error or incorrect results: 


Sending-Field Report-Item 
PICTURE PICTURE 

1. 903) z(4) 

2. 9(3) Z(2) 


In Example 1, the receiving field is too large; in Example 2, it is too small. 
If the sending field has decimal positions, however, we may truncate them 
if desired by including only integer z’s in the report-item. Similarly, an integer- 
only sending field may be made to print as a dollars and cents field by using 
+99 or .ZZ in the report-item. The following will illustrate these points: 


Sending-Field Report-Item 
PICTURE Contents PICTURE Contents 
1. 9(3)¥99 008,27 Z2(3) 8 
2, 9(3) 027 2(39).99 27.00 
3. 9(3) 018 Z2(3) 422 18.00 
4, 9(3) 000 ZU 3422 blank 


a Gear G2 ta 


Sending-Field 
PICTURE Contents 
aca)vag 381234 
ggvg9 05,00 
g99va9 000,05 
g(4)va9 0003.82 
9(7)V99 003826845 
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In all instances, the number of 2’s to the left of the decimal point must equal 
the number of integer 9’s in the sending field. 


3. The Printing of Dollar Signs and Commas 

Dollar signs and commas are editing symbols frequently used in conjunction 
with the suppression of leading zeros and the printing of decimal points, since 
many numeric quantities often appear on printed reports as dollars and cents 
figures. The dollar sign and comma are simply placed in the positions in which 
they are desired, as in the case with decimal points. If FLDA, with PICTURE 
99999, is edited as a dollars and cents figure, the dollar sign is the first 
character, a digit from the sending field follows, then a comma, three more 
digits, a decimal point, and two decimal positions. Thus, the report-item has 


a PICTURE of $9+999.99. The following examples illustrate this point. 
Report-Item. 
PICTURE Edited Results 

$9,999.99 $[387,[8][1]2 314 

$22.99 $ 5 0/0 

$222.99 $ 0,5 

$2222.99 $ 3 8 [2 

$Z 222 +222.99 $ 3/78 [,[2[6[8 415 
In Example 1 the sending field uses six storage positions, while the receiving 


field uses nine. Dollar signs, commas, and decimal points each use one posi- 
tion of storage. When defining the print record in the DATA DIVISION, be sure 
that nine positions are included for the report-item. Editing typically results 
in the use of more storage positions for a report-item to be printed than if the 
data were printed without editing. 

Examples 2 through 4 illustrate the use of zero suppression with other forms 
of editing. In Example 2, one leading zero is suppressed and replaced with a 
space. Thus, there is a single blank between the inserted dollar sign and the 
first significant digit. Example 4 indicates that the zero suppression character 
z will also eliminate or suppress leading commas. Note that the result of the 
edit was not [$ , 3.82 ], but [$ 3.82 |. The z will suppress both zeros 
and commas until it encounters the first significant digit of a field. Thus a 
comma will be appropriately suppressed if no significant digit precedes it. In 
Example 4, four spaces will appear between the dollar sign and the first sig- 
nificant digit, three for the suppressed zeros, and one for the suppressed comma. 

Recall that the report-item must allow for the same number of integer 
positions as the sending field, but it can include additional decimal positions 
if desired. FLDA, with PICTURE 99 and contents 40, may be edited by moving 
it to EDIT1, with PICTURE $22.99. In this case, the two decimal places are 
filled with zeros. The result, then, in EDIT1 is $40.00. 


4. The Printing of Asterisks as a Check Protection Character 
The suppression of zeros, by the use of Z, in conjunction with the printing of 
dollar signs may, at times, prove unwise. 

Suppose we are using the computer to print checks. To print $ —.05, as in 
Example 3 above, may be inadvisable since the blanks between the dollar sign 
and the decimal point may easily be filled in by a dishonest person using a 
typewriter. It is therefore conceivable that someone could collect $999.05 on 
what should be a five-cent check. 

To prevent such occurrences, a check protection symbol, the asterisk (+), 
is used in place of blanks when leading zeros are to be suppressed. Using the 
correct report-item, Example 3 would print as $###.05, In this way, it is almost 
impossible to tamper with the intended figure. 

To print an asterisk in place of a blank when zero suppression is to be 
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performed, use an [_* | instead of a [|Z | in each position. Asterisks are zero- 
suppression characters that replace nonsignificant zeros and commas with * 
instead of spaces. 


Sending-Field Report-Item 
PICTURE Contents PICTURE Edited Results 
1. 9(3)V99 123,45 $HH*, 99 $123.45 
2.. axayVae9 012,34 $¥xe, 99 $#12.34 
3. 9(2)V99 00,12 $4e*,99 $e%.12 
4. 9¢5)y99 0023456 SRE HER, OD $234.56 


The asterisk is used most often for the printing of checks or when there is 
some concern that resultant amount fields might be tampered with. Under 
other conditions, the use of 2’s for normal zero suppression is sufficient. 


5. The Printing of Plus or Minus Signs to Reflect the Value of a Field 

(a) Printing Minus Signs. Unless the computer is instructed to do otherwise, 
numeric quantities print without a sign. When reports are printed, we typically 
interpret the absence of a sign as an indication of a positive quantity. 

If an amount is negative and no sign instructions are issued to the computer, 
it will print without a sign, which will cause it to be interpreted as positive 
by the user. If we wish to print a minus sign when a number is negative, we 
must use an editing symbol. Note that the PICTURE clause of a numeric 
sending field must contain an $ if it can have negative contents. Without the 
8, the field will be considered unsigned. 

To print a minus sign for negative sending fields, we use the edit symbol 
[_- ]. This minus sign may be placed either to the right or to the left of the 
report-item. By placing the minus sign in one of these two positions, the 
computer is instructed to store it in the corresponding position only if the 
sending field is negative and to omit a sign when the sending field is signed 
positive or unsigned. Recall that the sending field must have an § in its PIC 
clause to be interpreted as a signed field. 

The sign of a number in the sending field is indicated by placing it above 
the rightmost position of the number. The computer uses the rightmost 
position for storing the sign as well as the low-order digit. Consider the 
following: 


Sending-Field Report-Item 
PICTURE Contents PICTURE Edited Results 
1. saga 23 -999 - 123 
2. sag9 123 ga9- 123- 
3, 999 123 -999 193 
4, $999 123 -999 123 
5. s99vaa 02,34 27,99- 2.34 — 


Examples 1 and 2 illustrate that if the sending field is negative, the edited 
results print with the minus sign. Examples 1 and 2 also illustrate that the 
minus sign within a report-item may print to the right or the left of a field. 
Examples 3 and 4 illustrate that no sign will print if the sending field is signed 
positive or unsigned. Example 5 illustrates the use of the minus sign in con- 
junction with other editing symbols such as the 2. 


(b) Printing Either a Minus or a Plus Sign. There are occasions when a sign 
is required for both positive and negative quantities. That is, a + sign is 
required when the field is unsigned or signed positive, and a — sign is required 
when the field is signed negative. This will not be performed properly by using 
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the edit symbol [= |], which only generates the minus sign if the quantity is 
negative and omits a sign for all other quantities. 

To print either a plus sign or a minus sign for all values, the edit symbol 

+ | is used. To edit a sending field by moving it to a report-item with a + 
in its PICTURE clause will instruct the computer always to generate a sign: a 
+ sign will be generated for positive or unsigned quantities, and a — sign will 
be generated for negative quantities. Once again, the sending field should have 
an $ in its PIC clause for it to be interpreted as a signed field. 

Like the minus sign, the plus sign may be made to appear either to the left 
or to the right of a field. Consider the following examples: 


Sending-Field Report-Item 
PICTURE Contents PICTURE Edited Results 
1. s9ee 123 +999 +123 
2. $999 123 9go+ 123+ 
3, 8999 123 +999 ~ 123 
4. 999 123 +999 +123 
5. s9gggvas 0387)25 +2+222,.99 — 387.25 


6. The Printing of Debit and Credit Symbols for Accounting Applications 
For most applications, a plus or minus sign to indicate positive or negative 
quantities is sufficient. For accountants, however, a minus sign often indicates 
either a debit or a credit to a particular account. 

For accounting functions, the edit symbols [DB _] , for debit, or , for 
credit, may be used in place of the minus sign. If an amount is to be debited 
to an account when it is negative, DB will be used. If a quantity is to be credited 
to an account when it is negative, CR will be used. Once again, the sending 
field should have an $ in its PIC clause to be interpreted as a signed field. 

The DB and CR symbols must always be specified to the right of the report- 
item. Unlike the minus sign itself, these symbols may not be used to the left 
of a field. If the amount is negative and CR or DB is used, then either CR or DB 
will print, respectively. If the field is unsigned or signed positive, neither CR 
nor D8 will print. 

While a minus sign uses one storage position, CR and DB each use two 
positions. The following examples will illustrate the use of CR and DB: 


Sending-Field Report-Item 
PICTURE Contents PICTURE Edited Results 
1. 8999 123 aggcr 123CR 
2, $999 123 g99DB 123DB 
3. s999 123 999CR 123 
4, s999 123 999DB 123 
5. $9(5)¥99 0123456 $22 ,222,99CR $ 1,234.56CR 


7. The Printing of Spaces or Zeros as Separators Within Fields 
Suppose that the first nine positions of an input record contain a Social Security 
number. If the field is printed without editing, it might appear as 080749263. 
For ease of reading, a better representation would be 080 74 9263. Spaces 
between the numbers, then, would add clarity. 

Any field, whether alphabetic, alphanumeric, or numeric may be edited by 
placing blanks as separators within the field. The edit symbol [_B_] in a PIc- 


284 A FOCUS ON PRINTING REPORTS 


TURE clause of a report-item will cause a space to be inserted in the corre- 
sponding position. 

Zeros may also be inserted into fields for editing purposes. The edit symbol 
0 ] in the PICTURE clause of a report-item will cause a 0 to be inserted in 
the corresponding position of the receiving field without loss of characters 
from the sending field. 

The following will illustrate the use of spaces or zeros in report-items: 


Sending-Field Report-Item 
Data-Name PICTURE Contents PICTURE Edited Results 
SSNO sco) 089743456 S9SBBO9BB9999 089 74 3456 
NAME AC10) PASMITH ABABA(8) P A SMITH 
DATE1I 9(4) 0286 99BB99 02 86 
QTY-IN-100 999 153 99900 15300 


You will note that most editing is performed on numeric data. Only this 
last category of edit operations, the use of blanks or zeros within a report- 
item, will accept data that is not numeric. For all other editing, the sending 
field must be numeric, that is, it must have a PICTURE clause of 9’s, and may 
include an § and/or V. 

Furthermore, only elementary numeric items may be used in these edit 
operations. You will recall that group items, even if they are subdivided into 
numeric fields, are treated as alphanumeric items by the computer.-Thus, to 
obtain a valid numeric edit, only elementary items may be used. 

Editing may be performed in three ways: (1) by moving a sending field to a 
report-item with an appropriate PICTURE clause, (2) by using the GIVING op- 
tion of an arithmetic statement where the resulting field is a report-item, or 
(3) by using a COMPUTE statement where the resulting field, to the left of the 
equal sign, is a report-item. It is the PICTURE clause itself that determines 
what type of editing is to be performed. 

The following, however, will result in an error if EDI1T1 is a report-item: 


INVALID 


ADD TAX» TOTAL TO EDITI. 


The computer performs ADD instructions, and any other arithmetic operations, 
on numeric fields only. EDIT1, as a report-item, is not a numeric field. In the 
above, EDIT1 is not simply the receiving field, it is part of the ADD itself. 

The MOVE CORRESPONDING option can be used to edit incoming fields. We 
may edit input data by moving it to a report-item in the receiving field. 


Example MOVE CORRESPONDING REC-IN TO PRINT-OUT. 


O1 REC-IN, Contents O1 PRINT-OUT. Contents 
02 NAME PICTURE X(6). JEADAM 02 FILLER PICTURE X, b 
02 AMT PICTURE g99V99, 575,24 O2 NAME PICTURE XBXBXXKXXK, JE ADAM 
02 AMT PICTURE $22z,.99, $575.24 


Table 12.1 will serve as a review of edit operations. 


Self-Evaluating Quiz 1. The asterisk is called a ______ symbol. 
2. The zero suppression symbol, Zz, suppresses ________ and ___ up to the 
first significant digit. 
3. The asterisk replaces all with 
4, To print a minus sign when an amount is negative, use a ________ symbol in the 


report-item. 


EDITING PRINTED OUTPUT 


285 


Review of Edit ee Sending Field Report-ltem 
PICTURE Contents PICTURE Edited Results 
1. 9(6) 123456 $222 222,99 $123,456.00 
2, 9999vgag 0012.34 $2Z+222.99 $ 12.34 
3. 9(5)y99 0000123 fee HHK, OS Gackt | 23 
4, 8916) 012345 +2(8) — 12345 
5. 8918) 123456 -246) 123456 
6. sgag9vaa 1234,56 #204) 99 +1234.56 
7. $999 123 Z22- 123- 
8. 9(6) 123456 SSBBBB99IG 12, 3456 
9, s99 05 $22. 99DB $ 5.00DB 
10. 999 123 999000 123000 
11. sggya9 12,34 $27, 99CR $12.34CR 
5. To print a plus sign or a minus sign as appropriate with an amount field, use a 
symbol in the report-item. 
6. CR and DB symbols are accounting symbols used in place of a sign. 
7. All editing must be performed on fields except editing using 
8. To say MULTIPLY A BY B GIVING C (is, is not) correct if C is a report-item. 
9. A report-item is F 
10. A plus or minus sign may be placed either to the or to the 
of a field, but CR and 08 must be placed to the of a field. 
11. How many storage positions must be allotted for a report-item with PICTURE 
$a pan, OO? 
12. How many integer positions should appear in the sending field to be moved to the 


report-item in Question 11? 


For Questions 13-28, fill in the edited results. 


13. 
14. 
15. 
16. 
Us 


18. 
19; 


20. 
21, 


22., 
23. 


24. 


25. 
26. 
Pag 
28. 


Sending-Field Receiving-Field 
PICTURE Contents PICTURE Edited Results 
9(6) 000123 222,999 
9(6) 000008 222999 
9(6) 123456 222,999.99 
9(4)v99 123456 $Z 9222.99 
g(4)yg99 0000,,78 $Z+Z229,99 

+ 

$9(4)v99 0000,78 $Z+ZZZ,99CR 
s9(4)V99 000078 $2 1222, 99CR 
59(6) 123456 -999,999 
9(6) 123456 -999 ,999 

+ 
s999 123 -999 
i] 123 +999 

+ 
s999 123 +999 
s999 123 ~999 
9(B) 000092 Z(6)00 
(6) 123456 XXMBBXXX 
9(4)va9 0012.34 $e *eH, OD 
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29. Suppose NAME-FIELD with a PICTURE X(15) is part of an input document, where 
the first two positions of the field contain a first initial and a second initial. To 
edit this field so that a space appears between INITIAL1 and INITIAL2, and an- 
other space between INITIAL2 and LAST-NAME, the report-item will have the 
following PICTURE clause: 


1. check protection edit 
2. high-order zeros or leading zeros; commas 
3. leading zeros and leading commas, asterisks (*) 
4. - (minus sign] 
5. + (plus sign) 
6. minus 
7. numeric; zeros or blanks as field separators 
8. is 
9. a field to be printed that contains the appropriate symbols to perform editing 
10. left; right; right 20. — 123,456 
11. Nine 21. 123,456 
12. Four 22. 123 
13. 123 23, +123 
14. 008 24. +123 
15. 123,456.00 25. —123 
16. $1,234.56 26. 9200 
17. $ 0.78 27. 123 456 
18. $ .78 28. $##e%*12.34 
19. $ .78CR 29, XBXBX(13) 


C. Floating Strings 
Examine the following sample output: 


CUSTOMER NAME QTY SOLD AMT 
Je SMITH 51000 $38,725.67 
A, JONES - 2 $ 3.00 


Although the fields are properly edited, the format is striking in one respect. 
The dollar sign of AMT and the minus sign of 9TY SOLD for A. JONES are 
separated from the actual numeric data by several spaces. This result is a 
necessary consequence of the type of editing that we have been discussing. 

The report-item must contain enough positions to accommodate the entire 
sending field. If the sending field, however, has many nonsignificant zeros 
(e.g., 0000487), numerous blank positions will appear between the dollar sign 
and the first significant digit, or the sign and the first significant digit. 

A leading edit character such as a plus sign, minus sign, or dollar sign may 
appear in the position directly preceding the first significant digit with the 
use of floating strings. A dollar sign or a plus or a minus sign may be made to 
“float” with the field; that is, a floating string will cause suppression of leading 
zeros and, at the same time, force the respective floating character to appear 
in the position adjacent to the first significant digit. 

With the proper use of floating strings in the PICTURE clause of the report- 
item, the following sample output may be obtained. 


Example 1 


Example 2 


Example 3 
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Sending-Field Report-Item 

Contents Edited Results 
1 00123,87 $123.87 
2, 00004,,00 $4.00 
3 3876543 $38,765.43 
4, 0387 —387 
is} 00006 —6 
6 010423 + 10,423 
Z 000005 5 


You will note that in this sample output the dollar sign, minus sign, or plus 
sign always appears in the position directly preceding the first significant digit. 
Only these three edit symbols may be made to float in this way. 

To perform a floating-string edit operation, two steps are necessary. 


1. Create the report-item PICTURE clause as in the previous section. Use 
the floating character of +, -, or # in conjunction with 2’s. 


9. Then replace all z’s with the corresponding float character. 


05 FLDA PICTURE 9(4)¥99, 


Problem: Edit the field using a floating dollar sign. The report-item is called EDIT. 
In Step 1, the PICTURE clause of the report-item is created as usual: $2 »Z22,.99. 
In Step 2, all z’s are replaced with the floating character, a dollar sign: $$ +$4#4,99, 
Thus, the floating string EDIT1 has a PICTURE of $$ $44.99. 


Note that there are five dollar signs in the report-item. The four rightmost 
dollar signs are zero suppression symbols. They cause suppression of leading 
zeros and commas and place the dollar sign in the position adjacent to the 
first significant digit. The leftmost dollar sign indicates to the computer that 
$ will be the first character to print. In total, there should be one more dollar 
sign than integer positions to be edited. Four integer positions are edited using 
five dollar signs. In general, n characters may be edited using a floating string 
of n + 1 characters. The extra floating character is needed in case the sending 
field has all significant positions, that is, the receiving field must have one 
additional position in which to place the floating character. 


05 TAX PICTURE S8(4). 


Problem: Edit TAX using a floating minus sign. The report-item is called ED1T2. 
In Step 1, the PICTURE clause of the report-item is created according to the rules of 
the last section, using a minus sign and zero suppression: -2222. 
In Step 2, all 2’s are replaced with the appropriate floating character: ----- 
Thus, ED1T2 will have a PICTURE of -(5) or ----- . 


0032 will print as —32 
0487 will print as — 487 


EDITS has a PICTURE clause of +++99. 


Problem: Find the PICTURE clause of the sending field, FLD3. 

Three plus signs indicate a floating-string report-item that will accept two integer 
positions. The leftmost plus sign does not serve as a zero suppression character and is 
never replaced with integer data. Two characters of data will be accepted by three plus 
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signs, and two characters of data will be accepted by two 9’s. Thus the sending field 
should have a PICTURE of $9(4). Consider the following examples: 


3826 will print as +3826 
0382 will print as —382 
0002 will print as +02 


From these examples, it should be clear that floating-string characters may 
be used in conjunction with other edit symbols such as 9’s, decimal points, 
and commas. The floating-string character, however, must be the first or left- 
most character in the PICTURE clause of the report-item. 

In addition, we may not use two floating-string characters in one report- 
item. If a dollar sign is to float, for example, then an operational sign may not 
be placed in the leftmost position of the field. You will recall, however, that 
signs may also appear in the rightmost position of a report-item. Thus, 
$$ +$%%,99- is a valid PICTURE clause, but #+---.99 or something similar 
is not valid. Only one character can be used as a floating symbol. 


D. BLANK WHEN ZERO Option 


At times, it is necessary to perform elaborate editing of data fields. We have 
learned all the rules for performing such edits. In addition, however, it is often 
desirable to print spaces when a sending field consists entirely of zeros. With 
the use of complex editing, you may find that $.00 or —0 or a + or — by itself 
will print. This may detract from the clarity of a report. In such cases the 
COBOL expression BLANK WHEN ZERO may be used in conjunction with the 
appropriate PICTURE clause. 


0S EDIT1 PICTURE +++, 
This report-item will accept two characters of data, as in the following examples: 


03 will printas +3 


76 will print as —76 
00 will print as + 


To eliminate the printing of + for a zero sending field as in the last case, the BLANK 
WHEN ZERO option may be added: 


OS EDIT1 PICTURE +++ BLANK WHEN ZERO, 


When using the BLANK WHEN ZERO option with a report-item, the normal 
rules of editing will be followed, depending on the edit symbols in the P1c- 
TURE clause. If the sending field is zero, however, spaces will print. 


CHAPTER SUMMARY 
Table 12.2 reviews edit symbols used in a PICTURE clause. 
Table 12.3 illustrates the rules of editing related to floating strings. 


CHAPTER SELF-EVALUATING QUIZ 


1. The three characters that may be used in a floating string are 
, and 


2. The floating character is the (rightmost, leftmost) character in the field. 


3. If five minus signs appear in a floating string, (no.) characters of the sending field 
may be accepted by the report-item. 
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1 Meani 
Symbols That May be Used in Syma caning 
a PICTURE Clause x Alphanumeric field 
9 Numeric field 
A Alphabetic field 
V Assumed decimal point; used only in numeric fields 
S Operational sign; used only in numeric fields 
p Decimal scaling position; used only in numeric fields 
Z Zero suppression character 
Decimal point 
+ Plus sign 
= Minus sign 
$ Dollar sign 
Edit — 
Cc 
Symbols eaaaaai 
CR Credit symbol 
DB Debit symbol 
f Check protection symbol 
B Field separator—space insertion character 
0 Zero insertion character 
Table 12.3 . . 
Examples of Editing Using Sending-Field Report-Item 
Floating Strings and the BLANK PICTURE Contents PICTURE Edited Results 
WHEN ZERO Option 
1. ggya9 001,23 $94.99 $1.23 
2. Saesvas 012.34 $994,.99- $12.34 — 
+ 
3. S999 123 ween 123 ° 
4, 3999 123 ne ~123 
5, $999 005 wees =5 
6. 99 37 net +37 
7. 899 05 tht —5 
+ 
8.. 698 05 tee +8 
9. 999 000 ++++ BLANK WHEN ZERO 
10. 999 000 tebe + 
11. ss9v9a 000,00 $$9%,99 $.00 
12. ss9va9 000,00 $$%$%,99 BLANK WHEN ZERO 
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4. Suppose a sending field with PIc s999V99 is negative. To print a floating dollar 
sign and a minus sign will require a report-item PICTURE clause of 


5. The BLANK WHEN ZERO option affects output only if the sending field is 


For Questions 6-20, fill in the missing column. 


Sending-Field Report-Item 
PICTURE Contents PICTURE Edited Results 
6. 999y99 000,05 $$$$,99 
7. 99gva9 000,05 $$9%,99- 
8. sgg9vaa 000,05 $$$$,99- 
9. s9ggvag 0026,54 26.54+ 
10. ssg9ve9 003872 +38.72 
11. sgg9 002 thet 
12.. $99 ienies a 
13. 999ya9 000,00 $$$$,99 
14, g99yvag 000,00 $$$%$,99 BLANK WHEN ZERO 
15. s9ggva9 0238,75 $$+$$%,99 BLANK WHEN ZERO 
16. 9(3)¥99 000,07 Z(3) 
17. 9(3) 008 Z(3),.99 
18. 9(5) 00123 $22 1222.22 
19. 9(4) 0002 z,299 
20. 9(3) 001 Z(2) 
Page 
Solutions 1. +; -;$ 286 
2. leftmost 288 
3. four 287 
4. $$$$,99- 289 
5. zero 288 
6. $.05 287 
7. $.05 282, 
8. $.05- 282, 
9. 222Z2,.99+ 283 
10. +++++,.99 287 
11. -—2 287 
12. 04 280 
13. $.00 287 
14. (7 blanks) 288 
15. $238.75 288 
16. bbb 280 
17. 8.00 280 
18. $ 123.00 281 
19. 02 280 
20. will cause a syntax error—report-item is not large enough 279 
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| PRACTICE PROGRAM 


Write a program to print the total of the amount fields of every group of five tape 
records using the following problem definition: 


Systems Flowchart 


TRANS TAPE SUMMARY-REPORT 
80-position records 

standard labels 

20 records/block 


TRANS-TAPE Record Layout 


1 20 21 25 26 80 


SUMMARY-REPORT Printer Spacing Chart 


affafifataty 2|2}2]2|2}2/2)2) 13] 
1}2|3/4{s/o}7/a}9/o]1]2|3/4/5/a|7| 3/9/01 


1 lal 
| 5a 


== 


iitianiitn PRRECHECHEHEHH 


Sample Input Data 


i 


PAUL NEWMAN 12000 
PAUL NEWMAN 13008 
PAUL NEWMAN 10000 
PAUL NEWMAN O5000 
PAUL NEWMAN 02500 
DIANA ROSS 91800 
DIANA ROSS 92000 
DIANA ROSS 83008 
DIANA ROSS G4009 
DIANA ROSS G5000 
ROBERT REDFORD 10999 
ROBERT REDFORD 20008 
ROBERT REDFORD 390600 
ROBERT REDFORD ADOO0 
ROBERT REDFORD 50608 


Sample Output 

PAUL NEWMAN S*EHAIS .O8 
DIANA ROSS S***158 06 
ROBERT REDFORD $*1,500.00 
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Note: The name is the same for each group of five records. The number of tape records is a 
multiple of five. Figure 12.3 gives a solution. 


Figure 12.3 * 
Solution to the Practice IDENTIFICATION DIVISION, 
Program. PROGRAM-ID. SAMPLE12, 

* 
ENVIRONMENT DIVISION. 
CONFIGURATION SECTION, 
SOURCE-COMPUTER., IBM-4341. 
OBJECT-COMPUTER, IBM-4341, 
INPUT-OUTPUT SECTION, 
FILE-CONTROL,. 

SELECT TAPE-FILE ASSIGN TO UT-5-SYS00d, 
SELECT PRINT-FILE ASSIGN TO UR-S-SYSOUT,. 
* 
DATA DIVISION, 
FILE SECTION. 
FD TAPE-FILE 
LABEL RECORDS ARE STANDARD 
BLOCK CONTAINS 25 RECORDS, 


O1 TAPE-REC. 
OS NAME PIC X(20). 
0S AMOUNT PIc g99Vag, 
FD PRINT-FILE 
LABEL RECORDS ARE OMITTED, 
O1 PRINT-REC, 
05 FILLER PIC X11), 
0S NAME PIC X(20), 
0S FILLER PIC K(10), 
05 TOTAL PIC $¥*,##*,99, 
05S FILLER PIC X(82), 
WORKING-STORAGE SECTION. 
O1 WORK-AREAS, 
0S EOF PIC 9 VALUE ZEROS, 
0S TOTAL-AMOUNT PIC 9(5)¥99 VALUE ZEROS, 
05 CTR PIC 9(3) VALUE ZEROS. 


* 
PROCEDURE DIVISION, 
MAIN-MODULE. 
OPEN INPUT TAPE-FILE 
OUTPUT PRINT-FILE. 
READ TAPE-FILE AT END MOVE 1 TO EOF, 
PERFORM CALC-RTN UNTIL EOF = i. 
CLOSE TAPE-FILE 
PRINT-FILE, 
STOP RUN, 
CALC-RTN, 
MOVE SPACES TO PRINT-REC, 
MOVE © TO CTR. 
MOVE NAME OF TAPE-REC TO NAME OF PRINT-REC, 
PERFORM READ-RTN UNTIL CTR = 5, 
MOVE TOTAL-AMOUNT TO TOTAL, 
WRITE PRINT-REC. 
MOVE ZEROS TO TOTAL-AMOUNT, 
READ-RTN-s 
ADD AMOUNT TO TOTAL-~AMOUNT. 
ADD 1 TO CTR. 
READ TAPE-FILE AT END MOVE 1 TO EOF, 
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KEY TERMS 


Floating string 
Report-item 


BLANK WHEN ZERO option 
Check protection symbol (*) 


Editing Suppression of leading zeros 


REVIEW QUESTIONS 


I, True-False Questions 


1. (T or F) Editing is most often performed when output is to be printed. 
2. (T or F) A report-item may not be used in an arithmetic operation. 
3. (T or F) Dollar signs and minus signs may be used as floating characters, but not 


in the same report-item. 
4. (T or F) A report-item may be specified in an arithmetic operation only if it follows 
the word GIVING or if it is used as a receiving field in a COMPUTE statement. 
5. (T or F) A $ is called a check protection symbol. 
6. (T or F) The BLANK WHEN ZERO option is only permissible with fields that use 
floating characters. 
7. (T or F) 06 and cr both print if the sending ficld is signed negative. 
8. (T or E) Ifa sending field does not have an § in its PIC clause, it will never print 
as a negative amount, even if the report-item contains a minus sign. 
9. (T or F) Without the use of an edit character, 11.55 would print as 1155. 
10. (T or F} A plus or minus sign is most often transmitted to the computer along with 
the digit in the units position. 


II, General Questions 
For Questions 122, fill in the missing entries. 


Sending-Field Report-Item 
PICTURE Contents PICTURE Contents 
1, g9va9 04,67 22,99 
2. 9(4)y999 0086,,754 $Z21Z22Z.99 
3, 999 467 $222.99 
4. s9gveg 00,98 $ZZ,99+ 
s 
5. sggved 00,89 $22,99- 
a 
6. 8999 005 #ZZ2Z,99CR 
i 
7. $999 005 $Z22,99DB 
a 
8. s99ve9 00,06 $22. 99CR 
+ 
9, sg9veg 00,05 $xx,99~- 
QO. 9(4) 1357 $e eee, OO 
11. XXXX CRDB XXBBXX 
2. 9(4) 0185 99BB99 
3. s9ave9 135,79 $$$%.99 
4. s9gveg 000,09 $$$ .99 
15. s9svog 000,00 $$$$,99 
6. $9(5) 00567 Ph 
+ 
7. ssgveg 0034 Soo ,99- 
ei 
8. S99 00 ++ 
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19. s99 00 a 

20. ssggyvag 0009.88 $9.88 

21. g999gvag 0009,,88 $ 9.88 

22. 99V99 87,38 + 87.38 


EE DEBUGGING EXERCISES 


Consider the following pata DIVISION entries: 


O1 IN-REC, 

OS AMTL PIC 9(4)v99, 
OS AMTZ PIc 9(5)v99, 
OS AMT3 PIC 9(3)y99, 
oS AMT4 PIC 9(3), 

OS AMTS PIC 9(3). 

Ol OUT-REC, 

OS FILLER PIC Xs 

OS AMT1-OUT PIC $(4),99, 
oS FILLER PIC K(10), 
OS AMTZ2-OUT PIC 22,222, 
OS FILLER PIC X(10), 
OS  AMT3-OUT PIC 2222.99 
0S FILLER PIC K(10), 
OS AMT4-OUT PIC 2(3),22, 
OS FILLER PIC X(10), 
OS AMTS-OUT PIc -999, 

OS FILLER PIC XK(10), 
OS TOTALI PIC $(5),99 
oS FILLER PIC X(10), 
0S TOTAL2 PIC Z(5),99, 
oS FILLER PIC X(26). 


1. Before moving the amount fields of IN-REC to the corresponding amount fields of 
QUT-REC, is it necessary to MOVE SPACES TO GUT-REC? Explain your answer. 
2. Should OUT-REC be defined within the FILE SECTION or the WORKING-STORAGE 
SECTION? Explain your answer. 
3. Indicate which of the following would result in a syntax error and explain why. 
(a) MOVE AMT1 TO AMT1-OUT, 
(b) MOVE AMT2 TO AMTZ-OUT, 
(c) MOVE AMT3 TO AMT3-OUT,. 
(d) MOVE AMT4 TO AMT4-OUT. 
(e) MOVE AMTS TO AMTS-OUT. 
(f) COMPUTE TOTAL1 = AMTi + AMTZ 
(g) ADD AMTZ+ AMT3 GIVING TOTAL2, 
4. Suppose QUT-REC is defined in the WORKING-STORAGE SECTION and we add the 
following field: 


oS AMTG PIC $(5),99 VALUE ZERO. 


Will this field result in a syntax error? Explain your answer. 
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Ee pROGRAMMING ASSIGNMENTS 


1, Write a program based on the problem definition shown in Figure 12.4. 


Notes 
(a) The following formulas apply to this problem. 
Gross Amount = Quantity x Unit Price 
Discount Amount = Gross Amount x Discount Percent 
Net Amount = Gross Amount — Discount Amount 
All result fields should be rounded to the nearest cent. 
(b) Zero suppress Unit Price, Quantity, Gross Amount, Discount Amount, and Net Amount. 
(c) Print a minus sign, if present, for those fields indicated on the Printer Spacing Chart. A 
negative Quantity field in the input record indicates a return of the item for credit. 


Systems Flowchart 


INVENTORY-FILE REPORT-LISTING 
80-position records 

standard labels 

20 records/block 


INVENTORY-FILE Record Layout 


il 5 6 25 26 28 29 31 32 33 34 38: 39 41 42 46 47 80 


REPORT-LISTING Printer Spacing Chart 


afafayata tanya ty fafa '2}2}2]2| 21 
1}2]314|5]6|7|a}9/0] 1|2}3/4/5]6|7/8|910]1 6 |6)7 a) 


1 
Fy 
3 
4 
5 
6 
7 
8 I 
HC = Poon No SCRIPT 
W 


mt Trt rt Aer 


Figure 12.4 
Problem definition for Pro- 
gramming Assignment 1. 
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2. Write a program based on the problem definition shown in Figure 12.5. 


Notes 

(a) Use a floating dollar sign for the salary and print a comma, as required. 

(b] Zero suppress unused sick days, unused vacation days, and the total that appears in the 
last line of the report. 


Figure 12.5 — Systems Flowchart 
Problem definition for Pro- 
gramming Assignment 2. 


PAYROLL-MASTER PAYROLL-REPORT 
80-position records 

standard labels 

20 records/block 


PAYROLL-MASTER Record Layout 


25 26 29 30 35 36 58 59 


PAYROLL-REPORT Printer Spacing Chart 


erry _ 
sfals}a/s{o}7/o{o{ol3)2)3/4/3 16/7 (ololols|2la[«/6 | (a{alols{als|«) slo (alalols|als 
1 
2 ! 
3 | 
4 
5 
H [6 
7 
8 | 
H |e . | 
10 | | ia 
Bon t 
12) i ie le * 
13) . . t i , 
14 . . a 0 . 
15 | 
aL TE ND : HH SouaaELLEEEEEEESE GEER 
3. Write a program based on the problem definition shown in Figure 12.6. The input 


is a sequential disk file. 
Note: Use floating dollar signs. 


4. Write a program to read in a sequential disk file and print a bank balance report. 
The input records have the following format: 


1-5 Customer Number 
6-25 Customer Name 
26-31 Previous Balance (KXXX.XX) 
32-37 Deposits (KXXX.XX) 
38-43 Withdrawals (XXXX.XX] 
44-80 Unused 


Figure 12.6 
Problem definition for Pro- 
gramming Assignment 3. 
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Systems Flowchart 


ACCOUNT-TRANS 
80-position records 
standard labels 
20 records/block 


TRANS-REPORT 


ACCOUNT-TRANS Record Layout 


rama i 25 26 30 31 80 


TRANS-REPORT Printer Spacing Chart 


AAPA 


| 


1 im} 
2 
3 
4 
5 | 
; 114 
7 
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9 ian | | 
10 
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The report s. 


hould contain the following: 


(a) An appropriate title and field headings. 


(b) For each 
the line. 


input record, print all the fields edited and appropriately spaced across 
In addition, print the current balance, edited, on the same line. The 


formula fo: 


x the current balance is as follows: 


Current balance = Previous Balance — Withdrawals + Deposits 


If any current balance is negative, print a minus sign to the right of the amount. 


(c) At the end of the report, print the totals for Previous Balance, Deposits, With- 
drawals, and Current Balance. Align these totals under the corresponding fields 
on the report and include the word “TOTALS” on the left-hand side of the line. 
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Ee OpyEcTIVES 


To familarize you with: 

1. Methods used for proper spacing of forms. 

2. Methods used for aligning data on a page. 

3. Obtaining a date on a report heading.. 

4, Coding techniques for improving the quality of printed reports. 


EE 1. Using the WRITE ... FROM Statement 


A MOVE operation, in which data is transmitted from WORK ING-STORAGE to 
the output area, followed by a WRITE statement, may be replaced by a single 
WRITE «++ FROM instruction. Thus, the following two excerpts produce equiv- 
alent results: 


Method 1 
7 MOVE DETAILELIINE Mol PRIMTEREGLILT LITT LLL 
HEEEORITEP PRINDERPRET PELE ERY Cr PEEECECLELEEELCLELELEE EEE HELE 
Method 2 
FCT WRITE PRENT-RE(C FROM DEMAULELINE: | 


RRERAa ee IN, Spacing of Forms 


A. The ADVANCING Option 


1. Advancing the Paper a Fixed Number of Lines 
Issuing a WRITE instruction, where the record indicated is in the file assigned 
to the printer, will print one line of data. After the WRITE instruction, the 
paper will advance one line; that is, single-spacing will result. 
Single-spacing, however, is ordinarily not sufficient for most printing ap- 
plications. Usually programs require special spacing features such as double- 
spacing between some lines and triple-spacing between others. A simple WRITE 
command results in single-spacing only. 
We may obtain any number of blank lines between each data line by using 
an AFTER ADVANCING or BEFORE ADVANCING option with every WRITE in- 
struction for printed files. The format for this WRITE statement is as follows: 


Format 


The integer, if used, must be any positive integer less than 100. The data- 
name, if used, may refer to a data item containing any integer less than 100. 
If a line is to print after the paper is spaced, the AFTER ADVANCING option 
is used. WRITE PRINT-REC AFTER ADVANCING 2 LINES will space two lines 
and then print. That is, after the paper advances two lines, printing will occur. 
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If a line is to print before spacing occurs, the BEFORE ADVANCING option is 
used. WRITE HEADING-REC BEFORE ADVANCING 3 LINES will print and then 
advance the paper three lines. 

The words ADVANCING and LINES are not underlined in the Format, indi- 
cating that they are optional. Hence, the following two statements produce 
the same results: 


1. WRITE PRINT-REC AFTER ADVANCING 2 LINES, 
2. WRITE PRINT-REC AFTER 2, 


In general, the first WRITE statement is preferred because it is more user- 
friendly. The BEFORE ADVANCING option should not usually be used in the 
same program as the AFTER ADVANCING option. To do so may cause over- 
printing on the same line. That is, consider the following: 


WRITE HDG-REC AFTER ADVANCING 2 LINES, 
' 


WRITE REPORT-REC BEFORE ADVANCING 2 LINES, 


The first WRITE statement causes two lines to be spaced and then the HDG- 
REC to be printed. The subsequent WRITE instruction prints first and then 
spaces the form. This means that REPORT-REC would print on the same line 
as HDG-REC. This overprinting would, in general, be incorrect unless you wished 
to use it for underlining a heading; that is, the first WRITE would print the 
heading and the second would print the underline. As a rule, to avoid any 
problems associated with printing two records on the same line, use either 
the BEFORE or AFTER ADVANCING option in a single program, but not both. 

Most computers enable the paper to be spaced a maximum of 100 lines. 
Check your manual for the upper limit on this option for your computer. 

To advance the paper one line and then print one line, the following in- 
struction is issued: 


16 


Ei EG 0 oy m7 73 


INTIREC [AFTER JADMANGING [1 WINES. CT TTA 


Note that, even though the integer ‘1’ denotes a single line, the plural LINES 
is generally used. Although the English is not quite accurate, the notation is 
acceptable in COBOL. The word LINE is acceptable as well for 1974 and 1985 
ANS COBOL users, but not for 1968 ANS COBOL users. 

Using the ADVANCING option enables the programmer to obtain any type 
of line spacing desired. Many computers use the first or leftmost position in 
the print area for controlling the spacing of forms. Thus, we will always pro- 
vide the print area with one extra position, which the computer may use for 
proper spacing of forms. 

Suppose we are using a printer with 132 print positions per line. As noted 
previously, we specify 133 positions for these print records, rather than 132. 
The first or leftmost position of this area is used for form control. This first 
position should not be accessed in the program. The print area, then, may be 
defined as follows: 
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If the print records are described in WORKING-STORAGE, then the leftmost 
position of each record would similarly be specified with a FILLER. Note that 
to specify only 132 positions for a print record will cause the printing of 131 
print positions, that is, the first print position will not print. Although we use 
132, print positions per line in our illustrations, your printer may have 80, 100, 
120, or some other number of characters per line. 

Note, also, that once the ADVANCING option is used for a print file, it should 
be specified for all WRITE statements for that file. Thus, if single-spacing is 
sufficient for the entire report, you may use a simple WRITE statement. If 
single-spacing is not sufficient, the ADVANCING option should be used with 
all WRITE statements for the print file. 


SUMMARY 


1. AWRITE statement without an ADVANCING option will result in 
single-spacing. 

2. If the ADVANCING option is used in a WRITE statement, every WRITE 
statement for records associated with the print file should contain 
an ADVANCING clause. That is, automatic single-spacing may not 
occur once the ADVANCING option is used. 

3. When the ADVANCING option is used, one extra character should be 
reserved for each record to be printed. The leftmost character is 
used by the system for controlling printing. Thus, for printers with 
132 characters per line, each print record should be described as 
containing 133 characters and the leftmost position should not be 
accessed by the programmer. 


In general, we will use the ADVANCING option when writing print records. 


2. Advancing the Paper to a New Page 
Computer generated reports are printed on continuous forms. Continuous forms 
have all pages connected, with perforations for separating the sheets at the 
end of each page. After a report is generated, these forms or pages must be 
burst, or separated, into single sheets. 

Unless the computer is instructed to do otherwise, it will write each line 
and advance the paper, printing from one sheet to another, ignoring the fact 
that each is really an individual page. At times, it may even print over the 
perforations, which, at best, makes reading difficult. 

Although printing is performed from one page of the continuous form to 
another, the computer must be instructed to observe page delineations. Each 
page should generally begin with a heading. Data lines follow as the main 
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component of the report, and when the end of a form is reached, we should 
skip to a new page and write the heading again. 

We will consider several methods for advancing the paper to a new page. 
We encourage you to use the first one. 


(a) The PAGE Option—For 1974 and 1985 ANS COBOL Users. The word 
PAGE used after the word ADVANCING will cause the paper to skip to a new 
form. Thus, to advance the paper to the top of a new page and print a heading, 
we can code the following: 


WRITE PRINT-REC FROM HEADING-REC 
AFTER ADVANCING PAGE, 


HEADING-REC is a 133-position record described with appropriate VALUE 
clauses in the WORK ING-STORAGE SECTION. The PAGE option is recommended 
for skipping to a new page for 1974 and 1985 ANS COBOL users. 


(b) Other Options. IBM and IBM-compatible computers will skip to a new 
page when the clause AFTER ADVANCING © LINES is used: 


AFTER ADVANCING O LINES, 


WRITE PRINT-REC FROM HEADING-REC ] 


In addition, some computers allow the programmer to use the SPECIAL- 
NAMES paragraph of the ENVIRONMENT DIVISION to specify a “mnemonic 
name” for advancing to a new page. 

Co1, which means Channel 01, is used to indicate the start of a new page 
on many systems. Channel 01 is set equal to a programmer-supplied name 
that serves as a new page indicator in the SPECIAL-NAMES paragraph, which 
is part of the CONFIGURATION SECTION of the ENVIRONMENT DIVISION. Thus, 
the CONFIGURATION SECTION can be coded as follows on some computers: 


CONFIGURATION SECTION. 
SOURCE-COMPUTER. programmer-supplied-name. 


OBJECT-COMPUTER. programmer-supplied-name. 
SPECIAL-NAMES, CO1 IS mnemonic-name. 


That is, Channel 01 can be equated to any unique mnemonic-name that 
will be used for advancing the paper to a new page. 


CUO nnn i 
| 


: 
eos | 
HAHAREEAEVGRERETGT 


In this example, Co1 or Channel 01, which designates the top of a new form, is equated 
to the mnemonic-name T0-TOP-OF -PAGE. This name is then used in conjunction with 
the WRITE statement as follows: 


TLL WRIDTEL PRINT-REC FROM HEAD 
H AFL R ae GIN TIO TIO 
| 


52 56 60 64 68 
SeRaRaD Fi se | 
Mnemonic-name specified in SPECIAL-NAMES 
paragraph in the 
ENVIRONMENT DIVISION. 


Li 6 ES) 0 a A | 


| a oe 
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The preceding statement will cause PRINT-REC to print the data specified in 
HEADING-REC on the top of a new form, since To-TaP-oF -PAGE has been equated 
to Channel 01. The code co1 is applicable to IBM-compatible computers, but 
it may be different for other computers. 


The mnemonic-name following the COBOL reserved word, ADVANCING, 
must be the same mnemonic-name as the one equated to Channel 01 (C01) 
of the SPECIAL-NAMES paragraph of the CONFIGURATION SECTION. 

We can expand the format of the WRITE statement to include all options 
of the ADVANCING clause thus far discussed: 


Format—Expanded Version 


In summary, use AFTER ADVANCING PAGE if you have a 1974 or 1985 com- 
piler. The other options specified above may or may not be available to you, 
depending on the computer you are using. 


B. End-of-Page Control—With the Use of a Programmed Line Counter 


To ensure that information does not print over the perforations of a continuous 
form an end-of-page control routine must be coded. The best method for test- 
ing if an end of page has been reached is with a programmed line counter. 
Using a programmed line counter to achieve end-of-page control, we must: 


————s 


PROGRAMMED LINE COUNTER 


Determine the number of lines to be printed. 

Establish a WORK ING-STORAGE line-counter field initialized at zero. 

After each WRITE statement, increment the WORK ING-STORAGE 

line-counter field by one. In this way, the number in the line- 

counter field will be equal to the number of lines actually printed. 

4. After each WRITE statement, test the line-counter field to see if it 
equals the number of lines we want printed per page. If it does, 
print a heading on a new page. If it does not, continue with the pro- 
gram. 

5. If the line-counter field has reached the desired number, we perform 

‘a heading routine where the line-counter is reinitialized at zero. 


a 


ah 


The programmed line counter should be employed for all programs tha 
produce numerous print lines where the possibility exists that more than one 
page of printing will be required. Without such a procedure, the printer wil 
simply print one line after another, paying no attention to page delineations 
or perforations. Most programs that produce printed reports will generate more 
than one page and thus require end-of-page programming techniques. 

We can use a programmed line counter that is incremented by one every 
time a line is written. When a specified number of lines have been written, 
we can simply instruct the computer to print a heading on a new page: 


WRITE PRINT-REC FROM DETAIL-~REC 
AFTER ADVANCING 1 LINES, 
ADD 1 TO LINE-COUNT. 
IF LINE-COUNT = 50 
WRITE PRINT-REC FROM HEADING-REC 
AFTER ADVANCING PAGE 
MOVE ZEROS TO LINE-COUNT. 
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Figure 13.1 
Flowchart for line-counter 
routine. 
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Note that LINE-COUNT must be a WORK ING-STORAGE item initialized at zero. 
The following routine, using the same method, allows for double-spacing. 


WRITE PRINT-REC FROM DETAIL-REC 
AFTER ADVANCING 2 LINES. 
ADD 1 TO LINE-COUNT, 
IF LINE-COUNT = 25 
WRITE PRINT-REC FROM HEADING-REC 
AFTER ADVANCING PAGE 
MOVE ZEROS TO LINE-COUNT. 


Both routines assume that a page consists of 50 data lines. In the first case, 
we actually print 50 records, one per line. In the second, we print 25 double- 
spaced records. Thus, in the second case, we have 25 print records and 25 
blank lines. The flowchart for the latter procedure is illustrated in Figure 13.1. 

Note that 1974 and 1985 ANS COBOL users may also use a LINAGE clause, 
as discussed in Appendix E. 

On some systems, it is also possible to employ the SPECIAL-NAMES para- 
graph of the ENVIRONMENT DIVISION for sensing the end of a page as well as 
skipping to the top of a new page. See your manual for more details. 


C. Spooling of Printed Output and the Use of Buffers 


For many systems, data to be printed is not automatically transmitted to the 
printer because print operations are relatively slow. Instead, the data is spooled 
onto some medium such as a disk in a high-speed operation. In this way, the 
relatively slow printing operation becomes a disk-to-print procedure that is 
sometimes performed in an off-line mode. This frees the CPU to perform other 
functions while output is being printed. On some systems, if spooling is per- 
formed, the SPECIAL-NAMES paragraph may not be used for skipping to a 
new page. 

When spooling is not performed, the computer generally establishes two 
storage areas or buffers for each print file. While data from one buffer is being 
printed, (a relatively slow operation), the other buffer may be used for storing 


SPECIAL FEATURES OF PRINTED OUTPUT 


305 


the next output line to be printed. Overlapped processing performed in this 
way increases the speed of the first operation and may be used as an alternative 


to spooling. 


If spooling is being performed, we do not need two buffers. The output 
operation onto disk is fast enough so that alternate I/O buffers for accumu- 
lating data are unnecessary. Thus, if your system spools printed data onto disk 
and then prints in a disk-to-print procedure, you might be required to establish 
only one output area or buffer. This is performed with a RESERVE clause as 


follows, depending on the system you use: 


For 1968 ANS Users—When Spooling is Performed 


SELECT filename ASSIGN TO device 
RESERVE NO ALTERNATE AREAS, 


——4 
For 1974 and 1985 ANS Users—When Spooling is Performed 
SELECT file-name ASSIGN TO device 
RESERVE 1 AREA. 
ea iF 16 0 2, 26 7] 36 0 aa a8 2 36 0 u wo A 
LLL SELECT PR NPE FELEL ASprENL TD/ UREBEAMBEI TT TTT i 
; i BERN T AREA\.| | | rl 
Example (for 1974 This RESERVE clause eliminates the buffer area established for the specific file and is 
and 1985 users) used to set up a single storage area for print records when spooling is the method used 
for achieving the printing of data. 
D. Summary 
The following is a summary of entries used for skipping to a new page and for 
determining when the end of a page is reached: 
1. To advance to a new page, code: 
AFTER ADVANCING PAGE 
2. To determine when you have reached the end of a page: 
(a) Determine the number of lines to be printed per page. 
(b) Use a line counter for counting the number of lines printed. 
(c) Compare the line counter to the number of lines desired per page 
and advance to a new page when an equal condition occurs. 
(d) Remember to reset the line counter when an equal condition occurs. 
On some systems, SPECIAL-NAMES may be used for indicating a mne- 
monic-name equated to the top of a new form. This is not always available if 
output is spooled onto disk. 
If spooling is used, the following RESERVE clause may be required: 
[ate 12 16 20 28 28 Ey] 36 40 a 78 Bz Bo 00 a) Bl 
NVITRONMENT! DILVITSIION. [ fi 
. | 
CT Con 
UT a 
FILE-CONTROLI. 
| DELEICIT) fi lt el-Inamle|_AISISITIGN! TO) [print eldlelvii cle 
pi 
| RESERVE! 1) AREA 
i] 
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Self-Evaluating Quiz —_1. To space the paper a specified number of lines before or after printing is performed, 


use an ________ option of the WRITE statement. 
2. To space the paper two lines and then to print a line, the WRITE statement would 
be coded as 


3. Write a COBOL statement to advance the form two lines before printing the record 
called TOTAL, which is part of the print file. 


What, if anything, is wrong with the following statements (Questions 4 and 5)? 


4. WRITE PRINT-REC AFTER ADVANCING TWO LINES, 
WRITE PRINT-REC AFTER ADVANCING 1 LINE. 
6. To test for the last line of printing on a form, the programmer typically uses a 
defined in WORK ING-STORAGE. 
7. Code a routine to write PRINT-REC from DETAIL-REC and space two lines; perform 
a HDG-RTN if 30 lines have already been printed. 


na 


8. For IBM-compatible systems, the _____ paragraph of the ENVIRONMENT 

DIVISION may be used to equate Co1 to a_______ for skipping to a new page. 

9. The mnemonic-name is used with the ________ option of the WRITE statement. 

10. The 1974 and 1985 standards for skipping to a new page use the phrase AFTER 
ADVANCING ______.. 


11. If the following is a statement in the PROCEDURE DIVISION, code the SPECIAL- 
NAMES paragraph: 


WRITE PRINT-REC FROM HEADING-REC AFTER ADVANCING ONE-PAGE, 
12. The SPECIAL-NAMES paragraph is part of the _______ SECTION and follows 


the ________ paragraphs. 


13. If the following is the SPECIAL-NAMES paragraph of a program, code a statement 
to print HDG on the top of a new page: 


SPECIAL-NAMES, COL IS FORM-START, 
ADVANCING 


WRITE «+. AFTER ADVANCING 2 LINES. 
WRITE TOTAL BEFORE ADVANCING 2 LINES. 


Solutions 


. Use the integer 2, unless TWO has been defined as a data-name with a value of 2. 


Plural L1NES must be used if you are using the 1968 ANS COBOL standard; other- 
wise it is okay. 


6. line counter 


eo ae 


56 co oa 8 72 


eau 
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8. SPECIAL-NAMES; mnemonic-name 

9, ADVANCING 

10. PAGE 

11. SPECIAL-NAMES, CO1 IS ONE-PAGE. 


12, CONFIGURATION 
SOURCE-COMPUTER and OBJECT-COMPUTER 


13. WRITE PRINT-REC FROM HDG AFTER ADVANCING FORM-START. 
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PRES eas! Ill. The Alignment of Data and the Printing of Heading Information 


A. Review 


You will recall that the print area must contain 133 characters when the 
ADVANCING option is used for writing records with 132 print characters per 
line. Regardless of the number of characters per print line, the first position 
of the area is used by the computer for proper spacing of forms and should not 
be accessed by the programmer. Thus, the second position denoted in the area 
is really the first print position. Positions 2. through 133 in the print area will 
be transmitted to the printer when a WRITE command is executed. We would 


set up our print area, then, as follows: 
= 
| 
| 
HH 


EG cr 2 36 30 


REL NX. i 
| 
| 


-PIRCTURE ; 


Nel re 


HAA 


The first position is called FILLER to denote that it will not be accessed in 
the program. When a WRITE instruction is issued, whatever is in FLDA will 
appear in the first print position. This FILLER is a part of the print area that 
is used only for form control. 

Thus, in our example, 132 print positions are available. To produce clear 
and meaningful reports, information is ordinarily spaced on the line allowing 
adequate margins on each side of the paper and evenly distributed fields across 
the line. In addition, headings are usually necessary to provide identifying 
information. Two types of headings generally appear on each page of a report: 


rE 
o 


| 
| 
HH r 


1. Report headings—identify the job, title, date, and specific application. 
2. Column headings or field delineators—identify all fields to be printed 
on subsequent lines. 


Figure 13.2 illustrates the two types of headings. Line 1 of the illustration 
supplies data about the application, and line 2 designates the fields to be 
printed. Both types of headings are neatly spaced across the form. 


Report heading 


Column heading 


Figure 13.2 
Types of headings. 


The headings are needed on each page, since continuous forms are separated 
after they are generated. Each page, then, must have identifying information. 


B. The Printer Spacing Chart 


A Printer Spacing Chart, sometimes called a Print Layout Sheet, is commonly 
used to assist the programmer in the preparation of reports. You have already 
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become familiar with this chart, but Figure 13.3 will serve as a reminder. This 
chart is used for designing the report so that (1) headings appear properly 
paced in the middle of the page and (2) data fields are properly aligned under 
column headings and evenly spaced across the page. 


w 


Figure 13.3 
Printer Spacing Chart. 


In our examples, the Printer Spacing Chart is subdivided into 132 print 
positions. The heading or headings are spaced evenly across the page. From 
the numbered positions, the programmer can then determine in which print 
positions he or she should place the literals and which positions should be 
left blank. Figure 13.4 illustrates the Printer Spacing Chart for the report in 
Figure 13.2. Note that, for the first heading line, print positions 1-56 will be 
left blank as will print positions 77-132. The literal ‘MONTHLY TRANS- 
ACTIONS’ will be placed in the area between. On the Printer Spacing Chart, 
x’s indicate where the actual data will be placed. Twenty X’s under the column 
heading or field delineator CUSTOMER NAME denote that the data field contains 
20 characters. The H’s in the lefthand margin designate the lines as headings; 
the D designates the line as a detail or data line. If total lines were included, 
they would be designated with a T. 


ALAA AASSARRAREA | RRBAARE RREEA VBNEBBRBAE RE EEE Bee Ka 
1 ui T [ 
2 a iL T 

EC CHT mt TRA nt 
SO TRRRADEGERRRAREREGTRRREBEOUGERRERRETETETANARERE Hit | | Peete 
One ToT [RAI ON | TT in ft 

ea 6) | | ti REBEROne TT | 

D 2 ! XAH THT TT TTT TT i" AMA TTT T TTT 


Figure 13.4 
Printer Spacing Chart for the 
report in Figure 13.2. 


C. Using WORK ING-STORAGE to Define Print Records 


If both detail and heading lines are required in the report, and they generally 
are, then several record formats must be specified. 

As previously noted, we establish our print file FD with a 133-position 
PRINT-REC entry: 


FD PRINT-FILE 
LABEL RECORDS ARE OMITTED. 
O1 PRINT-REC PIC K(133),. 


The actual heading records and the detail line records are generally de- 
scribed in the WORKING-STORAGE SECTION of the program. The main reason 
for describing these records in the WORK ING-STORAGE SECTION is that values 
may be assigned to the various fields. Only WORKING-STORAGE entries may 
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contain VALUE clauses for this purpose. This eliminates the necessity of mov- 
ing spaces and specific literals to each field in the PROCEDURE DIVISION. 
Since VALUE clauses may not be assigned to fields in the FILE SECTION, we 
store data in WORK ING-STORAGE records, move the records to the FILE SEC~- 
TION, and then WRITE the records. We may use a WRITE «++ FROM statement 
to combine the move and write functions. 

Thus the FILE SECTION print area is defined as 133 positions, Data from 
the WORK ING-STORAGE SECTION will be moved into this area. Fields need not 
be designated in the FILE SECTION, since an entire print record in WORK ING~ 
STORAGE will be moved to the print area. 

In the PROCEDURE DIVISION, data from WORK ING-STORAGE will be moved 


to PRINTOUT. We may use a MOVE to transmit the data, anda WRITE PRINTOUT 
AFTER ADVANCING 2 LINES statement. Or we may use a WRITE «++ FROM 
statement that combines the MOVE and WRITE statements. 
The two heading records described in Figure 13.4 will be established in the 
WORK ING-STORAGE SECTION as 1 entries: 
a RICE SEICITIIIONT. | |] |] 
5) | FTLIUE PILIC| |X ALUE! SPACIENS. 
5) | (FIDLER PIC] XC5ie)! | NALIUE! |SIPAIC EIS). | | 
OS. | FILLER PIC) XCl2@)| | VALUE ai HLN| ITRIANSIACITITONS|”|. 
05 a Le Tic) Xic56))| | VALUE CEIS). 
E -le\. 
Hos) FILER CT PIL Xt CLE NACUE sae ' TO 
(5 | FILLER TC XCD, LL MALUE! SPACES|.| 
105 FILLER PIC! |XIcH1/3')| ALIVE! |‘ (Cl MEIR) NAME!" 
OS FILLER || Pre C4) VALUES TRANEAC TON: NO? COOL 
ne FIL LER PIC XC@)| | | VALUE! SPACES. 
|| 5) | FIL Te UIPricl XiC4i8)| | VALIUE! | OF| TRANSACTION”). 
Ha CERT UPIC XN ALUE! SPACES. 
@5| | ATIULIER Bric X43) | WALIUE! | DATIE! OF) [TIRAINS|]. 
05 | FILLE PIC) Xc7). || MALE! [SPAICE'S.. L [1 
@3_| FIIUUER TICh IXIC4 VALUE, ||SHTIPIPEID. T/0/"|. 
(G5 | |ALILILER TiC) XC VALIUE SPACIENS. 
O45 | |FTLILIER TIC) |X|C4 ALIUE! |MINVOTICIE! NO”). 
5) | \FILLIER Tic! XC LIUE! SPACES 
I 1 rrr 
Since fields within HEADING-1 and HEADING-~2 will not be accessed in the 
PROCEDURE DIVISION, it is customary to call them all FILLER, even though 
some have nonnumeric literals as VALUE clauses. We will use this convention 


from this point on. 
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Similarly, the DETAIL-LINE with FILLERs between significant fields will 
be defined in WORK ING-STORAGE as follows: 
taal be 36 i) iv cm 72 
|_| 
mane ES. 
ro CaS 
| I 
HT Eg. 
1 
a 
Poco ON 
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T 1 
| | sp ACES! 
| 
HE HEA | 
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Note that the DETAIL-LINE contains edit symbols in the field called AmT- 
OF-TRANS. Input data fields or intermediate work areas will be moved to the 
detail line. 
Using WORKING-STORAGE records to describe lines to be printed, all con- 


stants and blanks may be preassigned with VALUE clauses. We must still, 
however, move these records to the print area before a line is written. Thus 
data is stored in WORKING-STORAGE and then transferred to the print area as 
follows: 


Ev] iy oO a B 7 


1 


r 
= HH rH 


+ 


Dae a 


EEE 


im 


t is unnecessary to clear PRINT-REC each time. The entire 133-position 
area called HEADING-1, which contains appropriate blank areas, is transmitted 
to the PRINT-REC area. Similarly, PRINT-REC need not be cleared before 
HEADING-~2 is moved, because HEADING-2 also contains the necessary blanks. 
LINE-CT, which counts the number of lines printed on a page, must be ini- 
tialized at zero each time through the heading routine. The DETAIL-RTN re- 
quires a full series of moves, since data is to be moved to the various fields 
from the input area. The following is the coding to be used in DETAIL-RTN. 
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Several shortcuts may be used in the WORKING-STORAGE SECTION to en- 
hance the efficiency of the program, HEADING-~1, for example, was previously 
established as follows: 


Example 1 O1 HEADING-1, 
05 FILLER PIC X VALUE SPACES, 
OS FILLER PIC X(S6) VALUE SPACES, 
OS FILLER PIC X(20) VALUE “MONTHLY TRANSACTIONS’, 
OS FILLER PIC X(56) VALUE SPACES, 


Recall that the term FILLER is used to describe all the fields within HEADING-1, 
even the field that contains ‘MONTHLY TRANSACTIONS’. The term FILLER is used 
because only the record level entry, HEAD ING-1, is accessed in the PROCEDURE DIVISION, 
This example could be coded more efficiently as: 


; | 
R WE] |SIPIAICIE|SI.| | 

ER UE! |S MONTHLY 
R UIE) |SIPIAICIE'S 


Note that the first two FILLERs have been combined into one. The first position of 
the record is typically used for form control. It is unnecessary, therefore, to set up two 
separate FILLER areas initially, one containing a single blank and one containing 56 
blanks. One initial FILLER will serve just as well. 


Example 2 The above could be coded even more efficiently as follows: 


O1 HEADING-1 
oS FILLER PIC K(S57) WALUE SPACES, 
OS FILLER PIC K(76) VALUE ‘MONTHLY TRANSACTIONS’, 


Recall that nonnumeric literals are left-justified in a field, Thus the literal ‘MONTHLY 
TRANSACTIONS’ will print in positions 57-76. The rest of the second FILLER area will 
be replaced with blanks. The VALUE clause has the same effect as moving ‘MONTHLY 
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TRANSACTIONS’ to LITERAL1, where the second FILLER would be called LITERAL1. 
Using the JUSTIFIED RIGHT clause, we may also code HEADING-1 as follows: 


BELT HERDENEFELT PT TP in 
| 05 LLLER Pre Kener ALUE | | [ | ! 
i ONITHLY] TRA SACTIONE! Hn Het [| 

CECHBBCLPELLERT "| PEETDRE K¢BeD) VALUE] BBACES: LH 


JUSTIFIED RIGHT alters the placement of data in nonnumeric fields. With 
the use of the JUSTIFIED RIGHT clause, ‘MONTHLY TRANSACTIONS’ will be 
placed in positions 58-77, instead of 1-20. Positions 58-77 in HEADING-1 
correspond to print positions 57—76. The rest of the record will be blank. 

HEADING-2 may also be coded more efficiently. We may use two literals, 
each containing the proper number of spaces, to specify the entire record. 
Figure 13.5 illustrates the necessary entries. Note that the rules for contin- 
uation of literals, as indicated in Chapter 8, apply. Note also that 120 positions 
is the maximum size of a nonnumeric literal. Thus two fields, at least, must 
be designated for the entire print area, which is 133 positions long. 


20 24 2 32 36 cn cy cr R 56 0, 64 7 
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Figure 13.5 
Coding of column headings. 


The continuation of a nonnumeric literal from one line to the next is il- 
lustrated in the coding of the first FILLER. Recall that the rules are as follows: 


1. Begin the value or literal with a quote mark and continue to column 72. 

2. Continue the literal on the next line with a hyphen in column 7 and a 
quote mark anywhere in Area B. 

3. End the literal with a quote mark on the second line. 


IV. Printing Page Numbers 


Often, when printing headings, a page number is required as part of the first 
heading record. Consider the following record described in WORK ING-STOR- 


AGE: 
DULLER RELL 
HTT oe Tere ER a tthe BER ES. CT 
| TLLER A ALARW BEBE. 
[I : PAE i IE 6 PAGE bE a | 
“CCTBBLPILER. 17 -T EET RCAB). VALUE, BPACES FELCH 
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A WORKING-STORAGE numeric item, called CTi+ PICTURE 9999+ VALUE 
0001, is established for actually counting pages. The following HEADING-RT 
will print a page number on each page: 


36 40 aa @ [7 36 60 cy co 


H 


HEADING-RTN would be performed initially, right after the files are opened 
in the main module. To execute the HEADING-RTN again after the end of a 
page has been reached, we would code DETAIL-RTN as follows: 


DETAIL-RTNe 


’ 
+ 


RITE PRINT-REC FROM DETAIL-~REC 
AFTER ADVANCING 2 LINES, 

ADD 1 TO LINE-CT. 

IF LINE-CT = 25 

PERFORM HEADING-RTN+ 

READ ses 


Each time through the HEADING-RTN, CT1, which is a page counter, is 
incremented by 1. Before each record is printed, CT1 is moved to the report- 
item PAGE-CT. Thus, a correct page number will appear on each form with 
suppression of leading zeros. Note that the following is not correct. 


Invalid: ADD 1 TO PAGE-CT. 


PAGE-CT is a report-item containing editing symbols that cause zero suppres- 
sion. Only numeric items may be used in arithmetic operations. PAGE-CT, as 
a report-item, is not a numeric field and cannot be part of an ADD operation. 
Hence, a separate field referred to in this case as CT1 must be established in 
WORK ING-STORAGE as a numeric field. It is incremented to reflect the actual 
page number. To suppress leading zeros in a page number, we move CT1 to 
the report-item PAGE-CT in the heading. 


ees) V. Printing the Date of the Run 


One way to print the date of the run is to read in as input the actual date, in 
the form desired. Then this date will be moved to a heading. 

This method for obtaining the date is, however, inefficient because it re- 
quires (1) additional input commands for reading the date and (2) additional 
set-up by a computer operator to enter the date in the correct format. 

Since the computer itself stores the date of the run, this date may be ac- 
cessed from the system if desired. We will consider two basic methods for 
retrieving the date stored by the system: (1) the 1974 and 1985 ANS COBOL 
standards, and (2) the IBM enhancement to the standards. 
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A. The 1974 and 1985 ANS COBOL Versions for 
Printing the Date of the Run 


The computer stores the date of the run in a field that can be accessed with 
a COBOL reserved word called DATE. DATE stores the run date as a six-digit 
field consisting of the following fields in the order specified: 

DATE 

Two-digit year (e.g., 86 for 1986) 

Two-digit month (e.g., 02 for February) 

Two-digit day 
Suppose, for example, that 860223 is stored in DATE. 86 is equal to the year, 


02 to the month, and 23 is the day. Thus, 860223 represents February 23, 1986. 
Suppose we establish a WORK ING-STORAGE entry as follows: 


O01 WS-DATE PIC 9(6), 
To obtain the date of run in WS-DATE, we code: 


ACCEPT WS-DATE FROM DATE, 


With this ACCEPT statement there is no need to enter a run date as input. The 
ACCEPT statement will move the date as yymmdd into the field called 
WS-DATE. (yy = the two-digit year; mm = a month number for 01-12; dd = 
the day of the month.) 

The format for obtaining the date in a program, then, is as follows: 


The data-name must be a six-position unsigned numeric elementary item. 

After the ACCEPT statement is executed, the data-name will contain the 
run date as yymmdd (year, month, day), But this date format is not very user- 
friendly. Typically, we would want to print this in a more readable form. 

To better represent the date of the run, we will need to access the three 
components of year, month, and day separately. The data-name specified with 
the ACCEPT must be elementary, which means that it cannot be subdivided. 
We must therefore first move WS-DATE to a group item: 


O1 WS-DATE PIC 9(G). 
O1 WS-DATE-X, 
OS YEAR PIC 99. 
OS MONTH PIC 99, 
05 DAY-X PIC 99, 


Printing the date as month/day/year could be accomplished with the fol- 
lowing coding: 
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Suppose DATE contained 860223. The heading would print with a date of 
run as 02/23/86. 
Note that it would not be valid to code the following: 


ACCEPT WS-DATE-X FROM DATE, 


On many systems, the data-name following the word ACCEPT must be an 
elementary numeric item with integer value. WS-DATE-X is a group item. 


B. The Use of the REDEF INES for Printing the Date of the Run 


We could, however, redefine WS-DATE so that the same six positions serve as 
both an elementary numeric item and a group item: 


O1 WS-DATE PIC 9(6),. 

O1 WS-DATE-~X REDEFINES WS-DATE. 
OS YEAR PIC 99, 
03 MONTH PIC 99, 
OS DAY-X PIC 99, 


The REDEFINES clause allows you to reformat the same storage area. Using 
the REDEFINES, only one six-position area is established. It is accessed as an 
elementary item for the ACCEPT and accessed as a group item with the MOVE. 
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Thus, only one six-position area is defined. It is, however, specified in two 
different ways, as an elementary numeric item called WS-DATE and as a group 
item called WS-DATE-Xx. 

Without a REDEFINES clause, we specified two separate six-position areas. 
To obtain the required data in WS-DATE-x, a MOVE WS-DATE TO WS-DATE-X 
was required. With a REDEFINES clause, the MOVE is not coded because both 
WS-DATE and WS-DATE-X define the same area. 


C. Accessing the Day of the Week 


Using the 1985 ANS COBOL standard, we can also obtain a numeric repre- 
sentation for the day of the week, where 1 represents Monday, 2 represents 
Tuesday, and so on. To obtain a digit of 1 to 7, we code: 


a ACCEPT data-name FROM DAY-OF-WEEK. 


D. The IBM Enhancement for Printing the Date of the Run 


The preceding method for retrieving a date enables us to use the date of the 
run without the need to enter it as input. But it requires some cumbersome 
coding to convert a yymmdd date format to a mm/dd/yy format. 

IBM and IBM-compatible computers use a special reserved word called CUR- 
RENT-DATE, which is an eight-position alphanumeric field with an m/d/y for- 
mat that already includes the date in the correct format with the slashes for 
readability. This format simplifies the coding considerably. Note that a MOVE 
can be used in place of the ACCEPT. 


O1 HEADING-REC. 


5 DATE-OF-RUN: 


ae we 


PROCEDURE DIVISION. 


MOVE CURRENT-DATE TO DATE-OF-RUN, 


In addition to IBM, many other computer manufacturers offer this eight- 
character enhancement or option for the date of the run. Check your com- 
puter’s specifications manual to see if you may use CURRENT-DATE or some 
other field as above. Since the use of CURRENT-DATE is much simpler than 
the use of DATE, we recommend that you use it if it is available to you. 


Ree Pe VI. Printing Quotation Marks 


As noted, nonnumeric literals are enclosed in quotation marks or apostrophes, 
depending on your system. Thus, the quotation mark (or apostrophe) itself 
cannot actually be part of a nonnumeric literal. 

To print a quotation mark, then, we would use the COBOL figurative con- 
stant QUOTE. Suppose we wish to print a heading such as: 


ITEM DESCRIPTION: ‘SPECIAL’ 
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This heading, which is to include quotation marks, is defined as: 


Oo. 


HEADING-~1, 

05 FILLER PIC X(20) VALUE SPACES, 

OS FILLER PIC ¥(18) 
VALUE ‘ITEM DESCRIPTION: ° 

05 FILLER PIC X VALUE QUOTE, 

05 FILLER PEC XO7) VALUE ‘SPECIAL’, 

05 FILLER PIC x VALUE QUOTE, 

05 FILLER PIC X(86) VALUE SPACES, 


4. Use a Printer Spacing Chart for assigning print positions. 


6. 


. When output is spooled onto disk first, it may be necessary to use the 


CHAPTER SUMMARY 

. The record length for a print record must be defined as one more than the 
number of characters per line. For example, 133 characters is specified for 
printers with 132 print positions per line. The first position should have a 
blank and should not be accessed in the program. 

. The AFTER or BEFORE ADVANCING option should be used with each WRITE 
command to indicate the spacing of the form. AFTER ADVANCING 1, 2, or 3 
lines, for example, will cause zero, one, or two blank lines, respectively, to 
appear before the next record is written. The BEFORE or AFTER ADVANCING 
option can cause the paper to space up to 99 lines, 

. Records defining heading and detail lines should be established in WORK ING- 
STORAGE to allow the use of VALUE clauses. These records must then be 
moved to the print area, and a WRITE issued, A WRITE «+. FROM 
instruction may be used in place of a MOVE and WRITE. 


. After each record is printed, a test for the end of a form should be performed 

so that the printing of headings on each page is ensured. 

The appropriate editing symbols should be specified in the PICTURE clauses 

of report-items within the detail record. 

. To skip to a new page, AFTER ADVANCING PAGE may be used for 1974 and 
1985 ANS COBOL users. For IBM-compatible users, the SPECIAL -NAMES 
paragraph of the CONFIGURATION SECTION of the ENVIRONMENT DIVISION 
may be used to equate CO1 to a mnemonic-name, 

. If single-spacing is sufficient, use the WRITE statement without the 
ADVANCING option, If single-spacing is not sufficient, the ADVANCING option 
must be used with every WRITE statement for the print file. 


RESERVE 1 AREA or RESERVE NO ALTERNATE AREAS clause with the 
SELECT statement. 


CHAPTER SELF-EVALUATING QUIZ 


i. 


2. 


The two types of headings that may appear on a printed report are _______ and 


(T or F) The leftmost character in a print record is used by the system for spacing 
the form. 

To facilitate PROCEDURE DIVISION coding, print records are often specified in 
the|______. BEC TN: 

Records are described in the WORKING-STORAGE SECTION because this section 
allows the use of ______ clauses. 

If print records are not described with VALUE clauses in the WORKING-STORAGE 
SECTION, then numerous ________ operations would be required in the 
DIVISION. 
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. Assume print records are described in the WORKING-STORAGE SECTION with 


appropriate YALUE clauses. Give a sample record description entry in the FILE 
SECTION for the print file. 


. Indicate how you might obtain underlining of headings by using the ADVANCING 


option. 
The _______ is a tool used for aligning data to be printed. 


. To print a heading on a new page, we might code the following: WRITE PRINT- 


REC FROM HDG AFTER ADVANCING A 
To obtain the date stored by the system, we may code ACCEPT DATE-IN FROM 


10. 
11. In Question 10, DATE-IN is typically defined in the _______ SECTION as an 
field. 
12. We typically use a ________ to test for the end of a page. 
13. Nonnumeric literals may be continued from one line to the next by coding a 
in column 7 of the (1st, 2nd) line of the literal. 
14. On many systems, spooling output data onto a disk requires a ________ clause 
along with the SELECT statement. 
15. To override the normal rules of placing data in alphanumeric fields from left to 
right, we use the ________ clause along with the PICTURE specification. 
Page 
1. report headings; column headings or field delineators 307 
2. 300 
3. WORK ING-STORAGE 308 
4. VALUE 308 
5. MOVE, PROCEDURE 309 
6. OL PRINT-REC PICTURE X(133). (No field descriptions are necessary.] 308 
7. The following may be used as an example: 300 
MOVE ‘MONTHLY SALES REPORT’ TO HDG1, 
WRITE PRINT-REC FROM HDG1 AFTER 2. 
MOVE / ' TO HDGL. 
WRITE PRINT-REC FROM HDG1 BEFORE 2, 
8. Printer Spacing Chart 307 
9, PAGE (or mnemonic-name or 0 LINES—PAGE is the 1974 and 1985 302 
standard entry) 
10. DATE 314 
11. WORKING-STORAGE; elementary numeric 314 
12. line counter 303 
13. - (hyphen); 2nd 312 
14. RESERVE 305 
15. JUSTIFIED RIGHT 312 
PRACTICE PROGRAM 


Consider the following problem definition: 
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Systems Flowchart 


SALES-TAPE PRINT-FILE 
25-position records 

standard labels 

10 records/block 


SALES-TAPE Record Layout 


PRINT-FILE Printer Spacing Chart 
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Sample Input Data 


PAUL NEWMAN 12600 
PAUL NEWMAN 13008 
PAUL NEWMAN 10000 
PAUL NEWMAN 05000 
PAUL NEWMAN 82500 
DIANA ROSS G1000 
DIANA ROSS 92000 
DIANA ROSS 03008 
DIANA ROSS G4008 
DIANA ROSS 65000 
ROBERT REDFORD 19000 
ROBERT REDFORD 20009 
ROBERT REDFORD 39000 
ROBERT REDFORD ADB00 
ROBERT REDFORD 50900 


Sample Output 
TOTAL OF GROUPS OF FIVE RECORDS PAGE NO. 


PAUL NEWMAN $***425,98 11/21/88 
DIANA ROSS $***159.069 11/21/88 


ROBERT REDFORD $*1,580.08 11/21/88 
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Figure 13.6 
Solution to the Practice 
Program. 
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Write a program incorporating the following: 


1. Printing of headings on each page. 

2, Printing of page numbers on each page. 

3. Double-spacing between all detail lines. 

4. Storing of output records in WORK ING-STORAGE. 
5. Printing the date of the run. 


The program is to print the total of the amount fields of every group of five tape records. 


Note: The name is the same for each group of five records. The number of tape records is a 
multiple of five. 


Figure 13.6 gives the solution. 


* 
IDENTIFICATION DIVISION, 
PROGRAM-ID. SAMPLE13. 
* 
ENVIRONMENT DIVISION, 
CONFIGURATION SECTION. 
SOURCE-COMPUTER, IBM-370, 
OBJECT-COMPUTER. IBM-370, 
INPUT-QUTPUT SECTION, 
FILE-CONTROL,. 
SELECT SALES-TAPE ASSIGN TO UT-S-SYSO04, 
SELECT PRINT-FILE ASSIGN TO UR-S-SYSOUT 
RESERVE 1 AREA. 

* 
DATA DIVISION. 
FILE SECTION. 
FD SALES-TAPE 

BLOCK CONTAINS 10 RECORDS 
LABEL RECORDS ARE STANDARD. 
O1 TAPE-REC. 
05S NAME PIC X(20), 
0S AMOUNT PIc g99Va9, 
FD PRINT-FILE 
LABEL RECORDS ARE OMITTED, 
Ol PRINT-REC PIC X(133), 
WORKING-STORAGE SECTION, 
Ol WORK-AREAS, 


03 EOF PIC 9 VALUE ZEROS, 
0S TOTAL-AMOUNT PIC 9(5)¥99 VALUE ZEROS. 
oS CTR PIC 999 WALUE ZEROS. 
0S PAGE-NO PIc 999 VALUE 1, 
OS LINE-CT PIC 99 VALUE ZEROS. 
O1 WS-DATE PIC 9(6), 
O1 WS-DATE-X REDEFINES WS-DATE. 
05 YR-DATE PIc 99, 
os O-DATE PIC 99, 
05 DAY-DATE PIc 99. 
O1 HEADING-1, 
O35 FILLER PIC X(1G) VALUE SPACES, 
oS HDG-A PIC X(35) 
VALUE ‘TOTAL OF GROUPS OF FIVE RECORDS’, 
oS HDG-B PIC X(9) WALUE ‘PAGE NO.’. 
OS  PAGE-CT PIC 2229, 
05 FILLER PIC X(G9) VALUE SPACES, 
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O1 DETAIL-LINE, 


o5 FILLER PIC X(10) VALUE SPACES. 
o5 NAME PIC X(20), 

oS FILLER PIC X¢(10) VALUE SPACES, 
0S OTAL PIC $¥% p¥##*, 99, 

05 FILLER PIC X(Z) VALUE SPACES. 


05 DATE-OUT. 


Oo  MO-OUT PIC 9, 
© FILLER Felis VALUE ‘/'. 
10 ~DAY-OUT PIC 99, 
10 FILLER PIC x VALUE ‘/%4 
o YR-QUT PIC 9a, 
05 FILLER PIC X(63) VALUE SPACES, 


* 
PROCEDURE DIVISION, 
MAIN-MODULE + 

OPEN INPUT SALES-TAPE 

QUTPUT PRINT-FILE, 

ACCEPT WS-DATE FROM DATE. 
MOVE MO-DATE TO MO-QUT, 
MOVE DAY-DATE TO DAY-OUT. 
MOVE YR-DATE TO YR-QUT. 
PERFORM HDG-RTN+ 
READ SALES-TAPE AT END MOVE 1 TO EOF. 
PERFORM CALC-RTN UNTIL EOF = 1. 
CLOSE SALES-~TAPE 
PRINT=FILE+ 

STOP RUN, 
CALC-RTN- 

ADD 1 TO CTRe 

ADD AMOUNT TO TOTAL ~AMOUNT + 
IF CTR = 5 

PERFORM PRINT-RTN+ 
READ SALES-TAPE AT END MOVE 1 TO EOF. 
PRINT-RTN, 
QVE NAME OF TAPE-REC TO NAME OF DETAIL-LINE. 
OVE TOTAL-AMOUNT TO TOTAL+ 
OVE ZEROS TO CTR. 
WOVE ZEROS TO TOTAL-~AMOUNT, 
RITE PRINT-REC FROM DETAIL-LINE 

AFTER ADVANCING 2 LINES. 

ADD 1 TO LINE-CT. 
IF LINE-CT > 25 
PERFORM HDG-RTN+ 


HDG-RTN+ 
QVE PAGE-NO TO PAGE-CT. 

ADD 1 TO PAGE~NO. 

RITE PRINT-REC FROM HEADING-1 AFTER ADVANCING PAGE, 
OVE 0 TO LINE-CT, 


KEY TERMS 


ACCEPT JUSTIFIED RIGHT 
AFTER ADVANCING Line counter 

BEFORE ADVANCING PAGE 

Buffer Printer Spacing Chart 
Continuous forms REDEFINES 
CURRENT-DATE RESERVE 


DATE Spooling 
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REVIEW QUESTIONS 


I. True-False Questions 
1. (T or F) The word LINES is optional as part of the ADVANCING option. 
2. (T or F) The option 0 LINES is used to suppress spacing. 


3. (T or F) AFTER ADVANCING PAGE is used for skipping to a new page when the end 


of the current page has been reached. 
T or F) The rightmost position of a print record is used for form control. 


5. (T or F) Once the ADVANCING option is used for a WRITE statement in a program, 


it should always be used for the print file. 


6. (T or F) Print records are best described in WORK ING-STORAGE and then moved to 


the output area. 


7. (T or F) The SPECIAL-NAMES paragraph of the CONFIGURATION SECTION is a re- 


quired part of any COBOL program that will test for form overflow. 


8. (T or F) The WRITE ...+ FROM statement can always be replaced with a MOVE and 


a simple WRITE. 


9. |T or F) ACCEPT DATE-IN FROM DATE requires DATE-IN to be a group item in 


WORK ING-STORAGE. 


10. (T or F) The RESERVE clause in the SELECT statement can be used to eliminate 


the buffer area. 


II. General Questions 


1. With a single WRITE statement, a maximum of (no.] spacing may be achieved. 
2. Indicate why 133 positions must be denoted for a print area with 132 characters 


per line, What is the purpose of the extra position? 


3. Write the entry used at your installation to skip to a new page, Write a routine for 


testing for the end of a page. 


4. Write a routine for printing the date of the run as part of the report heading. 


What, if anything is wrong with the following entries (Questions 5-7)? 


5. WRITE PRINT-LINE FROM DATA-LINE AFTER ADVANCING 110 LINES, 
6. ACCEPT DATE. 

7. WRITE PRINT-REC FROM HEADING AFTER ADVANCING PAGE 

8. What is spooling? 

9, When is a RESERVE clause required in the ENVIRONMENT DIVISION? 

10. Describe how CURRENT-DATE differs from DATE. 


DEBUGGING EXERCISES 


Consider the following heading defined in WORK ING-STORAGE: 
O1 HEADING-REC, 


oS FILLER PIC X(50) 
VALUE ‘STUDENT TUITION REPORT’. 
OS FILLER PIC X(83) 


VALUE SPACES, 
1. Suppose we code: 


WRITE PRINT-REC FROM HEADING-REC 
BEFORE PAGE. 


Indicate the type of spacing that will be performed. 
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2. Suppose we code: 


05 SPACING PIC 99 VALUE 10+ 


‘ 
+ 


WRITE PRINT-REC FROM HEADING~REC 
AFTER PAGE. 
WRITE PRINT-REC FROM DETAIL-REC 
AFTER ADVANCING SPACING, 
Indicate the type of spacing that will be performed. 


3. Indicate exactly how HEADING-REC prints. Does it have the type of alignment we 
want? If not, make the necessary corrections. 


4. Consider the following: 
WORKING-STORAGE SECTION, 


Ol HOLD-DATE PIC X(B). 
0S YR PIC 99. 
os MO PIC 99. 
05 DA PIC 99, 


’ 
‘ 


ACCEPT HOLD-DATE FROM DATE, 


Two syntax errors will result. What are they and how would they be corrected? 


5. Consider the following routine: 


CALC-RTN¢ 
MOVE 1 TO PAGE-CT. 


’ 


WRITE PRINT-REC FROM DETAIL~REC, 

ADD 1 TO PAGE-CT, 

IF PAGE-CT = 30 PERFORM HEADING-RTN+ 
READ SALES-FILE AT END MOVE 1 TO EOF. 


HEADING-RTN never gets executed because there is a logic error in the program 
excerpt. Find the error and correct it. 


6. Suppose CALC-RTN is corrected for the above and HEADING-RTN is coded as follows: 


HEADING-RTN. 
WRITE PRINT-REC FROM HEADING2 
AFTER PAGE. 
WRITE PRINT-REC FROM HEADING2 
AFTER ADVANCING 2 LINES, 


HEADING1 and HEADING2 are appropriately defined in WORKING-STORAGE. This 
HEADING-RTN has a logic error in it that causes it to be executed only once from 
CALC-RTN. Find the error and correct it. 


7. Suppose you code the following: 
ADD 1 TO LINE-COUNTER. 


and you get an undecipherable error message such as ‘L.INE-COUNTER INCORRECTLY 
USED’. Determine what caused the syntax error. 
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PROGRAMMING ASSIGNMENTS 


Code Programming Assignments 1, 2, and 4 of Chapter 12, but include the following: 
(a) Print headings on each detail page. 
(b) Print page number on each page as part of the report heading. 
(c) Print date of the run on each page as part of the report heading. 
(d) Include an end-of-page routine to skip to the top of a new page and print appro- 

priate heading information after 25 data lines have printed. 

(e) Double-space between all detail lines. 

4. Tape records with the following format will be entered as input. The tape has 
standard labels and a blocking factor of 20. 


1-2 TERR-NO 

3-20 EMPLOYEE-NAME 
21-25 ANNUAL-SALARY (in $) 
26-80 Unused 


Write a program to accomplish the following: 

(a) Print each detail record (with appropriate headings). 

(b) At the end of each group of records for each TERR-NO, print the total salaries 
paid for that TERR-NO. (Assume records have been entered in TERR-NO se- 
quence.) 

(c) Print a final total of all salaries at the end of the run. 

(d) Include an end-of-page control routine to print appropriate heading information, 
page number, and date on the top of each page after 25 data lines have printed. 

5. Write a program that illustrates the effect of interest rates on monthly mortgage 
payments, total interest, and the total amount paid. Print the output in tabular 
form. The input is as follows: 


1-6 Mortgage amount 
7-8 Number of years 


Print the monthly payment for interest rates that range from 10 to 17% (10%, 11%, 
... 17%). Prepare your own Printer Spacing Chart such that a single page is produced 
for each input record. The page should be identified as a Mortgage Interest Chart 
with Mortgage Amount and Years of Mortgage as part of the heading. Then print 
Monthly Payment, Total Interest, and Total Amount Paid for each interest rate 
from 10 to 17%. All output is to be edited. 
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py EctivES 


To familiarize you with: ; 

1. The coding requirements for printing group reports. 

2. The techniques used for efficient printing of group reports and control totals. 
3. Control break processing and control break printing. 


EE 1. An introduction to Control Break Processing 


A. Detail and Group Printing: An Overview 


Thus far, we have focused on the printing of individual lines for each input 
record read. When every input record is printed, we call this detail printing. 

Sometimes, however, we wish to print total or summary lines for a group 
of reco ‘ds either in place of or in addition to detail lines. This is called group 
printin ;. For a comparison of detail and group printing, see Figure 14.1. 

This chapter will consider group printing in depth. We will focus on a 
specific type of group printing that uses control fields to indicate when totals 
are to print. Such a procedure is called control break processing. 


Figure 14.1 
‘ A SALES REPORT 
A comparison of detail and : 
group printing. BY ITEM NUMBER 08/04/86 
PAGE 1 
ITEM ITEM SALES 
NO. DESCRIPTION AMOUNT 
Detail 
report 587 WIDGETS 142,38 
587 WIDGETS 382.27 
763 WAXED PAPER 872,53 
763 WAXED PAPER 821,33 
763 WAXED PAPER 168.38 
923 BALLOONS 858.21 
923 BALLOONS 923.73 
923 BALLOONS 15.82 
923 BALLOONS 77493 
SUMMARY SALES REPORT 
BY ITEM NUMBER 
08/04/86 
PAGE 1 
Group 
TEpOU ITEM ITEM SALES 
NO. DESCRIPTION AMOUNT 
387 WIDGETS S24,.65% 
7683 WAXED PAPER 1862.24% 
923 BALLOONS 1875,.69% 


Figure 14.2 
Problem definition for sample 
control break procedure. 
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B. An Example of a Control Break Procedure 


Consider the problem definition in Figure 14.2. A disk file consists of sales 
records, each with three input fields: a salesperson’s department number, the 
salesperson’s number, and the amount of sales accrued by that salesperson for 
the week. There may be numerous salesperson records for DEPT O1, 02, and 
so on. That is, each department will contain records for several different sales- 
persons. The output is a report that prints not only each salesperson’s amount 
of sales but also each department’s total sales amount. 


Systems Flowchart 


a 


PRINT-OUT 
SALES 
80-position records 
standard labels 
10 records/block 
SALES Record Layout 

| | | 

| | | 

| DEPT SLSNO [ANT GSEs | 

| 1 | 

sf 23 78 13 14 80 

PRINT-OUT Printer Spacing Chart 
‘}els]}stals{atofole(s|Stelele)9|slofos/2(3|s| el) 9/00 11213] 4{o(a| fol olols|alsla}slo{ [a/o(ol(2(3|a[s (a [alola 
= TT 
TH {1 t 
Wert Con mn Hl 
. nam 
| a iE f 
ia ITAL F X 

‘BX, XOKL AXE H 

The input file is in sequence by DEPT, so all records pertaining to sales- 

people in DEPT 01 are followed by all records pertaining to salespeople in DEP 
02, and so on. 
For this problem, detail printing is required; that is, each input record is to 


be printed, as in previous examples. In addition to this detail printing, how- 
ever, summary lines indicating department totals must also print. Thus, group 
printing is required, where a total line is written for each department. 

In summary, after all records for DEPT 01 have been read and printed, a 
total for DEPT 01 will print. Similarly, after all records for DEPT 02 have been 
read and printed, a total for DEPT 02 will print, and so on. This type of process- 
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Figure 14.3 
Sample control break program. 
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ing requires all DEPT O1 records to be entered and processed first, followed by 
the next DEPT’s records, and so on. 

The file of input records must be in sequence by department number. 
Department totals will print correctly, one for each department, only if the 
input records are properly sorted into DEPT sequence. All salesperson records 
for DEPT O1 must be read first, followed by salesperson records for DEPT 02, 
and so on; otherwise it would not be possible simply to accumulate a total 
and print it at the end of a group. (Later on, we will see that files can always 
be sorted into the desired sequence.) 

Detail lines print, in the usual way, after each input record is read and 
processed. In addition to detail printing, after each input record is read, the 
amount of sales is then added to a DEPT total. This department total will be 
printed whenever a change in DEPT occurs. Since a change in DEPT triggers 
the printing of a department total, we call DEPT the control field. 

Thus, all salesperson records for DEPT O1 will be read and printed, and a 
DEPT total will be accumulated. This processing continues until a salesperson 
record is read that contains a DEPT different from the previous one. When this 
record with a different DEPT is read, then the totals for the previous depart- 
ment will be printed. Thus, the first input record pertaining to a salesperson 
in DEPT 02 will cause a total for DEPT O1 to print. Since totals are printed 
after a change occurs in DEPT, the control field, we call this type of group 
processing control break processing. 

This section provides you with some definitions related to control break 
processing and with an actual illustration of the output produced by a control 
break procedure. In the next section, we focus on one way this procedure is 
actually coded. You may wish to examine Figure 14.3 for the program that 
will perform the above control break procedure. This program will be dis- 
cussed in detail in the next section. 


IDENTIFICATION DIVISION, 
PROGRAM-ID. GROUPI, 
* 
ENVIRONMENT DIVISION. 
INPUT-QUTPUT SECTION, 
FILE-CONTROL. 
SELECT SALES ASSIGN TO SYSIN, 
SELECT PRINT-OUT ASSIGN TO PRINTER, 
¥ 
DATA DIVISION, 
FILE SECTION, 
FD SALES 
LABEL RECORDS ARE OMITTED, 
O1 SALES-REC, 


0S DEPT PIC 99. 

oS SLSNO PIC 9(5),. 

OS AMT-OF-SALES PIC 9(4)V99, 
03S FILLER PIC X(67), 


FD PRINT-OUT 
LABEL RECORDS ARE OMITTED. 

O1 PRINT-REC P KCL33)+ 

WORKING-STORAGE SECTION, 

O1 WORK-AREAS,. 


OS EOF PIC 9 VALUE QO, 

05 HOLD-DEPT PIC 99 VALUE ZERO. 

05 DEPT-TOTAL PIc 9(5)99 VALUE ZERO, 

OS LINE-CT PPG ae VALUE ZERO. 
OL HEADING-1. 

05 FILLER PIC x(30) VALUE SPACES, 

05 FILLER PIC X(21) 


VALUE ‘MONTHLY STATUS REPORT’, 
OS FILLER PIc x(9) VALUE SPACES, 


CONTROL BREAK PROCESSING 329 


Figure 14.3 0S FILLER PIC K(S) VALUE ‘PAGE’. 
Continued 03 PAGE-NoO PIC 99 VALUE Ol, 
OS FILLER PIC X(4G) VALUE SPACES, 
Ol HEADING-2, 
OS -FILLER PIC X(15) 
YVALUE ‘DEPT’ JUSTIFIED RIGHT. 
OF FILLER PIO K¢C17) 
VALUE ‘SALESPERSON NO’ JUSTIFIED RIGHT. 
OS FILLER PEO KC20) 
VALUE ‘AMT OF SALES? JUSTIFIED RIGHT. 
OS FILLER PIC X(80) VALUE SPACES, 
Ol DETAIL-LINE, 
0S FILLER PIC X(12) VALUE SPACES. 
0S DEPT PIC 99, 
0S FILLER PIC X(9) VALUE SPACES, 
oS SLsno PIC 9(5), 
OS FILLER PIC K(14) VALUE SPACES, 
OS AMT-OF-SALES PIC #Z+222,22, 
OS FILLER PIC K(82) VALUE SPACES, 
Ol GROUP-REC, 
OS FILLER PIC X(61) VALUE SPACES, 
OS FILLER PIC X(18) 
VALUE ‘TOTAL FOR DEPT IS ’, 
OS DEPT-TOTAL-OUT PIC #Z2+222.22, 
OS FILLER PIC X(4d) VALUE SPACES, 
4 a 
PROCEDURE DIVISION, 
MAIN-MODULE + 
OPEN INPUT SALES 
OUTPUT PRINT-OUT, 
PERFORM HEADING-RTN+ 
READ SALES AT END MOWE 1 TO EOF, 
MOVE DEPT OF SALES-REC TO HOLD-DEPT. 
PERFORM DETAIL-~RTN UNTIL EOF = 1, 


MOVE DEPT-TOTAL TO DEPT-TOTAL-OUT, 

WRITE PRINT-REC FROM GROUP-~REC AFTER ADVANCING 2 LINES, 

CLOSE SALES» PRINT-OUT, 

STOP RUN, 
DETAIL-RTN, 

IF DEPT OF SALES-REC IS NOT EQUAL TO HOLD~DEPT 

PERFORM CONTROL -BREAK. 

MOVE DEPT OF SALES-REC TO DEPT OF DETAIL-LINE, 

MOVE SLSNQ OF SALES-REC TO SLSNO OF DETAIL-LINE. 

MOVE AMT-OF-~SALES OF SALES-~REC TO AMT-OF-SALES OF 
DETAIL~LINE. 
RITE PRINT-REC FROM DETAIL-LINE AFTER ADVANCING 2 LINES, 
DD AMT-OF-SALES OF SALES-REC TO DEPT-TOTAL, 
DD 1 TO LINE~CT, 
F LINE-CT IS GREATER THAN 25 
PERFORM HEADING-RTN. 
READ SALES AT END MOVE 1 TO EOF, 
CONTROL-BREAK . 
OVE DEPT-TOTAL TO DEPT-TOTAL-OUT. 
RITE PRINT-REC FROM GROUP-~REC AFTER ADVANCING 2 LINES, 
DD 1 TO LINE-~CT, 
OVE ZEROS TO DEPT-TOTAL. 
OVE DEPT OF SALES-REC TO HOLD-DEPT, 
HEADING-RTNs 
RITE PRINT-REC FROM HEADING-1 AFTER ADVANCING PAGE, 
RITE PRINT-REC FROM HEADING-2 AFTER ADVANCING ® LINES. 
ADD 1 TO PAGE-NO. 
OVE © TO LINE-CT. 


o 


rt=z 


> 


QB 
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Il. Program Requirements for Control Break Processing 


A. A Single-Level Control Break 


For each input record read for the problem outlined above, we will always 
perform two functions: 


1. Print a detail line. 
2, Add the ANT-OF-SALES field to a department total called DEPT-TOTAL. 


In addition, a total line, “TOTAL FOR DEPT 18 $XX»XXX.+Xx’”” will print 
only after the first record with the next DEPT is read. When this total prints, 
we set the DEPT-TOTAL to zero and process the new input record as above. 

This is called a single-level control break because we have only one field, 
DEPT, that triggers the printing of totals. To perform single-level control break 
processing, the following steps must be coded after the standard initializing 
routines. These initializing procedures include the opening of files, printing 
of headings, and clearing of fields. The following would then be coded: 


1. Initialize a hold area with the contents of the first record’s control 
field. This is performed in the main module after the initial read. 


The first input record is read and its control field, in this case DEPT, must 
be moved to a WORKING-STORAGE area in order to save it for comparison 
purposes. We will call the WORKING-STORAGE area HOLD-DEPT. Thus, our 
main module would include: 


MAIN-MODULE. 
OPEN INPUT SALES 
OUTPUT PRINT-OUT. 
PERFORM HEADING-RTN¢ 
READ SALES AT END MOVE 1 TO EOF, 
MOVE DEPT OF SALES-REC TO HOLD-DEPT. 
PERFORM DETAIL-RTN UNTIL EOF = 1, 


2. Process input records at DETAIL-RTN. Processing depends on 
whether or not the control field read in matches the one stored at 
HOLD-DEPT. 


We begin at DETAIL-RTN by comparing DEPT to HOLD-DEPT. The first time 
through, HOLD-DEPT and DEPT will be equal because we just moved DEPT to 
HOLD-DEPT in the main module. For all subsequent passes through 
DETAIL-RTN, HOLD-DEPT will contain the DEPT of the previous record read. 
When HOLD-DEPT and DEPT are equal, there is no control break and we per- 
form three steps: 


1. Move input data to a detail line and print: 


OVE DEPT OF SALES-REC TO DEPT OF DETAIL-LINE. 
OVE SLSNO OF SALES-REC TO SLSNO OF DETAIL-LINE. 
OVE AMT-OF-SALES OF SALES-REC TO AMT-OF-SALES 
OF DETAIL-LINE. 
RITE PRINT-REC FROM DETAIL-LINE 
AFTER ADVANCING 2 LINES. 


2. Accumulate a DEPT-TOTAL: 

ADD AMT-OF-SALES OF SALES-REC TO DEPT-TOTAL, 
3. Read the next record: 

READ SALES AT END MOVE i TO EOF, 
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We continue processing input records in this way until the DEPT on an 
input record differs from the previous DEPT stored at HOLD-DEPT. When they 
are different, a control break has occurred. Thus, each time DEFT is not equal 
to HOLD-DEPT we will perform a CONTROL-B8REAK procedure, where we print 
the accumulated department totals. 

CONTROL -BREAK prints a total for the previous department. After the totals 
are printed and reinitialized at zero, we process the current record by printing 
a detail line and adding AMT-OF-SALES to DEPT-TOTAL, just like the above. 

Processing at DETAIL -RTN, then, appears as follows: 


DETAIL-RTN, 
IF DEPT OF SALES-REC IS NOT EQUAL TO HOLD-DEPT 
PERFORM CONTROL-BREAK . 
MOVE DEPT OF SALES-REC TO DEPT OF DETAIL-LINE. 
MOVE SLSNO OF SALES-REC TO SLSNO OF DETAIL-LINE,. 
MOVE AMT-OF-SALES OF SALES-REC TO AMT-OF-SALES 
OF DETAIL-LINE,. 
WRITE PRINT-REC FROM DETAIL-LINE 
AFTER ADVANCING 2 LINES, 
ADD AMT-OF-SALES OF SALES-REC TO DEPT-TOTAL, 
READ SALES AT END MOVE Te OF, 
If there is a change in DEPT, then CONTROL -BREAK is performed. In any case, 
the current record is printed and the current amount is added to DEPT-TOTAL 
before a new record is read. In Figure 14.3, DETAIL-RTN also checks for page 
overflow with a LINE~CT routine. When a field called LINE-CT exceeds 25, 
we print a heading on a new page and reinitialize LINE-CT. 


3. Group processing occurs in the CONTROL-BREAK module after a 
record is read that has a different value in the control field. 


CONTROL -BREAK is performed when an input record’s DEPT or control field 
differs from the one stored at HOLD-DEPT. As we have seen, HOLD-DEPT con- 
tains the previous DEPT. When there is a change in DEPT, we must: 


1. Print a line that includes the control total called DEPT-TOTAL. 

2. Reinitialize DEPT-TOTAL, the control total, so that the next depart- 
ment’s total can be accumulated, beginning at zero. 

3. Move the current DEPT to HOLD-DEPT so that we can compare succeed- 
ing input records to this new DEPT control field, 

4, Return to DETAIL-RTN and process the current record by printing a 
detail line and adding the amount to the control total. 


The following CONTROL-BREAK routine includes the required processing: 


CONTROL-BREAK. 

QVE DEPT-~TOTAL TO DEPT-TOTAL-OUT, 

RITE PRINT-REC FROM GROUP-REC 
AFTER ADVANCING 2 LINES, 

OVE ZEROS TO DEPT-TOTAL, 

OVE DEPT OF SALES-REC TO HOLD-DEPT. 


Since CONTROL-BREAK is performed from DETAIL-RTN, processing contin- 
ues with the next instruction at DETAIL-RTN. The detail line is then printed 
and the current amount added to the new total, which has been reset to 0. In 
Figure 14.3, 1 is also added to LINE-CT. 


4. Processing of the last department total occurs when EOF = 1. 


We have seen how DETAIL-RTN is executed. When a record is read with 
the same DEPT as the previous one, we print it and add to a DEPT-TOTAL. 
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When a change in DEPT occurs, DEPT and HOLD-DEPT will be different and 
CONTROL-BREAK will be executed. At CONTROL-BREAK, we print a total line, 
reinitialize DEPT-TOTAL at zero, and store the current DEPT at HOLD-DEPT. 
We then return to DETAIL-RTN, where we print the current input record and 
add its amount to a new DEPT-TOTAL. What remains is the processing of the 
very last control total when an end-of-file condition is reached. 

Control break printing of totals occurs when a record with a new control 
field is read. The total for the last group of records, then, will have been 
accumulated when EOF is equal to 1, but a control total will not have been 
printed since there is no subsequent record to trigger a change. Consider the 
following: 


02 < O1 totals are printed when 02 is read 


03 <— 02 totals are printed when 03 is read 


7EOF <— At this point, 03 totals must be ‘forced’ 
after EOF is set equal to 1 


There must be a procedure to print the 03 totals. In the main module, after 
DETAIL-RTN has been executed and EOF is equal to 1, we must force a printing 
of this final total: 


PROCEDURE DIVISION: 
MAIN-MODULE. 
OPEN INPUT SALES 
OUTPUT PRINT-OUT. 
PERFORM HEADING-RTN-+ 
READ SALES AT END MOVE 1 TO EOFs 
MOVE DEPT OF SALES-REC TO HOLD-DEPT,. 
PERFORM DETAIL-RTN UNTIL EOF = 1, 
HRE EERE KERR ERE ERE RRR KE EERE RE EE EEE 
MOVE DEPT-TOTAL TO DEPT-TOTAL-OUT,. 
WRITE PRINT-REC FROM GROUP-REC 
AFTER ADVANCING 2 LINES, 
HREHHEKE EKER EKER EERE EERE KERR ERE EEE EERE EER 
CLOSE SALES» PRINT-OUT. 
STOP RUN. 


The full program for processing a single-level control break with detail 
printing appears in Figure 14.3. Added to the above processing is a LINE-CT 
routine so that we will not print more than 26 detail lines on any given page. 
That is, after 26 detail lines have printed, a HEADING-RTN is performed. Twenty- 
six detail lines print per page because (1) LINE-CT is initialized at zero and 
(2) a test is made to determine if LINE-CT is greater than 25 after a line is 
printed and 1 is added to LINE-CT. 

The flowchart for this procedure is illustrated in Figure 14.4 and the 
pseudocode in Figure 14.5. 


B. Refinements to Improve the Quality of a Control Break Report 


The refinements discussed here are illustrated in Figure 14.6, a single-level 
control break program that incorporates numerous control break techniques. 
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DETAIL-RTN 


CONTROL-BREAK HEADING-RTN 


Figure 14.4 
Flowchart for sample control 
break program. 
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Figure 14.5 
Pseudocode for sample control 


break program. 
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Oren the files 
Write the heading 
Read an input record 
Move department to a hold area 
PERFORM UNTIL no more data 
IF department is not eaual to hold area 
Move fields to output area 
Write a group line 
Initialize all fields 
ENDIF 
Move detail data to output 
Write a line 
Add 1 to line counter 
IF line counter } 25 
Write headings 
Initialize line counter 
ENDIF 
Read an input record 
ENDPERFORM 
Close the files 
Stop run 


1, Printing a Final Total 
Sometimes, control break processing also requires the printing of a final total. 
This would be printed after the last control group is written. 

The final total (FIN-TOT) may be accumulated by adding AMT-OF-SALES 
for each record. This may be accomplished by changing the ADD instruction 
in the DETAIL-RTN of Figure 14.3 to: 


ADD AMT-OF-SALES OF SALES-REC TO DEPT-TOTAL;» FIN-TOT. 


Or, instead, the FIN-TOT may be accumulated by adding each DEPT-TOTAL 
to it in the CONTROL-BREAK module. This means that FIN-TOT would be 
accumulated, not for each detail record, but only when a control break has 
occurred. This would be accomplished by coding the following before we clear 
DEPT-TOTAL 


CONTROL-BREAK 


’ 
’ 


ADD DEPT-TOTAL TO FIN-TOT. 
MOVE ZEROS TO DEPT-TOTAL. 

Note that the second procedure is far more efficient than the first. Suppose 
we have 10,000 input records but only 20 department control breaks. If we 
added ANT-OF-SALES to FIN-TOT for each input record, we would be per- 
forming 10,000 additions. If, instead, we added the DEPT-TOTAL to FIN-TOT 
when each control break occurred, we would be performing the addition only 
90 times. Thus, to add DEPT-TOTAL to FIN-TOT would result in far fewer 
additions than adding ANT-OF-SALES for each SALES-REC to FIN-TOT. 


2. Starting a New Page After Each Control Break 

It is likely that a control break report will be distributed to many users. Thus, 
the listing pertaining to DEPT 01 in the above illustration might be transmitted 
to that department; the listing for DEPT 02 might go to that department, and 
so on. In this situation, it is useful to have each department’s data begin on 
a new page. Typically, then, a change in control fields should also include a 
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statement to PERFORM the heading routine so that the paper is advanced to a 
new page. We would add to the CONTROL-BREAK module a PERFORM statement 
to print headings on a new page each time the module is executed. 

In this instance, it would be redundant to print DEPT on each detail line. 
Rather, it would be better to print it once at the beginning of each page: 


MONTHLY STATUS REPORT PAGE xXx  xXxX/xK/ xx 

DEPT-XXx SALESPERSON NO. AMT OF SALES 
12345 $7+326.45 
18724 $9,264.55 
TOTAL FOR DEPT IS #16,+591,00 


3. Sequence-Checking: To Ensure That Input Data 

was Entered in the Correct Sequence 

For control break processing to proceed accurately, records must be in se- 
quence by the control field. Consider the following sequence error: 


DEPT 


02 <— Sequence error—DEPT 02, out of sequence 
01 
O01 


Because it is always possible for input errors to occur, it would be useful 
to check to make certain, after each control break, that the current DEPT is 
greater than or equal to the previous one in HOLD-DEPT. If a current DEPT is 
less than HOLD-DEPT, then a sequence error has occurred and an error message 
should print. We may also wish to terminate processing in such a case. The 
systems analyst typically provides the programmer with the actions to be 
taken in case of specified error conditions. 


A, Executing the CONTROL. -BREAK Module From 

the Main Module After EQF = 1 

Consider the MOVE DEPT-TOTAL TO DEPT-TOTAL-OUT and the corresponding 
WRITE statements that appear in the MAIN-MODULE in Figure 14.3. It may have 
occurred to you that this MOVE and WRITE could be replaced with: 


PERFORM CONTROL-BREAK » 


Since we wish to ‘force’ a control break at the end of the job, we may execute 
the sequence of steps at the control break routine rather than duplicate the 
instructions in the main module. 

Consider, however, the following statement coded on the last line of the 
control-break procedure, CONTROL-BREAK. 


MOVE DEPT OF SALES-REC TO HOLD-DEPT. 


Once the last record has been read and processed and an AT END condition 
has been reached, the input area is no longer available for processing. In fact, 
after an AT END condition has been reached, any effort to access a field in the 
input area may cause the program to abort. Thus, to execute CONTROL -BREAK 
from the main module after EOF has been set equal to 1 may cause an error 
when the statement MOVE DEPT OF SALES-REC TO HOLD-DEPT is encountered. 
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To avoid this situation, we would code the last sentence of the CONTROL- 
BREAK module as: 


IF EOF NOT = i 
MOVE DEPT OF SALES-REC TO HOLD-DEPT 
PERFORM HEADING-RTN- 


That is, the new DEPT is stored and a heading is printed on a new page only 
if an end-of-job condition has not been reached. Thus, our main module may 
be coded with the following: 


PERFORM DETAIL-RTN UNTIL EOF = 1. 
PERFORM CONTROL-BREAK + 


The full single-level control break program that includes all of these re- 
finements is illustrated in Figure 14.6. 


C. THE READ ..+ INTO Statement 


Another way to avoid an error caused by accessing an input area after an AT 
END condition has been reached is to use a READ... INTO statement. The input 
records then would be read into a WORKING-STORAGE area, which is always 
available for processing, even after an end-of-file condition has been reached. 


FD SALES 
LABEL RECORDS ARE OMITTED. 
ot IN-REC PIC X(80), 


’ 


WORKING-STORAGE SECTION. 
O1 SALES-REC,. 


O35 DEPT PIc 99. 

05 SLSNO PIC 9(5),. 

05 AMT-OF-SALES PIc 9(4)Va99, 
05 FILLER PIC X(G7). 


Each READ in our program would be replaced by: 
READ SALES INTO SALES-REC AT END MOVE 1 TO EOF. 


When an AT END condition has occurred, we can still access the fields 
specified in SALES-REC since this is a WORK ING-STORAGE area not under the 
control of an I/O control system. Thus, if we used a READ + ++ INTO command, 
the statement MOVE DEPT OF SALES-REC TO HOLD-DEPT will not cause a 
problem when we run out of data. Since the trailer record, which is an end- 
of-file indicator, will have blanks or some other “padded” character in DEPT, 
the blanks or padded data will actually be moved to HOLD-DEPT at the end of 
the run. But as long as SALES-REC is defined in WORKING-STORAGE rather 
than in the FILE SECTION, we can still execute all instructions at CONTROL- 
BREAK, even when an AT END condition has been reached. 


D. Summary of a Single-Level Control Break Procedure 


SUMMARY OF STEPS INVOLVED IN A 
SINGLE-LEVEL CONTROL BREAK PROBLEM 


1. Read the initial record. 
2. Move the control field to a hold area in WORK ING-STORAGE. 


3. As long as the control field is equal to the hold area, execute the 
detail routine for the input record. This means: 


Figure 14.6 
Control break program with 
refinements. 
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IDENTIFICATION DIVISION. 


PROGRAM-ID. GROUP, 
ENVIRONMENT DIVISION. 
INPUT-OUTPUT SECTION, 
FILE-CONTROL, 
SELECT SALES ASSIGN TO DISKi. 
SELECT PRINT-OUT ASSIGN TO PRINTER. 
DATA DIVISION, 
FILE SECTION, 
FD SALES 
BLOCK CONTAINS 10 RECORDS 
LABEL RECORDS ARE STANDARD, 
O1 SALES-REC, 
OS DEPT PIc ag, 
05 SLSNO PIC 9(5), 
OS AMT-OF-SALES PIc 9(4)vg99, 
OS FICLER PIC X(67), 
FD PRINT-OUT 
LABEL RECORDS ARE OMITTED. 
O1 PRINT-REC PIC X(133), 
WORKING-STORAGE SECTION. 
O1 WORK-AREAS, 
0S EOF PIC 9 VA 
03 HOLD-DEPT PIc 98 VA 
03 DEPT-TOTAL PIC a(5)¥99 VAL 
0S LINE-CT PIc 99 VA 
OS FIN-TOT PIC 9(6)¥99 WA 
O1 HEADING-1, 
OS FILLER PIC (30) VA 
0S FILLER PIC X(21) 
VALUE ‘MONTHLY STATUS 
OS FILLER PIC X(9) VA 
05 FILLER PIC X(S) VA 
OS PAGE-NO PIC 99 YA 
OS FILLER PIC X(46) VA 
O1 HEADING-~2, 
OS FILLER PIC X(15) 
VALUE ‘DEPT-’ JUSTIFIE 
083 DEPT-NO-OUT PIC 99, 
0S FILLER PIC X(17) 
VALUE ‘SALESPERSON NO’ 
0S FILLER PIC X(21) 
VALUE ‘AMT OF SALES’ 
03S FILLER PIC (78) WA 
Ol DETAIL-~LINE. 
0S FILLER PIC X(23) VA 
03 SLSNO PIC 9(5), 
0S FILLER PIC X(14) VA 
O03 AMT-OF-SALES PIC $2+222.22, 
OS FILLER PIC K(82) VA 
O1 GROUP-REC, 
0S FILLER PIC X(61) YA 
oS FILLER PIC X(18) 
VALUE ‘TOTAL FOR DEPT 
O03 DEPT-TOTAL-OUT PIC $22,222.22, 
03S FILLER PIC (44) VA 
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O 

ZERO, 
ZERO, 
ZERO. 
LUE ZERO. 


LUE SPACES, 
REPORT’ s 
LUE SPACES. 
LUE ‘PAGE’, 
LUE Ols 
LUE SPACES. 


D RIGHT, 


JUSTIFIED RIGHT. 


JUSTIFIED RIGHT, 
LUE SPACES, 

LUE SPACES, 
LUE SPACES, 
LUE SPACES. 


SPACES, 


LUE SPACES, 
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Figure 14.6 
Continued 


* 


OL 


OL 
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FINAL-TOT-REC. 


05 FILLER PIC K(40) VALUE SPACES, 
OS FILLER PIC K(25) 

VALUE ‘THE FINAL TOTAL SALES IS ’, 
05 FIN-TOT-OUT PIC $$6% $9,995, 
05 FILLER PIC XX VALUE ‘##’, 
05 FILLER PIC X(GG) YALUE SPACES, 
ERROR-REC. 
oS FILLER PIC X(40) VALUE SPACES. 
o3 FILLER PIC X(39) 

YALUE ‘RECORDS OUT OF SEQUENCE--JOB TERMINATED’, 

0S FILLER PIC X(34) VALUE SPACES. 


PROCEDURE DIVISION. 


CONTROL-BREAK, 


MAIN-MODULE. 


OPEN INPUT SALES 

OUTPUT PRINT-OUT. 

READ SALES AT END MOVE 1 TO EOF. 
PERFORM HEADING-RTN+ 

MOVE DEPT OF SALES-REC TO HOLD-DEPT, 
PERFORM DETAIL-RTN UNTIL EOF = le 
PERFORM CONTROL-BREAK. 

MOVE FIN-TOT TO FIN-TOT-OUT. 

WRITE PRINT-REC FROM FINAL-TOT-REC AFTER ADVANCING 2 
CLOSE SALES» PRINT-OUT,. 

STOP RUN, 


DETAIL-RTN+ 


IF DEPT OF SALES-REC IS NOT EQUAL TO HOLD-DEPT 
PERFORM CONTROL-BREAK+ 
MOVE SLSNO OF SALES-REC TO SLSNO OF DETAIL-LINE. 
MOVE AMT-OF-SALES OF SALES-REC TO AMT-OF-SALES OF 
DETAIL-LINE. 


LINES, 


WRITE PRINT-REC FROM DETAIL-LINE AFTER ADVANCING 2 LINES, 


ADD AMT-OF-SALES OF SALES-REC TO DEPT-TOTAL,. 

ADD 1 TO LINE-CT. 

IF LINE-CT IS GREATER THAN 25 
PERFORM HEADING-RTN. 

READ SALES AT END MOVE 1 TO EOF. 


MOVE DEPT-TOTAL TO DEPT-TOTAL-OUT. 


WRITE PRINT-REC FROM GROUP-REC AFTER ADVANCING 2 LINES. 


IF DEPT * HOLD-DEPT 
WRITE PRINT-REC FROM ERROR-REC AFTER ADVANCING 2 
CLOSE SALES» PRINT-OUT 
STOP RUN. 
ADD DEPT-TOTAL TO FIN-TOT. 
MOVE ZEROS TO DEPT-TOTAL. 
IF EOF NOT = i 
MOVE DEPT OF SALES-REC TO HOLD-DEPT 
PERFORM HEADING-RTN- 


HEADING-RTN- 


WRITE PRINT-REC FROM HEADING-1 AFTER ADVANCING PAGE. 
MOVE DEPT OF SALES-REC TO DEPT-NO-OUT. 


LINES 


WRITE PRINT-REC FROM HEADING-2 AFTER ADVANCING 2 LINES, 


ADD 1 TO PAGE-NO. 
MOVE O TO LINE-CT; 
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Add the appropriate amount to a control total, print the detail 
record (if desired), and read the next record. 


. If the control field is not equal to the hold area: 


Print totals 
Initialize total fields to zero 
Reinitialize the hold field with the new control field value (if EOF is 
not equal to 1) 
Process the detail record as in number 3 above 
Print headings on a new page if each control total is to appear on a 
separate page 

. After all records have been processed, perform a control break to 
print the last group of totals. 


Self-Evaluating Quiz 


= 


6. 


Tis 


12, 


. When printing of totals is dependent on the change in a specific input field, we 


call this 


. In the above, the field that is used to determine when printing occurs is called 


the 


. For processing to be correct in the above, records must be in sequence by the 


. In control break processing, we typically MOVE the control field to a 


after reading the first record. 
In control break processing, we typically compare ________ as the first instruc- 
tion in the detail module (labeled in our control programs as DETAIL-RTN). 


If an input control field is equal to the control field stored in a hold area, we 


. If an input control field is not equal to the control field stored in a hold area, we 


. In our main module, after all records have been processed, we must 
. If each control group is to begin on a separate page, we would perform a heading 


routine at the ________ module. 

. If final totals are required, it is most efficient to accumulate the final total in 
the ____ module. 
At the control break module we must print , initialize at zero, 
and move 


When each individual input record results in the printing of an output line, we 
call this 
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Consider the following problem definition in answering Questions 13-15. 


Systems Flowchart 


REPORT-OUT 


INVENTORY 
10-position records 
standard labels 

5 records/block 


INVENTORY Record Layout 


REPORT-OUT Printer Spacing Chart 
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The first three divisions of a COBOL program to meet these requirements appear 
in Figure 14.7. 
13. Code the main module for the above problem definition. 
14. Code the DETAIL-RTN for the above problem definition. 
15. Code the CONTROL-MODULE for the above problem definition. 
Solutions 1. control break processing 
2. control field 
3. control field 
4. a hold or WORKING-STORAGE area 
5. the current input record’s control field to the hold area 
6. add to a control total and print, if detail printing is required 
7. perform a control break procedure 
8. force a control break to print the last total 
9. control break 
10. control break 
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Figure 14.7) * 
First three divisions of pro- 


gram for Questions 13—15. 
* 


* 


IDENTIFICATION DIVISION. 


PROGRAM-ID, 


ENVIRONMENT 

INPUT-OUTPU 

FILE-CONTRO 
SELECT 
SELECT 


DATA DIVISI 
FILE SECTIG 


FIGL4-7, 


DIVISTON, 
T SECTION, 


Le 


ON, 


INVENTORY ASSIGN TO DISK. 
REPORT-OUT ASSIGN TO PRINTER, 
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FD INVENTORY 
LABEL RECORDS ARE STANDARD 
BLOCK CONTAINS 3 RECORDS. 
O1 INV-REC, 
0S AREHOUSE PIC 99, 
03 PART-NO Pic aga. 
05 OTY-ON-HAND PIC 9(5), 
FD REPORT-OUT 
LABEL RECORDS ARE OMITTED, 
OL REPORT-REC PIC K(133). 
WORKING-STORAGE SECTION, 
O1 WS-AREAS, 
0S EOF PIC 9 VALUE ZERO, 
O58 H-HOLD PIC 99 VALUE ZEROS. 
OS PART-TOTAL PIC 9(4) VALUE ZEROS, 
OS LINE-CT PIC 99 WALUE ZEROS, 
05 PAGE-CT PIc 999 VALUE ZEROS, 
Ol HEADING-1, 
03S FILLER PIC X(38) VALUE SPACES, 
OS FILLER PIC X(21) 
VALUE ‘’ACME INVENTORY REPORT’, 
05 FILLER PIC X(11) WALUE SPACES. 
OS FILLER PIC x(S) VALUE ‘PAGE ’, 
OS PAGE-OUT PLC 222 
OS FWLER PIC X(55) VALUE SPACES. 
OL HEADING-2, 
OS FILLER PIC X(10) VALUE SPACES. 
0S FILLER PIC X(12) VALUE ‘WAREHOUSE~/, 
eke) H-QUT PIC 29, 
OS FILLER PIC X(109) VALUE SPACES. 
O1 HEADING-3, 
OS FILLER PIC (20) VALUE SPACES, 
OS FILLER PIC X(20) VALUE ‘PART NO’, 
OS FILLER PIC X(93) 
VALUE ‘QUANTITY ON HAND’, 
Ol DETAIL-~LINE. 
0S FILLER PIC X(22) VALUE SPACES, 
0S PART-OUT PIc 999, 
OS FILLER PIC X(18) VALUE SPACES, 
OS OTY-OUT PIC 2(5),. 
OS FILLER PIC K(85) VALUE SPACES, 
O1 TOTAL-LINE. 
05 FILLER PIC X(30) VALUE SPACES, 
0S FILLER PIC X(d44) 
VALUE ‘TOTAL NUMBER OF ITEMS STORED IN WAREHOUSE - 
OS TOTAL-PARTS-OUT PIC Z2(4), 
OS FILLER PIC X(55) VALUE SPACES, 


‘ 
' 
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11. the control total 
the control total 
the input control field to the hold area 


12. detail printing 
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You will recall that a file must be in sequence by the control field to perform 
control break processing. Suppose we require two fields as control fields. Con- 
sider the following transaction or detail input file: 
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TRANS-FILE 


Each time a salesperson makes a sale, a record is created that indicates the 
department, salesperson number, and the amount of the transaction. If a given 
salesperson has made numerous sales in a given period, there will be more 
than one record for the salesperson. That is, if $LSNO0 1 in DEPT Ol made three 
sales, there would be three input records for that salesperson; if SLSNO 2 in 
DEPT Ol made four sales, there would be four records for that salesperson, etc. 
The file is sorted so that all records for DEPT O1 appear first, followed by 
all records for DEPT 02, etc. In addition, all records for the first SLSNO within 
each DEPT appear first followed by all records for the second SLSNO in that 
DEPT, etc. Thus, the following input is a sample of what one might expect: 


DEPT SLSNO AMT-OF-TRANS 
Ol 004 127,23 
Ol 004 In 100.14 
Ol 006 | sequence 027.45 
Ol 006 within 052.23 
01 006 | DEPT O1 126.27 
01 008 223.28 
02 003 In 111.14 
02 003 | sequence 027.23 
02 003 within 119.26 
02 005 | DEPT 02 600.45 
02 018 427,33 


03 O14 100.26 


Thus, we have two control fields: 


$L§N0—the minor control field 
DEPT—the major control field 


Records are in sequence by SLSNO within DEPT. For a given SLSNO within 
a DEPT, there may be numerous transaction records. 
Suppose we wish to print a department report as follows: 


rc ——__—_—_—_—_, 
MONTHLY SALES REPORT PAGE xx XX/XK/ KK 
DEPT-XxX 
SALES PERSON NUMBER TOTAL AMT OF SALES 


+ ’ 
’ ’ 


’ ’ 


TOTAL FOR DEPT ~ $KXsXxK« Xd 
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Figure 14.8 has the Printer Spacing Chart with the precise print positions. 

We accumulate the total amount of sales for each salesperson before print- 
ing a line. Thus, if SLSNO 1 in DEPT O1 has three sales on three input records, 
we would print one line after all three records have been read and totaled. 

No detail printing is required here; rather, the program requires group print- 
ing of salesperson totals and department totals. The printing of a SLSNO total 
line is performed after all records for a given SLSNO have been processed. 
Moreover, printing of a DEPT total and headings for the next DEPT are printed 
when a DEPT break has occurred. 

In our main module, after opening the files, accepting a date, and reading 
the first record, we would perform a heading routine. Since the second heading 
line includes a literal ‘DEPT’ with the actual DEPT number, we print headings 
after the initial read. We could not, as in Figure 14.3, print a heading before 
the READ, since we need the first record’s DEPT to print as part of the heading. 

For this program we would use a double-level control break procedure. We 
need two hold areas for comparison purposes, one for DEPT and one for SLSNO. 


MAIN-MODULE, 
OPEN INPUT TRANS-FILE 
OUTPUT PRINT-FILE,. 
PERFORM DATE-IN, 
READ TRANS-FILE AT END MOVE 1 TO EOF. 
MOVE SLSNO TO HOLD-SLSNO, 
MOVE DEPT TO HOLD-DEPT, 
PERFORM HEADING-RTN, 
PERFORM DETAIL-RTN UNTIL EOF = 1, 


At DETAIL-RTN we compare the control fields to the hold areas. Given that 
there is no change in either DEPT or SLSNQ, we simply add the AMT-OF-TRANS 
to a SLS-TOTAL and read the next record. Since there is no detail printing 
required in this program, there is no WRITE associated with DETAIL-RTN. 


DETAIL-RTN. 
IF DEPT IS NOT EQUAL TO HOLD-DEPT 
PERFORM DEPT-BREAK,. 
IF SLSNO IS NOT EQUAL TO HOLD-SLSNO 
PERFORM SLS-BREAK+ 
ADD AMT-OF-TRANS TO SLS-TOTAL, 
READ TRANS-~FILE AT END MOVE 1 TO EOF, 


When a change in SLSNO occurs, without a change in DEPT, this would 
force a minor control break called SLS-BREAK. When SLSNO is not equal to 
HOLD-SLSNO, we: 


1. Print the total for the previous SLSNO. 
2. Add to a DEPT-TOTAL. 

3. Initialize the SLS-TOTAL field at zero. 
4. Move SLSNO to HOLD-SLSNO. 


This would be performed as follows: 


SLS-BREAK,. 
MOVE SLS-TOTAL TO SLS-TOTAL-OUT, 
WRITE PR-REC FROM SLS-LINE AFTER 

ADVANCING 2 LINES. 
ADD SLS-TOTAL TO DEPT-TOTAL. 
MOVE © TO SLS-TOTAL,. 
MOVE SLSNO TO HOLD-SLSNO. 


When there is a change in DEPT, this is considered a major control break. 
Note that we test for major control breaks in DETAIL-RTN before we test for 
minor control breaks. 
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Printer Spacing Chart for dou- 


ble-level contro 


break. 


A major control break routine should begin by forcing a minor control 
break. That is, the first thing we wish to do when there is a change in DEPT 
is process the last salesperson’s total for the previous department. The as- 
sumption here is that each salesperson works for only one department. Thus, 
the first instruction at DEPT-BREAK would be to PERFORM SLS-BREAK. This 
not only prints the salesperson’s total, but it adds the last salesperson’s total 
to the department total, initializes SLS-TOTAL at zero, and moves the new 
SLSNO to HOLD-SLSNO. 

After executing SLS-BREAK from DEPT-BREAK, we need to perform the 
following steps: 


1. Print the DEPT-TOTAL. 

2. Reinitialize the DEPT-TOTAL at 0. 
3. Move DEPT-NO to HOLD-DEPT. 

4, Print a new heading on a new page. 


Thus, DEPT-BREAK would be coded as follows: 


DEPT-BREAK » 
PERFORM SLS-BREAK 
MOVE DEPT-~TOTAL TO DEPT-TOTAL-OUT. 
WRITE PR-REC FROM DEPT-REC AFTER 

ADVANCING 2 LINES, 
MOVE © TO DEPT-TOTAL. 
MOVE DEPT TO HOLD-DEPT. 
PERFORM HEADING-RTNs 


After all records have been read and processed, control returns to the main 
module. As with single-level control break processing, we must force a break 
at this point so that we print the last SLSNO total and the last DEPT-NO total. 
We would code PERFORM DEPT-BREAK after PERFORM DETAIL-RTN UNTIL 
EOF = 1 in the main module. Note, however, that after the AT END condition 
has been reached, the input fields are no longer available for processing. Thus, 
performing DEPT-BREAK in the main module after PERFORM DETAIL=RTN UNTIL 
EQF = 1 would cause errors at the following two points: 


DEPT~BREAK + 


' 
’ 


MOVE DEPT TO HOLD-DEPT, 
PERFORM HEADING-RTN, 


SLS-BREAK + 


+ 


MOVE SLSNO TO HOLD-SLSNO, 
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To perform DEPT-BREAK from the main module after all records have been 
processed, we would need to make the following two changes: 


DEPT~BREAK + 


+ 


+ 
IF EOF 1S NOT EQUAL TO 1 
MOVE DEPT TO HOLD-DEPT 
PERFORM HEADING-RTN, 
SLS-BREAK. 


+ 


' 
IF EOF IS NOT EQUAL TO 1 
MOVE SLSNO TO HOLD-SLSNO. 


We could have used a READ +++ INTO to avoid the need for the preceding 
two tests. In the case of a DEPT break, we want to avoid printing a heading 
when an EOF condition has been reached. 

The complete program for this double-level control break procedure appears 
in Figure 14.9, 

Note that we are not restricted to two control fields. Indeed, a program may 
have any number of control fields. The processing is essentially the same. 


= 
CHAPTER SUMMARY 

The following is a PROCEDURE DIVISION shell that indicates the processing to 

be performed for any number of control breaks within a program. 


MAIN-MODULE. 
OPEN INPUT INFILE 
OUTPUT OUTFILE,. 
READ INFILE AT END MOVE 1 TO EOF, 
PERFORM HEADING-RTNy 
MOVE (all control fields to hold areas). 
PERFORM DETAIL-RTN UNTIL EOF IS EQUAL TO 1. 
PERFORM (major control break—which forces all other breaks). 
(PERFORM final total routine—if needed.) 
CLOSE INFILE» OUTFILE. 
STOP RUN, 
DETAIL-RTN+ 
IF (major control field) 18 NOT EQUAL TO (major control field hold) 
PERFORM (major control break). 
IF (intermediate control field) Is NOT EQUAL TO (intermediate hold) 
PERFORM (intermediate control break). 


IF (minor control field) 18 NOT EQUAL TO (minor hold) 
PERFORM (minor control break). 
ADD (to minor total} 
(MOVE and WRITE—if detail printing is required.] 
READ INFILE AT END MOVE 1 TO EOF. 
MAJOR-BREAK + 
PERFORM INTERMEDIATE-BREAK. 
MOVE and WRITE (major total line). 
{aod major total to final total—if final total needed.] 


CONTROL BREAK PROCESSING 


Figure 14.9 * 
Double-level control break 
program. 

* 


* 


IDENTIFICATION DIVISION, 


PROGRAM-ID, 


DOUBLE, 


ENVIRONMENT DIVISION. 
INPUT-OUTPUT SECTION, 


FILE-CONTROL. 
SELECT TRANS-FILE ASSIGN TO DISK. 
SELECT PRINT-FILE ASSIGN TO PRINTER, 
DATA DIVISION, 
FILE SECTION. 
FD TRANS-FILE 
LABEL RECORDS ARE STANDARD, 
O1 DISK-REC, 
OS DEP PIc 9a. 
OS SLSNO PIC 999, 
05  AMT-OF-TRANS PIc g9gvag, 
OS FILLER PIC X(75), 
FD PRINT-FILE 
LABEL RECORDS ARE OMITTED. 
Ol  PR-REC PIC X(133), 
WORKING-STORAGE SECTION, 
Ol STORED-AREAS. 
OS HOLD-DEPT PIC 99. 
0S EOF PIC @ VALUE 
03S SLS-TOTAL PIc 9(4)¥99 VALUE 
03, DEPT-TOTAL PIC 9(5)V99 VALUE 
OS PAGE-CT PIc 99 VALUE 
Ol WS-DATE PIC 9(6), 
Ol WS-DATE-X REDEFINES WS-DATE. 
OS YR PIC 99, 
oS MO PIC 99, 
OS DAY PIC 99, 
Ol HEADING-1, 
05 FILLER PIC K(30) VALUE 
OS FILLER PIC K(20) 
VALUE ‘MONTHLY SALES 
OS FILLER PIC X(7) VALUE 
OS FILLER PIC X(5) YALUE 
0S PAGE-OUT PIC Zo. 
OS FILLER PIC K(3) VALUE 
0S DATE-OUT. 
10 MO-QUT PIc 99, 
10 =FILLER PIC X VALUE 
10 DAY-OUT PIC 99, 
10 FILLER PIC X VALUE 
1600 YR-QUT PIC 99, 
0S FILLER PIC X(38) VALUE 
Ol HEADING-~2, 
0S FILLER PIC X(18) VALUE 
0S FILLER PIC X(5) VALUE 
OS DEPT-OUT PIc 99, 
03 FILLER PIC xX(108) VALUE 
O1 HEADING-3, 
05 FILLER ROG. Xe 13) VALUE 
OS FILLER PIC xX¢18) 


ZERO, 

ZEROS, 
ZEROS. 
ZEROS, 


SPACES, 


REPORT? 
SPACES, 
‘PAGE ‘. 


SPACES, 


SPACES, 


SPACES, 
‘DEPT-/, 


SPACES, 


SPACES. 
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Continued 
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VALUE 
05 FILLER PIC X 
05 FILLER PIC X 
VALUE 
0S FILLER PIC x 
O1 SLS-LINE-. 
05 FILLER PIC X 
05 HOLD-SLSNO PIc 9g 
05 FILLER PIC X 
O35 SLS-TOTAL-OUT PIC $ 
OS FILLER PIC X 
O1 DEPT-REC, 
05 FILLER PIC xX 
o35 FILLER PIC xX 
VALUE 
05 DEPT-TOTAL-OUT PIC 
0S FILLER PIC X 


PROCEDURE DIVISION, 


MAIN-MODULEs 


OPEN PUT TRANS-FILE 
OUTPUT PRINT-FILE. 
PERFORM DATE-IN,. 
READ TRANS-FILE AT END M 
MOVE SLSNO TO HOLD-SLSNO 
MOVE DEPT TO HOLD-DEPT. 
PERFORM HEADING-RTN- 
PERFORM DETAIL-RTN UNTIL 
PERFORM DEPT-BREAK+ 
CLOSE TRANS-FILE 
PRINT-FILE. 
STOP RUN, 
DETAIL-RTN+ 
IF DEPT IS NOT EQUAL TO 
PERFORM DEPT-BREAKs 
IF SLSNO IS NOT EQUAL TO 
PERFORM SLS-BREAK. 
ADD AMT-OF-TRANS TO SLS- 
READ TRANS-FILE AT END M 
SLS-BREAK+ 
MOVE SLS-TOTAL TO SLS-TO 
WRITE PR-REC FROM SLS-LI 
AFTER ADVANCING 2 LI 
ADD SLS-TOTAL TO DEPT-TO 
MOVE © TO SLS-TOTAL. 
IF EQF IS NOT EQUAL TO 1 
MOVE SLSNO TO HOLD-S 
DEPT-BREAK-. 
PERFORM SLS-BREAK-+ 
MOVE DEPT-TOTAL TO DEPT- 
WRITE PR-REC FROM DEPT-R 
AFTER ADVANCING 2 LI 
MOVE © TO DEPT-TOTAL. 
IF EQF IS NOT EQUAL TO 1 
MOVE DEPT TO HOLD-DE 
PERFORM HEADING-RTN; 


‘SALES PERSON NUMBER’, 
(10) VALUE SPACES. 
(18) 

‘TOTAL AMT OF SALES’. 
(63) VALUE SPACES, 
(29) VALUE SPACES, 
99, 

(21) VALUE SPACES. 
Z+22Z2.99. 

C749 VALUE SPACES. 
(48) VALUE SPACES, 
(17) 

‘TOTAL FOR DEPT - '. 
22:222,99, 

(38) VALUE SPACES, 


OVE 1 TO EOF, 


+ 


EOF = i. 


HOLD-DEPT 


HOLD-SLSNO 


TOTAL. 
OVE 1 TO EOF. 


TAL-OUT, 
E 

ES, 
TAL+ 


LSNO. 


TOTAL-OUT, 
Ec 
ES, 


PT 
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Figure 14.9 HEADING-RTN, 
Continued ADD i TO PAGE-CT. 
MOVE PAGE-CT TO PAGE-OUT. 
WRITE PR-REC FROM HEADING-~1 
AFTER ADVANCING PAGE, 
MOVE HOLD-DEPT TO DEPT-OUT. 
WRITE PR-REC FROM HEADING-2 
AFTER ADVANCING 2 LINES, 
WRITE PR-REC FROM HEADING-3 
AFTER ADVANCING 2 LINES, 
DATE-IN, 
ACCEPT WS-DATE FROM DATE. 
MOVE YR TO YR-OUT. 
MOYE MO TO MO-OUT, 
MOVE DAY TO DAY-QUT. 


MOVE © TO (major total). 
IF EOF IS NOT EQUAL TO 1 
MOVE (major control field to major hold) 
PERFORM HEADING-RTN, 
INTERMED IATE~BREAK » 
PERFORM MINOR-BREAK. 
WRITE (intermediate total line). 
ADD (intermediate total to major total). 
MOVE © TO (intermediate total). 
IF EOF IS NOT EQUAL TO 1 
MOVE (intermediate control field to intermediate hold area). 
HEADING-RTNy 


To perform control break processing, all input records must be in sequence 
by minor control fields within intermediate control fields within major control 
fields. If the records are not already in this order, then the file must be sorted 
into the required sequence before it can be processed. 


SC HAPTER SELF-EVALUATING QUIZ 


1. When each input record is printed, we call this _____ printing. 

2. When groups of input records are summarized on one or more lines of printing, 
we call this _______ printing. 

3. (T or F) In general, printing each individual record requires less processing time 
than summarizing the data. 


Consider the following problem definition. Each input record includes a warehouse 
number where the item is stocked and the value of that item’s stock on hand: 


INVENTORY-FILE Record Layout 


Note: The total number of items stored is equal to the sum 
of records or items (not quantities) for each warehouse 
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4. If the output report consists of each warehouse’s total value of inventory, we would 
call:thisia..—__. weport, 
5. Since only total warehouse information prints, warehouse number would be called 
the ___. field. 
6. The procedure used for printing the total inventory value for each warehouse is 
t called a _______ procedure. 


7. To print warehouse totals using the format described in this chapter, input data 
must be in sequence by 


8. Write the main module for this problem. 
9, Assuming that you have called the detail module DETAIL-RTN, code that module. 


10. Assuming that you have called the control break module CONTROL-BREAK, code 
that module. 


11. Suppose you have the following sentence in the control break module: 


CONTROL-BREAK. 


’ 
4 


IF EOF NOT EQUAL TO 1 
MOVE WH-NO TO WH-HOLD, 


Why must we compare EOF to 1 in this sentence? 
12. What technique may be used for avoiding the use of the above comparison? 


13. Suppose a control break procedure also requires printing of a final total inventory 
value. We could code the following in DETAIL-RTN: 


DETAIL-RTN+ 


‘ 
‘ 


ADD TOTAL-YVALUE TO WH-TOT+ FINAL-TOT,. 


Indicate a more efficient way to obtain a final total and explain why it is more 
efficient. 

14. If multiple control breaks are used in a program, the routine for producing the 
major level control break would always begin by performing 
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15. (T or F) When a double-level control break is used, input data must be in sequence 
by major fields within minor fields. 


Page 
Solutions 1. detail 326 
2. group or summary 326 
3, F—In general, printing summary listings is faster than printing detail listings. 326 
4. control break, group, or summary 326 
5. control 328 
6. control break 328 
7. warehouse number 328 
8. MAIN-MODULE. 338 
OPEN INPUT INVENTORY-FILE 
QUTPUT SUMMARY-LISTING. 
PERFORM HEADING-RTN+ 
READ INVENTORY-FILE 
AT END MOVE 1 TO EOF. 
MOVE WH-NO TO WH-HOLD,. 
PERFORM DETAIL-RTN UNTIL EOF = 1. 
PERFORM CONTROL-BREAK. 
CLOSE INVENTORY-FILE» SUMMARY-LISTING, 
STOP RUN, 
9, DETAIL-RTN. 338 


IF WH-NO IS NOT EQUAL TO WH-HOLD 
PERFORM CONTROL-BREAK. 
ADD 1 TO TOTAL-ITEMS, 
ADD TOTAL-~VALUE TO WH-TOTAL. 
READ INVENTORY-FILE AT END MOVE 1 TO EOF. 
10, CONTROL-BREAK. 338 
MOVE WH-HOLD TO WH-OUT. 
MOWE WH-TOTAL TO TOTAL-OUT. 
MOWE TOTAL-ITEMS TO ITEMS-OUT. 
WRITE PRINT-REC FROM WH-REC 
AFTER ADVANCING 2 LINES, 
MOVE O TO WH-TOTAL» TOTAL-~ITEMS,. 
IF EOF IS NOT EQUAL TO 1 
MOVE WH-NO TO WH-HOLD. 
11. At the end of the job, when EOF = 1, the input record and its fields are no 335 
longer available for processing. If we perform CONTROL-BREAK after EOF = 
1, from the main module, the MOVE WH-NO TO WH-HOLD instruction will 
cause an abnormal end to the program. 
12. Use a READ «++ INTO to store incoming records in WORKING-STORAGE. 336 


13. In CONTROL-BREAK, start with the following instruction: 334 


CONTROL~BREAK + 
ADD WH-TOTAL TO FINAL-TOT. 


Suppose there are 10000 input records but only 20 warehouses. Adding T0- 
TAL-VALUE to FINAL-TOT in DETAIL-RTN will perform 10000 additions, but 
adding WH-TOT to FINAL-TOT at CONTROL~BREAK will perform only 20 ad- 
ditions. This could save considerable computer time. 
14, a minor level control break 345 
15. F—Sorting is by minor fields within major fields. 343 
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EE PRACTICE PROGRAM 


Consider the following problem definition: 


Systems Flowchart 


REPORT-FILE 
EMPLOYEE-FILE 
32-position records 
standard labels 
EMPLOYEE-FILE Record Layout 
1 23 45 7 8 27 28 32 


DEPT-IN is a major control field 
TERR-IN is a minor control field 


REPORT-FILE Printer Spacing Chart 


11/1] s/1]0/0]1]1]4]2}2]2]2/2/2]2}2}2/2}3}/3|3] 3] fa] 
1}2}3}4}5]617]a/o]0] 1/2|3/4]5/6|7/a|9/o] 1/213 /4|5|6|7|0|9/0|1\213|4|5\a)7| 
1 
[2 I 
3 
: | 
H 5 
; 1] 
7 
8 | | 
_H_ [9 3 i | 
10 
Hj 11} 
12 
D_ 13 
va TTT 
Dts Ht 
16 I 
7 4 | I r++ 
18 [ [ 
19 | 
20) | | {{{ REBOHA TTT] | 
T [7 Hf TTT $ # f 
22 | 
23 | | | 
[24 | | 
25 TTI | 
26 | | 
a7 H 1s i a SEH HH HE Ht 
Sample Input Data 
@1901991PAUL NEWMAN 31660 
9161005ROBERT REDFORD 42000 
@19829087DIANA ROSS 41600 
9162099TED KENNEDY 15900 
G297023MICKEY MOUSE 27690 
9207@36DONALD DUCK 52600 


G3G9054NANCY STERN 99999 
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Sample Output ALPHA DEPARTMENT STORE PAGE 1 
PAYROLL FOR THE WEEK OF 08/04/86 
DEPARTMENT = 01 


TERRITORY - @1 


EMPLOYEE NUMBER EMPLOYEE NAME ANNUAL SALARY 
O01 PAUL NEWMAN $31,000.09 
905 ROBERT REDFORD $42,000.00 


TOTAL SALARY FOR TERRITORY IS $73,000.00 
ALPHA DEPARTMENT STORE PAGE 2 
PAYROLL FOR THE WEEK OF 08/94/86 
DEPARTMENT ~ @1 


TERRITORY - @2 


EMPLOYEE NUMBER EMPLOYEE NAME ANNUAL SALARY 
007 DIANA ROSS $41,000.00 
009 TED KENNEDY $15,000.00 


TOTAL SALARY FOR TERRITORY IS $56,000.00 


TOTAL SALARY FOR DEPARTMENT IS $129,000.00 
ALPHA DEPARTMENT STORE PAGE 3 
PAYROLL FOR THE WEEK OF @8/04/86 
DEPARTMENT = 02 


TERRITORY - 67 


EMPLOYEE NUMBER EMPLOYEE NAME ANNUAL SALARY 
023 MICKEY MOUSE $27,000.00 
936 DONALD DUCK $52,006.00 


TOTAL SALARY FOR TERRITORY IS $79,060.00 


TOTAL SALARY FOR DEPARTMENT IS $79,000.00 
ALPHA DEPARTMENT STORE. PAGE 4 
PAYROLL FOR THE WEEK OF 08/04/86 
DEPARTMENT ~ 03 
TERRITORY - 99 
EMPLOYEE NUMBER EMPLOYEE NAMB ANNUAL SALARY 


054 NANCY STERN $99,999.89 


TOTAL SALARY FOR TERRITORY IS $99,999.40 


TOTAL SALARY FOR DEPARTMENT IS $99,999.66 


TOTAL OF ALL SALARIES IS $307,999.00 
END OF REPORT 


et 
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Write a program to produce the double-level control break printing described above. 
Figure 14.10 gives the solution. 


Figure 14.10 * 
Solution to the Practice IDENTIFICATION DIVISION. 
Program. PROGRAM-ID,. SAMPLE14, 
KEKE EERE EERE EERE EERE KEKE EEE REE EERE EERE REE EERE REE EERE EEE 


* THIS IS AN EXAMPLE OF A DOUBLE LEVEL CONTROL * 
* BREAK. THE MAJOR CONTROL FIELD IS DEPARTMENT * 
* AND THE MINOR CONTROL FIELD IS TERRITORY * 


HEKEKHK EEE RHEE EK EKER E EERE KERR KERR EERE EERE EEE EERE EEE EEE 
ENVIRONMENT DIVISION, 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. WAX-11,. 
OBJECT-COMPUTER. WAX-11. 
INPUT-QUTPUT SECTION. 
FILE-CONTROL, 

SELECT EMPLOYEE-FILE ASSIGN TO DISK, 
SELECT REPORT-FILE ASSIGN TO PRINTER, 


DATA DIVISION. 
FILE SECTION. 
FD EMPLOYEE-FILE 
LABEL RECORDS ARE STANDARD. 
O1 EMPLOYEE-REC. 


05 DEPT-IN PIc 99, 
05 TERR-IN PIC 99, 
05 EMPLOYEE-NO PIc 999, 
05 EMPLOYEE-NAME PIC X(20),4 
05 ANNUAL-SALARY PIC Q(5). 


FD REPORT-FILE 
LABEL RECORDS ARE OMITTED, 
O1 REPORT-RECORD PIC X(133), 
WORKING-STORAGE SECTION. 
O1 WORK-AREAS-. 


oS EOF PIC 9 YALUE ZEROS, 
05 LINE-CTR Pic 99 YALUE ZEROS. 
05 PAGE-CTR PIc 999 YALUE ZEROS. 
05 DEPT-SALARY PIC 9(7)¥99 VALUE ZEROS. 
05 TERR-SALARY PIC 9(6)¥99 VALUE ZEROS, 
05 DEPT-HOLD PIc 99 VALUE ZEROS, 
05 TERR-HOLD PIc 99 VALUE ZEROS. 
05 TOTAL-SALARY PIC 9(8)¥99 VALUE ZEROS, 
05 T-DATE PIC 3(6)+ 

05 T-DATE-X REDEFINES T-DATE. 

10 YR-IN PIC XX, 

10 MO-IN PIC KX+ 

10 DAY-IN PIC XX, 

O1 HEADING-1. 
05 FILLER PIC X(24) VALUE SPACES, 
05 FILLER PIC (44) 

WALUE ‘ALPHA DEPARTMENT STORE’, 
oS FILLER PIC X(S) VALUE ‘PAGE ‘’+ 
O53  PAGE-OUT PIC 229, 

OS FILLER PIC X(57) VALUE SPACES. 
O1 HEADING-2. 

05 FILLER PIC (30) YALUE SPACES, 

oS FILLER PIC X(24) 


Figure 14.10 
Continued 
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Ol 


OL 
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VALUE “PAYROLL FOR 
05 TODAYS-DATE+ 

10 MO-OUT 

1 PTL 

10 DAY-OUT 

10 FILLER 

10 YEAR-OUT 
HEADING-3, 
0S) FILGer 
OS FILLER 

VALUE ‘EMPLOYEE NUMB 
OS FILLER 
OS FILLER 

VALUE “EMPLOYEE NAME 
035 FILLER 
035 FILLER 

VALUE “ANNUAL SALARY 
0S FILLER 
SALARY-LINE.s 
0S FILLER 
0S EMPLOYEE-NO-OUT 
OS FILLER 
OS EMPLOYEE~NAME-OUT 
OS FILUER 
O35 ANNUAL -~SALARY-OUT 
03S FILLER 
TERRITORY-TOTAL-LINE. 
05 FILLER 
0S FILLER 

VALUE ‘TOTAL SALARY 
OS TERR-GALARY-OUT 
OS FILLER 
DEPARTMENT-TOTAL~LINE. 
OS FILLER 
OS FILLER 

VALUE “TOTAL SALARY 
QOS DEPT-SALARY-OUT 
OS FILLER 
FINAL-TOTAL-LINE, 
OS FILLER 
05S FILLER 

VALUE ‘TOTAL OF ALL 
0S TOT-ANN-SALARY-OUT 
OS FILLER 
DEPT-HEADING. 
OS FILLER 
OS FILLER 

VALUE ‘DEPARTMENT-~‘. 
OS DEPT-NO-OUT 
05 FILLER 
TERR-HEADING, 
0S FILLER 
Of FILLER 

VALUE ‘TERRITORY- ‘, 
o3 TERR-NO-OUT 
05 FILLER 
FINAL-~HEADING. 
OS FILLER 
03 FILLER 


HE WEEK OF’, 
PIC XX. 
PIC X VAL 
PIC XX. 
PIC xX VAL 
PIC XX. 
PIC x(18) VAL 
PIC X(15) 
ER 
PIC x(9) VAL 
PIC K(13) 
PIC K(11) VAL 
PIC X(13) 
PIC X(54) VAL 
PIC X(29) VAL 
PIc 999. 
PIC xX(10) VAL 
PIC K(20)+ 
PIC XX, 
PIC $$%s%$%,99, 
PIC x(59) VAL 
PIC X(29) VAL 
PIC K(33) 
FOR TERRITORY IS 
PIC $$$ +$$%,99, 
PIC X(BO) VAL 
PIC X(38) VAL 
PIC K(30) 
FOR DEPARTMENT I 
PIC $% »$%% + $94.9 
PIC X(48) VAL 
PIC K(41) VAL 
PIC X(25) 
SALARIES 18 ’, 
PIC S$O% + SS$ $44, 
PIC K(53) VAL 
PIC X(15) VAL 
PIC X(13) 
PIc gg. 
PIC X(109) VAL 
PIC X(15) VAL 
PIC X(12) 
PIc ag, 
PIC X(104) VAL 
PIC X(10) VAL 
PIC X(13) 


UE SPACES, 


UE SPACES. 


UE SPACES, 


UE SPACES. 


VE SPACES, 


UE SPACES, 


UE SPACES, 
UE SPACES. 


’ 
‘ 


UE SPACES, 
UE SPACES, 
8's 

9. 

UE SPACES, 
UE SPACES, 
9d. 


UE SPACES, 


UE SPACES. 


UE SPACES, 


UE SPACES, 


UE SPACES, 


UE SPACES, 
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U 
05 oF 


PROCEDURE 
MAIN-MODU 
OPEN 


PERFO 
READ 
MOVE 
MOVE 
PERFO 
PERFO 
PERFO 
PERFO 
CLOSE 


STOP 
CALC-RTN, 
IF D 

P 

IF 

Fi 

MOVE 

OVE 
OVE 
ADD A 
ADD i 
IF Lb 
P 
RITE 


READ 
TERR-BREA 
ADD T 
OVE 
OVE 
RITE 


ADD 1 
iF iE 
M 
M 
DEPT-BREA 
PERFO 
ADD D 
MOVE 
MOVE 
WRITE 


ADD i 

Re ig 

M 

DATE-ACCE 
ACCEP 
MOVE 
MOVE 
MOVE 


ALUE ‘END OF REPORT’, 
TELLER PIC K(110) VALUE 


DIVISION, 
LE. 

INPUT EMPLOYEE-FILE 

OUTPUT REPORT-FILE-. 

RM DATE-ACCEPT-ROUTINE. 
EMPLOYEE-FILE AT END MOVE i TO EOF, 
DEPT-IN TO DEPT-HOLD,. 

TERR-IN TO TERR-HOLD,. 

RM HEADING-ROUTINE: 

RM CALC-RTN UNTIL EOF = 1, 

RM DEPT-BREAKs 

RM EQJ-ROUTINE, 

EMPLOYEE-FILE 

REPORT-FILE, 

RUN, 


EPT-IN IS NOT EQUAL TO DEPT-HOLD 
ERFORM DEPT-BREAK. 
ERR-IN IS NOT EQUAL TO TERR-HOLD 
ERFORM TERR-BREAK + 
EMPLOYEE-NO TO EMPLOYEE-NO-OUT, 
EMPLOYEE-NAME TO EMPLOYEE-NAME-OUT,. 
ANNUAL-SALARY TO ANNUAL-SALARY-OUT. 
NNUAL-SALARY TO TERR-SALARY,. 

TO LINE-CTR, 
INE-CTR > 25 
ERFORM HEADING-ROUTINE. 
REPORT-RECORD FROM SALARY-LINE 
AFTER ADVANCING 2 LINES, 
EMPLOYEE-FILE AT END MOVE 1 TO EOF. 
Ky 
ERR-SALARY TO DEPT-SALARY. 
TERR-SALARY TO TERR-SALARY-QUT. 
ZERO TO TERR-~SALARY. 


AFTER ADVANCING 3 LINES. 
TO LINE-CTR. 
OF IS NOT EQUAL TO 1 

OVE TERR-IN TO TERR-HOLD 
OVE 25 TO LINE-CTR. 
Ky 
RM TERR-BREAK. 
EPT-SALARY TO TOTAL-SALARY. 
DEPT-SALARY TO DEPT-SALARY-OUT,. 
ZERO TO DEPT-SALARY. 


SPACES, 


REPORT-RECORD FROM TERRITORY-TOTAL-LINE 


REPORT-RECORD FROM DEPARTMENT-TOTAL-LINE 


AFTER ADVANCING 3 LINES, 
TO LINE-CTR, 


OF IS NOT EQUAL TO 1 

OVE DEPT-IN TQ DEPT-HOLD. 
PT-ROUTINE, 

T T-DATE, 


MO-IN TO MO-OUT. 
YR-IN TO YEAR-OUT, 
DAY-IN TO DAY-OUT. 


Figure 14.10 
Continued 
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HEADING-ROUTINE, 

ADD 1 TO PAGE-CTR. 

OVE PAGE~CTR TO PAGE-OUT. 

OVE TERR-HOLD TO TERR-NO-QUT. 

QVE DEPT-HOLD TO DEPT-NO-OUT. 

OVE 6 TO LINE-CTR,. 

RITE REPORT-RECORD FROM HEADING-~1 
AFTER ADVANCING PAGE, 

RITE REPORT-RECORD FROM HEADING-2 
AFTER ADVANCING 2 LINES, 

RITE REPORT-RECORD FROM DEPT-HEADING 
AFTER ADVANCING 2 LINES. 

RITE REPORT-RECORD FROM TERR-HEADING 
AFTER ADVANCING 2 LINES, 

RITE REPORT-RECORD FROM HEADING-3 
AFTER ADVANCING 2 LINES, 

EQJ-ROUTINE. 

OVE TOTAL-SALARY TO TOT-ANN-SALARY-OUT, 

RITE REPORT-RECORD FROM FINAL-TOTAL-~LINE 
AFTER ADVANCING LINES, 

RITE REPORT-RECORD FROM FINAL~HEADING 
AFTER ADVANCING 2 LINES. 


es Key TERMS 


Control break processing 
Control field 


Group printing 
READ s+. INTO 


Detail printing 


REVIEW QUESTIONS 


I. 


ly 


2, 


10. 


True-False Questions 

T or F) In order to use a control break procedure, input data must be in sequence 
by the control fields. 

T or F) In the main module of a control break procedure, headings must always 
be printed before reading the first record. 

T or F) Before a detail or calculation routine is executed from the main module 
of a control break procedure, the control fields must be moved to hold areas in 
WORK ING-STORAGE. 

(T or F) After EOF = 1 and control is returned to the main module, the only other 
processing required is to print cumulative final totals, if desired. Then you may 
CLOSE and STOP RUN. 

T or F) In the detail module, you usually begin by testing for a minor-level control 
break, followed by tests for major-level control breaks. 

T or F) The detail module of a control break procedure always has a WRITE state- 
ment. 
(T or F) One method for minimizing errors in a control break procedure is to 
perform a sequence-check routine where you check that the control fields have 
been sorted properly. 

T or F) The control break module must always clear the total fields to zero. 

T or F) The control break module typically includes a WRITE statement. 

T or F) A maximum of two levels of control breaks are permitted in a control 
break procedure. 
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SE DEBUGGING EXERCISES 


Consider the following coding: 


PROCEDURE DIVISION, 
MAIN-MODULE. 
OPEN INPUT TRANS-FILE 
QUTPUT PRINT-FILE. 
READ TRANS-FILE AT END MOVE 1 TO EOF, 
MOVE ACCT-NO TO HOLD-ACCT, 
PERFORM DETAIL-RTN UNTIL EOF = 1. 
CLOSE TRANS-FILE 
PRINT-FILE+ 
STOP RUN. 
DETAIL-RTN, 
PERFORM ADD-IT-UP 
UNTIL ACCT-NO IS NOT EQUAL TO HOLD-ACCT OR EOF 
MOVE HOLD-ACCT TO ACCT-OUT,. 
MOVE TOTAL TO TOTAL-OUT. 
WRITE QUT-REC. 


" 


+ 


ADD-IT-UP. 
ADD AMT TO TOTAL. 
READ TRANS-FILE AT END MOVE 1 TO EOF. 


1. This procedure for performing control break processing is different from the pro- 
cedure used in the chapter. Is the logical sequence of statements correct? 

2. After executing PERFORM DETAIL-RTN UNTIL EOF = 1 in the main module, should 
there be a PERFORM to print the last control group? Explain your answer. 

3. There are two instructions missing from DETAIL-RTN which will result in logic 
errors. Insert them. 

4, Suppose DETAIL-RTN had a READ as its last instruction. How would this affect 
processing? 

5, Suppose we omitted the MOVE statement from the main module. Would this have 
any substantial effect on the processing? Explain your answer. 

PROGRAMMING ASSIGNMENTS 
1. Write a program to print a sales total for each of five days from tape records. The 


problem definition is shown in Figure 14.11. 


Notes 

(a) There is a tape record for each sale made by a salesperson; thus there are an undetermined 
number of input records. 

b} Records are in sequence by day number, which ranges from 1 to 5 (Mon-Fri). 


. Write a program to list employees by territory number. The problem definition is 


shown in Figure 14.12. 


Notes 

a) The input records are in sequence by territory number. 

b) Print the total salaries for each territory. At the end of the report, print the total salaries 
for the entire company. 

(c) There are three territories: 01, 02, and 03. 


Write a program to print a population total for each state. The problem definition 
is shown in Figure 14.13. 


Note 
Records are in sequence by county within state. 
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Figure 14.11 — Systems Flowchart 
Problem definition for Pro- 
gramming Assignment 1. 


SALES-TRANS 
25-position records 
standard labels 

30 records/block 


SALES-REPORT 


SALES-TRANS Record Layout 


OUNT 


SALES-REPORT Printer Spacing Chart 


_ 


7 

sJsfalafafalatii afefelefafayale ofa} a} fl fa} fal 

fs] s]4lsfolsialsol fatal sla lol fololofs|3s15 [3 [olo|a'0 
ACNE (SL ALL 

TS HE TT | } 

aa ‘5 a i 


4, Write a program to tabulate the number of employees by territory within area within 
department, The input tape record has the following format: 
1-2. Territory number 
3-4 Area number 
5-6 Department number 
7-50 Not used 


Labels are standard, blocking factor = 10. 


Notes 

(a) There are three territories; there are three areas within each territory; there are ten de- 
partments within each area. 

(b) Tape records are in sequence by department within area within territory. 

(c) Output is a report with the format shown in Figure 14.14. 


360 A FOCUS ON PRINTING REPORTS 


Figure 14.12 Systems Flowchart 
Problem definition for Pro- 
gramming Assignment 2. 


TERRITORY-REPORT 


PAYROLL-MASTER 
80-position records 
standard labels 

20 records/block 


PAYROLL-MASTER Record Layout 


27 28 29 30 35 36 


TERRITORY-REPORT Printer Spacing Chart 


ia i 
TOTAL SALARIES FOR 


Figure 14.13 Systems Flowchart 
Problem definition for Pro- 
gramming Assignment 3. 


POPULATION-REPORT 


POPULATION-MASTER 
12-position records 
standard labels 

20 records/block 
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Figure 14,14 
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OBJECTIVES 


To familiarize you with: 

1. The types of input errors that may occur. 

2. The methods used to minimize input errors. 
3. The techniques used to validate input data. 


I. Introduction 


By now, you may have encountered situations in which some of your programs 
did not execute properly the first time they were run. That is, the actual results 
obtained did not match the expected results; or, the program terminated with 
an abnormal end or abend condition. Frequently, the cause for such execution 
errors is input data that was incorrectly entered or keyed into the system. 
Two examples of input errors that may cause execution problems are: 


1. A field designated as numeric is entered as blank. 


2. A loop is to be performed one to five times depending on the contents 
of an input field, but the input field has a value greater than five. 


Typically, input data is entered into the computer system manually, using 
some keying device; as a result, it is subject to many human errors. To prevent 
execution errors from occurring, it is imperative that the programmer antic- 
ipate the various types of input errors that may occur. That is, it is necessary 
to include programmed routines that will identify input mistakes and mini- 
mize the risk that invalid output will be produced or that an abend will result. 

Murphy’s Law is one adage with which professional programmers are very 
familiar: if it is possible for something to go wrong, eventually it will go wrong. 
It is not unusual, for example, for programs that have been tested, debugged, 
and run regularly on a scheduled production basis to start producing errors. 
This situation will eventually arise if the programmer has not anticipated 
every conceivable type of input error; after a while, someone will enter input 
in an incorrect format and a program interrupt will occur. 

This chapter will focus on the ways in which input data may be validated 
to minimize the risk of erroneous output or abend conditions. This is referred 
to as data validation. Note that it is impossible to eliminate completely the 
risk of errors; one can only hope to reduce the probability of their occurrence. 
There is no way of determining whether an input amount field containing 
125.00, for example, is actually correct; we can check to see if it is reasonable, 
but we cannot totally validate the contents. 


Il. Use of Control Listings for Manual Validation of Input 


Computer errors commonly result from erroneous input, but they can also 
result from an intentional attempt to sabotage or defraud the company. 

One major method for minimizing the risk of any errors is to print a control 
listing that includes (1) the identifying data in each input record, (2) any errors 
encountered, and (3) totals reflecting amounts accumulated for groups of input 
records processed. Typically, an individual in the user organization is charged 
with the task of checking this control listing to make certain that the process- 
ing was performed correctly. Figure 15.1 illustrates a Printer Spacing Chart 
that describes a sample control listing. Most organizations require a control 
listing when output is to be produced on a magnetic medium such as tape or 
disk, since these media are not visually readable. 
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Figure 15.1 
Printer Spacing Chart that 
describes a sample control 
listing. 


Ill. Verification as a Means of Validating Input 


One way to minimize keying errors is to verify all data entered by using a re- 
keying procedure. A verification procedure checks to see that the data origi- 
nally keyed is the same as the data being keyed the second time. If it is not, 
then the verification operator must find each error and correct it. This veri- 
fication procedure will detect approximately 90% of all data entry errors. Al- 
though this process minimizes problems, 10% of input errors still go unde- 
tected. We will consider additional methods used to minimize errors. 


EE iV. Programming Validity Checks for Input Records 


In this section, we will focus on the programming methods that may be used 
to identify input error conditions. 


A. Sequence Checking 


Frequently, input records are entered in sequence by some key field, where a 
key field is one that uniquely identifies each record within the file. A Social 
Security number may be a key field for a payroll file, a customer number may 
be a key field for an accounts receivable file, and so on. A key field may also 
be a control field if it is used to signal a control break, as in Chapter 14. 

If the input data is intended to be in sequence, the actual sequence should 
be sequence checked. Sometimes records are to be in ascending, or increasing 
sequence where the first record has a key field less than the next record, and 
so on; sometimes records are to be in descending, or decreasing, sequence. 

The following routine may be used for ensuring that an inventory file is in 
ascending PART-NO sequence, assuming that part numbers are numeric and 
that each input record has a unique part number (that is, no two records will 
have the same part number): 


PROCEDURE DIVISION. 
MAIN-MODULE+ 
OPEN INPUT INVENTORY-FILE 
OUTPUT PRINT-FILE-. 
READ INYENTORY-FILE AT END MOVE 1 TO EOF. 
MOVE © TO HOLD-PART-. 


Format for Class Test 
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PERFORM SEQUENCE-CHECK UNTIL EOF = 1. 
CLOSE INVENTORY-FILE 
PRINT-FILEs 
STOP RUN, 
SEQUENCE-~CHECK, 

IF PART-NO > HOLD-PART 

MOVE PART-NO TO HOLD-~PART 
ELSE 

PERFORM ERR-RTN, 
READ INVENTORY-FILE AT END MOVE 1 TO EOF, 


The first time through the SEQUENCE-CHECK routine, HOLD-PART is 0; thus 
the first input PART-NO will undoubtedly be greater than HOLD~PART. When 
PART-NO is greater than HOLD-PART, PART-NO is moved to HOLD-PART and 
the next record is read. In this way, HOLD-PART, which contains the previous 
PART-NO, will be compared to the next PART-NO read in. Each PART-NO should 
be greater than the previous one if the records are in ascending sequence and 
each record has a unique part number. Thus, if the current PART~NO is greater 
than HOLD-PaART, then PART-NO is placed in the hold area and compared to 
the next record’s PART-NO. If any PART-NO is not greater than the previous 
one in HOLD-PART, an error routine is executed. 


B. Testing Fields to Ensure a Correct Format 


1. The Class Test 
To execute properly, a program must first ensure that all fields have the correct 
data format. If a field is designated as numeric with a PIC of 9’s, the program- 
mer must make certain that the field is, in fact, numeric. In the following, 
failure to test AMT for numeric contents could result in erroneous output or 
in an abend condition if the AMT field were entered as blanks or contained 
nonnumeric data. 

Thus, the following program excerpt will minimize the risk of errors caused 
by fields that should contain numeric data but do not: 


IF AMT IS NOT NUMERIC 
PERFORM ERR-RTN 
ELSE 
ADD AMT TO TOTAL. 


It is good programming form, then, to test all fields to be used in arithmetic 
operations to make certain that they have numeric contents before actually 
performing computations. 

You will recall from Chapter 10 that the test for numeric contents is called 
a class test. We will provide a review of this test here. 

We can use the class test to determine if a field has alphabetic value. The 
full format for a class test is as follows: 


Note that the following two statements will produce different results: 


(1) IF @BC IS ALPHABETIC (2) IF ABC IS NUMERIC 
PERFORM RTN1 PERFORM RTN2Z 
ELSE ELSE 
PERFORM RTN2, PERFORM RTNi. 
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If ABC were alphanumeric, that is, it contained letters, digits, and/or symbols, 
RTNz would be performed in (1) and RTN1 would be performed in (2). That is, 
an alphanumeric field is neither numeric nor alphabetic. Thus, to say IF ABC 
IS NOT NUMERIC is not the same as saying IF ABC 18 ALPHABETIC. Alpha- 
numeric data is NOT NUMERIC, but it also may not be ALPHABETIC. 


2. The Sign Test 
If a numeric field is to have either positive or negative values, we may include 
a sign test: 


Using the class and sign tests, the programmer can ensure that data is in 
the correct format. Be sure, however, that the data-name has an § in its PIC 
clause; without the §, the field will always be considered positive. (The only 
exception to this is an unsigned zero, which is neither positive nor negative.) 


C. Checking for Missing Data 


One frequent problem associated with file maintenance results from the fact 
that input sometimes contains fields with missing data. We can perform an 
error routine each time we encounter a field with a missing value: 


IF FIELDA 1S EQUAL TO SPACES 
PERFORM ERR-RTN+ 


D. Tallying and Replacing Specific Characters 
with Other Characters to Minimize Errors 


1. The INSPECT Statement for 1974 and 1985 ANS COBOL Users 
The INSPECT statement may be used in 1974 and 1985 ANS COBOL programs 
for replacing a specific character in a data item with another character. It can 
also be used for counting the number of occurrences of a given character. 

You will recall that blanks in a numeric field will cause an abend condition 
if any arithmetic operation is performed on the field. A common application 
of the INSPECT statement is to replace all blanks with zeros in numeric fields, 
or in an entire record. The use of the INSPECT statement, then, to substitute 
one character for another, is an important part of validity checking routines. 

An INSPECT statement also may be used for error control purposes. We 
may, for example, use the INSPECT to determine the number of erroneous 
characters that have been entered; we may wish to abort the run if the number 
of errors exceeds a predetermined value. 

Although the INSPECT is commonly used for validity checking, it also has 
wider applicability. We will, therefore, consider this statement in its entirety. 
The two main functions of the INSPECT statement are: 


APPLICATIONS OF THE INSPECT STATEMENT 
1. To count the number of occurrences of a given character in a data 
item. 


2. To replace specific occurrences of a given character with another 
character. 


There are two formats of the INSPECT statement. Format 1 may be used to 
perform the first function specified above; that is, to count the number of 
times specific characters occur. 


Format 1 


Examples 
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Example 


Items 
ITEM-1 = bbK67b CTRL = 
ITEM-2 = 017876 CTR2 = 
ITEM-3 = 007800 CTR3 = 


Resulting Contents 
4 


bs) 
2 


This format of the INSPECT statement will always count specified occur- 
rences of data-name-3 or literal-1. Literal-1 must be a single character or a 
figurative constant. ZERO, SPACE, and ‘x’ are all valid entries for literal-1, The 
tallied count is placed in data-name- -2, which is usually established as an item 
in the WORK ING~STORAGE SECTION. It is not automatically initialized at zero 
when the INSPECT is executed; thus the programmer moves 0 to the field 
that will serve as a tallied area prior to each INSPECT command. 


An error routine is performed if any spaces exist in ITEM-A. 
The BEFORE or AFTER INITIAL clause in Format 1 is an optional entry. If 
included, the count will be made according to the condition specified: 


Statement 


INSPECT ITEM-B TALLYING CTRB 
FOR ALL ‘5S’ BEFORE INITIAL 


INSPECT ITEM-C TALLYING CTRC 
FOR ALL ‘3S’ AFTER 


INITIAL SPACE 


Meaning 
Count the number of 
occurrences of the digit 5 
until the first space is 
encountered. This might be 
performed if ITEM-B is a 
code of some type. 
Count the number of 
occurrences of the digit 5 
after the first space. 


SPACE 


368 


A FOCUS ON PRINTING REPORTS 


One of the following three expressions is required when using Format 1: 


CLAUSES FOLLOWING FOR IN THE INSPECT STATEMENT 
data-name-3 
literal-1 


(a) ALL { 


data-name-3 


ie, LERDoe i 


(c) CHARACTERS 


a) If ALL is specified, every occurrence of the specified character in the 
data field will be counted. 


Resulting 
saci ITEM-F Value 
a tz 16 2 2 28 D 36 0 aa @ 52 «% Before After 
(TT INISPECT TEMER| AL Gl ICTRE| FoR 102050 102050 Ss cTRF = 
LH IN TT G CTR L 102050 102050 cTRG =] 
| | 
HH FORE! INI L, 2. HH LH 
(b) If LEADING is specified, all occurrences of the specified character preced- 
ing any other character will be tallied. 
Examples ha 
ITEM-C of CTRE 
3 ita 76 Fr} n wo EH 3 0 a w a Before After 
TNSPECIT) [TEM- TALL NG RH FoR G| ql. 99129 99129 a 
ANPEE ET ITTEM-C) TALLYING _C'TRH| FOR G | 4B12K Bb126 2 
| 
t | | FO INIT r | i | 
(c) If CHARACTERS is specified, all characters within the field will be tallied. 
This option may be used to determine the size of a field. 
Examples — 
ITEM-D of CTR: 
7a Z i 70 2 Fa 7 % Before After 
| q au [TEMED 12300 12300 5 
LI IN T ILTEMED _| 12349 12349 3 
| | AFT. R I 


Format 2 of the INSPECT will replace specified occurrences of a given char- 
acter with another character. It will not tally the occurrences of any character: 
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Format 2 
As in Format 1, literals must be single characters or figurative constants 
consistent with the type of field being inspected. 
ALL, LEADING, and CHARACTERS have the same meaning as previously noted. 
If FIRST is specified in Format 2, then the first occurrence of literal-1 will be 
replaced by literal-2. That is, a single character replacement will occur if lit- 
eral-1 is present in the data field. 
Examples prety 
zt 72 76 0 8 | 4 = x Before After 
| fF N 112111 229299 
| NSP N 112111 222111 
! [ 112111 332111 
i 
LUTINSRECT | ABCXYZ ABCYYZ 


Format 1 


No counting operation is performed with Format 2. When using Format 2, 
rules for inserting characters in data fields apply. We cannot, for example, 
replace the digit | in a numeric data field that has a PICTURE of 9’s with an 
‘A’ because an ‘A’ is not a valid numeric character, 

It should also be noted that a primary use of the INSPECT statement (and 
the EXAMINE statement that follows) is to replace blanks in a numeric field 
with zeros. 


2. The EXAMINE Statement for 1968 ANS COBOL Users 

The EXAMINE statement is very similar to the INSPECT although somewhat 

less suitable for character manipulation. The INSPECT is used in 1974 and 

1985 ANS COBOL programs, and the EXAMINE is used in 1968 ANS COBOL 

programs. You may skip this section if you do not use the 1968 version. 
There are two formats of the EXAMINE verb. The first format is used for 

simply replacing characters in a field. 


The statement is almost self-explanatory, but we will consider some ex- 
amples to help you understand the format. 


370 


Examples 


Format 2 


Examples 


A FOCUS ON PRINTING REPORTS 


CODE-IN CODE-IN 
STATEMENT (before ExanINE) (after EXAMINE) 


EXAMINE CODE-IN wEB7O02 0007002 
REPLACING LEADING 
SPACES BY ZEROS 


EXAMINE CODE-IN O4b1Sbe5 04-15-85 
REPLACING ALL 
SPACES BY '-’ 


EXAMINE CODE-IN bK286 ¥K286 
REPLACING FIRST 
7) BY fe 


EXAMINE CODE-IN 125,26 000,26 
REPLACING UNTIL 
FIRST ‘.’ BY 
ZERO 


‘A second format of the EXAMINE allows both character replacement and 
tallying of the number of occurrences of a character: 


The EXAMINE verb makes use of a reserved word TALLY, which refers to a 
pre-defined field with PIC 9(4); you need not define TALLY in WORKING- 
STORAGE. After the EXAMINE is executed, TALLY will contain the sum that 
has actually been tallied. 

Consider the following: 


— 
FLD-X FLD-X TALLY 
STATEMENT (before EXAMINE) (after EXAMINE) (after EXAMINE) 


EXAMINE FLD-X O3K1SbBS 03-15-85 2 
TALLYING ALL SPACES 
REPLACING BY ‘-'. 


L 


EXAMINE FLD-X 00075 HERTS 3 
TALLYING LEADING ‘0° 
REPLACING BY ‘*! 


EXAMINE FLD-X BEKBABC BEBBABC 4 
TALLYING LEADING 
SPACES 


EXAMINE FLD-X ABC*DEF ABCKDEF 3 
TALLYING UNTIL 

FIRST ‘*’ 

REPLACING BY ‘ ‘+ 
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Self-Evaluating Quiz 


Solutions 


The two major functions of the INSPECT statement ares and__ 
2, (T or F) Literals in an INSPECT statement must be single characters or figurative 
constants. 


= 


In the following statements, fill in the missing columns, where applicable. 


FLDX 
Statement Before After Value of CTR41 

3. INSPECT FLDX TALLYING 10050 

CTRI FOR ALL ZEROS, 
4. INSPECT FLDK REPLACING 10050 

ALL ZEROS BY SPACES, 
5. INSPECT FLOX TALLYING CTRL 00057 

FOR LEADING ZEROS, 
6. INSPECT FLDX TALLYING 00579 


CTRL FOR CHARACTERS 
BEFORE INITIAL ‘9’, 


1. to replace certain characters with other characters; to count the number of occur- 
rences of a given character in a data item 


2. T 

FLDX CTRI 
3. 10050 3 
4. 1bb5b (Not used) 
5. 00057 3 
6. 00579 4 


E. Tests for Reasonableness 


Since it is usually not possible to determine absolutely if input data is correct, 
programs include routines that minimize the risk of errors. Many of these 
routines include tests to determine if data is reasonable. Thus, although we 
may not be able to guarantee the validity of a salary field entered as 35000, 
for example, we can certainly flag a salary field with a value of 998325 as a 
probable error. Tests for reasonableness include the following: 


1. Range Tests 

One way to validate data is to make certain that fields pass a range test, that 
is, the value contained in a specified field should fall within pre-established 
guidelines. If an account number contains codes from 00001 to 85432 and 
from 87001 to 89005 at a given organization, we may include a range test as 
part of our validity check: 


IF (ACCOUNT-NO > 90000 AND « 85433) 
OR (ACCOUNT-NO > 87000 AND ¢ gg006) 
NEXT SENTENCE 
ELSE 
PERFORM ERR-RTN+ 


2. Limit Tests 

Sometimes specific fields are not to exceed a given limit. This is called a limit 
test. A manager may establish, for example, a rule that the quantity on hand 
for any part must not exceed 980 units. The program should make certain that 
this limit is not exceeded: 


IF QTY-ON-HAND > 980 
PERFORM ERR-RTN. 
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Limit tests are important if a PERFORM statement is to be executed a fixed 
number of times depending on the contents of an input field. Suppose we wish 
to perform a PRINT-RTN a variable number of times, depending on the con- 
tents of an input field called NO-OF-COPIES. If NO-OF-COPIES is to vary 
between 0 and 6, for example, we could test it before performing PRINT-RTN. 


MOVE © TO COUNTER, 
IF NO-OF-COPIES < 7 


PERFORM PRINT-RTN UNTIL COUNTER 


ELSE 
PERFORM ERR-RTN+ 


’ 
+ 


PRINT-RTN- 


+ 


ADD 1 TO COUNTER. 


= NO-OF-COPIES 


Note that a limit test and a range test are very similar. A limit test, however, 
has an implied lower limit of zero while a range test could have a lower limit 


of zero or any other value. 


F. Condition-Names: Checking Coded Fields for Valid Contents 


Coded fields are frequently used in input records to minimize data entry oper- 
ations and to keep the input record format shorter and more manageable. Thus, 
a field used to indicate an individual’s marital status is not likely to be keyed 
as “SINGLE,” “MARRIED,” “DIVORCED,” and so on. Rather, MARITAL- 
STATUS is likely to be a one-position field that will be coded with a | to 
denote single, 2 for married, 3 for divorced, and so on. To make the coded 
fields more user-friendly, we may use instead ‘M’ for married, ‘S’ for single, 


and ‘D’ for divorced. 


Programs should make certain that the contents of coded fields are valid. 
Condition-names are frequently used to facilitate the coding of error control 


procedures in a program. 


Condition-names are programmer-supplied names established in the DATA 
DIVISION that may facilitate processing in the PROCEDURE DIVISION. A con- 
dition-name gives a name to a specific value that a data item can assume. In 
the DATA DIVISION, it is coded with the level number 88. An 88-level entry 
is a condition-name that denotes a possible value for specific data items. Con- 


sider the following example: 


EC 2 36 a cy 


MapafraL-eirarus, [1 [T PrcrbRel M 


HH 


Suppose that an ‘S’ in the field called MaRITA 


Poe 


L-STATUS denotes that the per- 
son is single. We may use a condition-name SINGLE to indicate this value: 


20. 


24 


ee 


38 


7 


sane 


ae 


Ht 


When the field called MARITAL-STATUS is equal to ‘S’, we will call that 
condition SINGLE. The 88-level item is not the name of a field but the name 
of a condition. The 88-level item refers only to the elementary item directly 
preceding it. SINGLE is a condition-name applied to the field called MARITAL - 
STATUS, since MARITAL-STATUS directly precedes the 88-level item. The con- 
dition SINGLE exists or is “true” if MARITAL-STATUS = ‘S’. 

A condition-name conforms to the rules for forming programmer-supplied 
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names. It is always coded on the 88 level and has only a VALUE clause asso- 
ciated with it. Since a condition-name is not the name of a data field, it will 
not contain a PICTURE clause. 

The following is the format for 88-level items: 


Format 

The condition-name, which must be unique, refers only to the elementary 
item preceding it. The VALUE of the condition-name must be a literal con- 
sistent with the data type of the preceding field: 

Valid 

o5 FLDX PIC XXs 

88 CONDITIONA VALUE /127, 
These are valid entries since the value is a nonnumeric literal and the field 
is defined alphanumerically. An incorrect form is: 

Invalid 

O38 FLDX PICTURE XxX, 

88 CONDITIONA VALUE 12, 

For readability, an 88-level item is indented to clarify its relationship to 
the data-name directly preceding it. 

Condition-names refer only to elementary items in the DATA DIVISION. 
The data item to which the condition-name refers must contain a PICTURE 
clause. 01-49 level items in the FILE SECTION and WORK ING-STORAGE SEC- 
TION may have condition-names associated with them; so, too, may 77-level 
items, if used, in the WORKING-STORAGE SECTION. 

Condition-names are defined in the DATA DIVISION to facilitate processing 
in the PROCEDURE DIVISION, A condition-name is an alternate method of 
expressing a simple relational test in the PROCEDURE DIVISION. Consider the 
following DATA DIVISION entries: 

OS MARITAL-STATUS PIE Ke 

88 DIVORCED VALUE ‘DD’. 
We may use either of the following tests in the PROCEDURE DIVISION: 

IF MARITAL-~STATUS IS EQUAL TO ’D’ 

PERFORM DIVORCE-RTN+ 
or 
IF DIVORCED 
PERFORM DIVORCE-RTN, 

The condition-name DIVORCED will test to determine if MARITAL-STATUS 
does, in fact, have a value of ‘D’. 

We may use several condition names for one data field: 

EZ @ % 20 2 28 2 ET rT} a a B Ed oO a w a 
LITT ips P a LT 
mn CELLENIT SAP | 
ME OD | LS Be 
TT FAIR | Ci L| 
| I POOR 
] Nel | 
I | i 
HL FAILING | F 


374 A FOCUS ON PRINTING REPORTS 


Assuming that these VALUEs are the only valid ones, a PROCEDURE DIVISION 
test may be as follows: 


78 Tz 16 20 24 28 32 36 40 a4 48 a 36 0) ca 
| (old QR FAIR TOO Z 
' LN — Lt Cl | | 
cI CHT cH | CH 
| Re ERROR=RIAL || EET rH 
t | | T 
We may also say: IF NOT FAILING PERFORM PASS-RTN, if we can be sure 
that the condition NOT FAILING guarantees an entry from A through D only. 


A condition-name may contain a VALUE clause that specifies a range of 
values. The word THRU is used to indicate this range, as in the following: 


En 36, 40 co cy 52 56, 0 cy a 


Tha 


For testing for a 
range of values 


The condition-name VALID-YEAR is “turned on” if YEAR-OF-TRANS, the 
entry directly preceding it, has any value from 85 to 90 inclusive of the end- 
points 85 and 90. Similarly, to say in the PROCEDURE DIVISION, IF NOT 
VALID-YEAR PERFORM ERR-RTN will cause ERR-RTN to be performed if YEAR- 
OF-TRANS is less than 85 or greater than 90. 

Condition-names may be used in the PROCEDURE DIVISION, at the discre- 
tion of the programmer, for ease of programming. They are also very good 
documentation tools that help clarify the program's logic for users and others 
who might need to read or modify the program. Condition-names are fre- 
quently used in coding PERFORM +++ UNTIL instructions: 


Example 


20. cy a8 2 6 


TTT 16 20 n 2 EH 36 
rf 
eemcaa 


Using the condition-name THERE-15-NO-MORE-DATA is more meaningful 
and user-friendly than simply comparing EOF to 1. 


SUMMARY—CONDITION-NAMES 
1. 88-level items are used to represent condition-names. 
2. A condition-name specifies the value that a data item can contain. 
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3. The format for a condition-name is as follows: 


88 condition-name VALUE literal. 


4. The 88-level item refers to the elementary item preceding it: 


OS ITEMt PIc 9, 
88 ABC VALUE 8. 


+ 
’ 


IF ABC PERFORM NEXT-RTNs 


TYPICAL VALIDITY CHECKS 


1. Determine if numeric data fields do, in fact, contain numeric data. 
The class test is used: 


IF data-name 1S NUMERIC ++, 


2, Determine if alphabetic data fields do, in fact, contain alphabetic 
data. The class test is used: 


IF data-name 1S ALPHABETIC 44+ 


3. Determine if the value of a field falls within established ranges, this 
is called a range test. 


Example: The value of a PART-NO field may be between 001 and 
215, 287 and 336, or 415 and 555, 

4. Determine if the value in a field does not exceed an established 
limit; this is called a limit test. 
Example: The value in a SALARY field is within the required limit 
if it is less than 95000, for example. That is, if $95000 is the high- 
est salary paid, no salary should be greater than $95000. 


5. Determine if specified fields contain valid codes or values. Usually 
a condition-name is used to help document such routines. 


Example 

Os MODEL-CAR PIC 4, 
88 COUPE VALUE 1, 
88 SEDAN VALUE 2, 
88 CONVERTIBLE VALUE 3, 


‘ 


IF COUPE OR SEDAN OR CONVERTIBLE 
NEXT SENTENCE 

ELSE 
PERFORM ERROR-RTN, 


or 


IF NOT COUPE AND NOT SEDAN AND NOT CONVERTIBLE 
PERFORM ERROR-RTN+ 
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6. Determine if specified fields contain reasonable values. 


Example: If an employee birth date is entered as MO/YR 
(month/year), YR would normally be two positions (86 would repre- 
sent 1986}. We would consider YR invalid if less than 10 (1910) or 
greater than 70 (1970), for example, given that the current year is 
85. This is because a person born before 10 (1910) would be more 
than 75 years old and not likely to still be employed; a person born 
after 70 (1970) would be less than 15 years old and likely to be too 
young to be employed. These figures apply if the current year is 85. 


eee) V. What to do if Input Errors Occur 


A. Common Procedures 


Numerous procedures may be used when input errors are detected. The sys- 

tems analyst, programmer, and user work closely together to establish the 

most productive course of action to be followed when specific errors occur. 
We consider several procedures, any of which may be used in a program: 


1. Abort the Run 
If a major error occurs, it may be best simply to abort the run. This procedure 
is followed when data integrity is the primary consideration and errors must 
be kept to a minimum. Typically, the individual responsible for reviewing 
data would need to correct the error and arrange for the job to be restarted. 
If your program is to terminate because of an error, remember to close all 
files before stopping and to display or print a message explaining why the job 
is being aborted. 


2. Print an Error Message Containing the Key Field 

and the Contents of the Erroneous Fields 

Errors should always be displayed with an appropriate message. The key field 
that identifies each erroneous record must also be included. Moreover, a count 
should be maintained of the occurrences of each specific error. A user would 
typically be responsible for correcting all errors that have occurred and for 
determining if any major programming or systems problems exist. 


3. Partially Process or Bypass Erroneous Records 

Once an error is detected, the program could either (a) proceed to the next 

record, bypassing the erroneous record entirely, or (b) process only some por- 

tion of the erroneous record. This, again, is a function of user needs. 
Sometimes, for example, an erroneously entered numeric field is replaced 

with zeros; sometimes it is simply ignored. 


4. Abort the Run If the Number of Errors Exceeds a Predetermined Limit 

Sometimes we wish to continue processing even if errors occur, but if such 
errors become excessive, we abort the run. Assume that the program only 
prints error messages using a record name called PR-REC. Consider the fol- 
lowing ERR-RTN: 


ERR-RTN, 
WRITE PR-REC FROM ERR-LINE. 
ADD 1 TO SEQUENCE-ERRORS, 
IF SEQUENCE-ERRORS » 25 
MOWE ‘JOB TERMINATED: SEQUENCE ERRORS EXCEED 25° 
TO PR-REC 
WRITE PR-REC 
CLOSE INFILE, OUTFILE 
STOP RUN. 
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B. Use of Switches 


Depending on the way processing is performed, we may use a switch to de- 
termine what procedure to follow. That is, we begin with a field called ERR - 
SWITCH initialized at 0. If an error has occurred, we move | to ERR=SWITCH, 

If ERR-SWITCH contains a 1, we know an error has occurred and we proceed 
accordingly. If ERR-SWITCH is a 0, then no error has occurred, Before process- 
ing each record, be sure to re-initialize ERR-~SWITCH at 0. 

The field called ERR-SWITCH is actually a one-position field that will con- 
tain either a 0 or a 1. We may use condition-names to clarify this for docu- 
mentation purposes: 


OL ERR-SWITCH PIC 9, 
88 ERROR-HAS-~OCCURRED VALUE 1, 
88 NO-ERROR-HAS-OCCURRED VALUE 0, 


’ 


IF ERROR-HAS-OCCURRED 
NEXT SENTENCE 
ELSE 


or 


TF NO-ERROR-HAS~OCCURRED 


C. Mustration of Validity Checking 


Validity checks are most often used in edit programs, which are programs that 
validate files prior to processing them. Suppose we write an edit program for 
a modeling agency to ensure, insofar as is possible, the integrity of the data; 
that is, we must make certain that input errors are minimized. An edit pro- 
gram is sometimes referred to as a validation program. 

The input record appears as follows: 


MODEL-FILE 

1-20 Name 
21 Sex (Male = 1; Female = 2) 
22 Marital status (M = Married 


S = Single 

D = Divorced 
T = Separated 
W = Widowed) 


23-25 Weight [in Ibs) 

26-27 Height (in inches) 

28 Color of eyes (1 = Brown 
2 = Blue 
3 = Hazel 
4 = Other) 

Red 

Brown 

Black 


29 Color of hair (1 
2 
3 
4 = Blonde 
D 
6 


i il 


I 


Gray 
= Other) 
30-33 Birth data (Mo/Yr) 
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There is no way to prevent errors entirely. If an input record for John Smith 
is entered with a WEIGHT field of 157 when John Smith actually weighs 257 
Ibs, there is no way we can easily determine that an input error has occurred. 
If, however, John Smith’s weight is entered as 025 or 750, we can assume that 
this field is probably incorrect and designate it as an input error. This type of 
error would be detected with a reasonableness test. 

In general, the fields indicated could be checked as follows: 


FIELD VALIDITY CHECK 

1. Name Alphabetic 

2, Sex Test for 1 or 2 

3. Marital status Test for M, S, D, T, or Ww 

4. Weight Test for reasonableness with limits of 090-300 lbs, 
for example 

5. Height Test for reasonableness with limits of 48-84 
inches, for example 

6. Color of eyes Test for 1, 2, 3, or 4 

7. Color of hair — Test for 1, 2, 3, 4, 5 or 6 

8. Birth date Range test: Month: 01-12 
Reasonableness: Year between 10 and 80 


The DATA DIVISION entries for the input in this type of program would 
normally include many condition-names that are useful for documentation 
purposes. Consider the following input area: 


DATA DIVISION. 
FILE SECTION, 
FD MODEL~FILE 

LABEL RECORDS ARE STANDARD. 
O1 MODEL-REC. 


O5 NAME PIC X(ZO), 
o5 SEX PIC 9. 
88 ALE VALUE 1+ 
88 FEMALE VALUE 2+ 
05 MARITAL-STATUS PIC Xe 
88 ARRIED VALUE ‘M's 
88 SINGLE VALUE ‘Ss 
88 DIVORCED YALUE ‘D's 
88 SEPARATED VALUE ‘T's 
88 WIDOWED VALUE ‘W's 
o5 WEIGHT PIC B(3)+ 
o5 HEIGHT PIc 99. 
o5 EYE-COLOR PIC 3. 
88 BROWN-EYES VALUE 1. 
88 BLUE VALUE 2+ 
88 HAZEL VALUE 3+ 
88 OTHER-EYE YALUE 4. 
05 HAIR-COLOR PIC 
88 RED VALUE 1s 
88 BROWN-HAIR VALUE 2+ 
88 BLACK VALUE 3+ 
88 BLONDE VALUE 4. 
88 GREY VALUE Ss 
88 OTHER-HAIR VALUE G- 
05 BIRTH-DATE. 
10 MONTH PIC 99+ 
i090 YEAR Pic 99. 
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Consider, too, the following output area: 


FD PRINT-ERROR 


LABEL RECORDS ARE OMITTED, 


Ol ERROR-LINE. 


OS FILLER 
OS NAME-OUT 
O03 FILLER 
95 ERROR-MES 
05 FILLER 


SAGE 


PIC X(20), 
PIC X20), 
PIC X(10), 
PIC X(50), 
PIC X(33), 


Assume that if an error occurs, we wish to print the person’s name along 
with a message that indicates the type of error that has occurred. The PRO- 
CEDURE DIVISION could then be coded as follows: 


PROCEDURE DIVISIO 
MAIN-MODULE. 


Ny 


OPEN INPUT MODEL-FILE 
OUTPUT PRINT-ERROR, 


LE AT 


READ MODEL-~FI 
CLOSE MODEL-F 
PRINT-E 
STOP RUN, 
ERROR-CHECK » 
OVE SPACES 
F OT MALE 
OVE ‘ERR 
PERFOR 
F OT MARR 
AND 
AND 
OVE ‘ERR 
PERFOR 
FO WEIGHT ¢ 
OVE ‘ERR 
PERFOR 
[F HEIGHT < 
OVE ‘ERR 
PERFOR 
F OT BRO 
NOT O01 
QVE ‘ERR 
PERFOR 
IF NOT RED A 
BLOND 
OVE ‘ERR 
PERFOR 
IF ONTH & 
QUE ‘ERR 
ERFOR 
IF YEAR « 10 
OVE ‘ERR 
PERFOR 
READ MODEL-FI 
WRITE-ERROR, 
MOVE NAME TO 


END 


MOVE 1 TO EOF, 


PERFORM ERROR-CHECK UNTIL EOF = 1, 


ILE 

RROR, 

0 ERROR-LINE, 

AND NOT FEMALE 

OR SEX’ TO ERROR-MESSAGE 
RITE-ERROR, 

ED AND NOT SINGLE 

OT DIVORCED AND NOT SEPARATED 

0 IDOWED 

OR MARITAL STATUS’ TO ERROR-MESSAGE 
RITE-ERROR. 

990 OR WEIGHT » 300 

OR WEIGHT’ TO ERROR-MESSAGE 
RITE-ERROR, 

48 OR > @4 

OR HEIGHT’ TO ERROR-~MESSAGE 
RITE-ERROR, 

-EVYES AND NOT BLUE AND NOT HAZEL AND 
THER-EYE 

OR EYE COLOR’ TO ERROR-MESSACE 
RITE-ERROR. 

D NOT BROWN-HAIR AND NOT BLACK AND NOT 
E AND NOT GREY AND NOT OTHER-HAIR 

OR HATR COLOR’ TO ERROR-MESSAGE 
RITE-ERROR, 

1 OR Viz 

OR ONTH OF BIRTH’ TO ERROR-MESSAGE 
RITE-ERROR, 

OR » 80 
vOR YEAR OF BIRTH’ TO ERROR-MESSAGE 
RITE-ERROR. 

LE AT END MOVE 1 TO EOF, 

AME-OUT. 


WRITE ERROR-~LINE AFTER ADVANCING 2 LINES, 
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D. Validating by Printing Totals 


1. A Count of All Records and a Count of All Errors 

All programs should provide a count of records processed as well as a count 
of errors that have occurred. To determine the number of records processed, 
we simply ADD 1 TO TOTAL-RECORDS each time we process a record and print 
the contents of TOTAL-RECORDS at the end of the job. In most systems, a user 
is responsible for counting the number of records to be entered before process- 
ing begins. This person later compares the manually tabulated total to the 
total number of records processed and counted by the computer. The totals 
should match. If they do not match, records may have been misplaced or lost. 
It is the user’s responsibility to find the discrepancy and to correct the error. 


2. A Batch Total 

If large groups of input records are processed during each run, a single count 
of all records may be insufficient to track down an error. In this case, we might 
include batch totals, where we print a count of all records within specific 
groups or batches of records. Suppose we typically process transactions by 
TRANS-NO, We may include batch totals for each DEPT: 


TOTAL RECORDS PROCESSED 1131 
RECORDS WITH TRANS-NO 001-082 48 
RECORDS WITH TRANS-NO 083-115 53 
RECORDS WITH TRANS-NO 116-246 387 
RECORDS WITH TRANS-NO 247-383 226 
RECORDS WITH TRANS-NO 384-452 417 


Each individual total is called a batch total. A user manually determines 
the records to be processed in each batch before the data has been entered as 
input. The manual batch totals should match the computer-produced ones. If 
not, the user can track down the record or records that were not processed in 
the specific batch. 

Your program may compare the manual batch totals to the computed ones. 
To do this, you must enter the manual batch totals along with the input. 
Methods of entering manual batch totals include: (1) a control record, which 
is the first record in the file indicating batch total information, or (2) a separ- 
ator record, which contains manual totals placed between groups or batches. 


3. A Hash Total 
The preceding counts will help determine if a record was misplaced or lost, 
but they will not actually help in isolating the specific record. A hash total is 
frequently computed to help determine the actual record that was not processed. 
A hash total is a sum of a specific numeric field that is not ordinarily used 
as a quantity field. We may, for example, add all the part numbers in an 
inventory file or all the employee numbers in a payroll file. The hash total is 
calculated manually by the user prior to processing. The computer processes 
the data, prints any error messages, and prints a computed hash total. If the 
manually prepared hash total matches the computed one, we assume that all 
records have been processed. If it does not, it may be possible to isolate a 
missing record by subtracting the computed hash total from the manual one: 


User-computed hash total (on Part-no) 5873 
Computed hash total (on Part-no) —5711 
162 


The record with PART-NO 162 may be missing. Hash totals are very useful 
if a single record has been misplaced, but they are less effective if more than 
one record is missing. For example, suppose two records with PART-NOs 84 
and 78 are missing; in this case, the computed difference of 162 may mean 
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two records are missing, not just one. Thus, computing the difference in hash 
totals is helpful, but it is not a foolproof method for finding specific errors. 


E. When Data Should be Validated 


All programs to be run on a regularly scheduled basis should include data 
validation techniques designed to minimize errors. From this point on in the 
text, we will consider such techniques when discussing program excerpts. But 
Practice Problems at the end of each chapter will focus on illustrating the 
specific topics discussed in the chapter and, in the interest of brevity, will not 
include data validation techniques. Each set of Review Questions at the end 
of chapters, however, will end by asking you to modify the Practice Problem 
to include the appropriate data validation coding. 


CHAPTER SUMMARY 
I, Methods for Minimizing Input Errors 
A. The computer should be programmed to produce control listings that 
are checked by user departments. 

1. A control listing contains the key field and other identifying data 
for every record created, updated, or changed. 

2. The control listing also indicates the total number of records 
processed and any errors encountered. 

B. Verification of input.data. 

1. Data keyed in is rechecked through a re-keying procedure. 

2. If the re-keying produces different entries than the initial data entry, 
the reason for each discrepancy must be determined and corrective 
action must be taken. 

C. Programming error control procedures. 

1. Error control procedures will minimize errors but will not eliminate 
them entirely. 

2. Types of procedures 

(a) Sequence checking—to ensure that data is in the correct 


sequence. 

(b) Range test—to ensure that data falls within a preestablished 
range. 

(c) Limit test—to ensure that data does not exceed a preestablished 
limit. 


(d) Format tests—to ensure, for example, that numeric fields do, in 
fact, contain numeric data. 
(e) Tests for missing data—to ensure that all critical fields contain 
nonzero or nonblank data. 
3. INSPECT (1974 and 1985) and EXAMINE (1968). 
(a) To replace invalid characters with valid ones. 
(b) To count the occurrences of invalid characters. 
4. Use condition-names to specify given values that data-names may 
assume. 
D. How to handle input errors. 
1. If critical errors occur, abort the run. 
2. Always print error messages indicating all errors. 
3. Fill erroneous fields with blanks or zeros. 
4. Count the occurrences of errors and abort the job if the number of 
errors is considered excessive. 


carrer SELF-EVALUATING Quiz 


1. (T or F) If a field with a Pic of 9’s actually contains spaces, an attempt to add it 
to another field will cause an abend condition. 
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Solutions 
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Ole 


(T or F) If a program is written properly, all input errors will be detected. 
A —______ is a printed report indicating records processed and errors found. 
A —________ procedure is a process of re-keying input to ensure that it was entered 


correctly the first time. 
(T or F) Verification virtually eliminates all input errors. 
When input records are entered in sequence, it is usually a ______ field that 
contains data in sequence. 
(T or F) If a field has a PIC of 9’s, it is not necessary to test to ensure that it 
contains numeric data. 
The ________ statement is used to replace erroneous characters with valid ones 
with the 1974 and 1985 ANS COBOL compilers, while the _______ statement 
is used with 1968 ANS COBOL compilers. 

are frequently used in input records to minimize data entry operations 
and to keep the input record format shorter and more manageable. 


. A _______ is the name assigned to a value of the field directly preceding it in 


the DATA DIVISION. 


. The sign test IF A 1S NEGATIVE will produce correct results only if A has 


a(n) ________ in its PICTURE clause. 


. (T or F) A programmer should always abort a run if an input error is detected. 

. A(n) ________ program is one that is typically used to test for input errors. 

. A count of all records within specific groups is referred to as a ________ total. 

. A________ total is a sum of a specific numeric field that is not ordinarily used 


as a quantity field. 


Page 
T—The programmer must be very careful before performing arithmetic oper- 365 
ations to ensure that all fields actually contain numeric data. 


F—One can only hope to minimize input errors, not eliminate them entirely. 363 
control listing 363 
verification 364 
F—Verification reduces 90% of all input errors, but it does not eliminate 364 
input errors entirely. 

key 364 


F—The contents must be checked for numeric data before an arithmetic 365 
operation is performed. 
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Coded fields 372 
condition-name 372 
8 366 
. F—Some errors can be handled by zeroing out the fields, for example. 376 
. edit 377 
batch 380 
. hash 380 


PRACTICE PROGRAM 


Consider the problem definition on the next page. 
Figure 15.2 gives a suggested solution. 
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Systems Flowchart 


TRANSACTION-FILE 
100-position records ERROR- LISTING 
standard labels 


TRANSACTION-FILE Record Layout 


O | EMPL 


29 30 49.50. 51 55 


1 910 


VALIDITY (NON: (NON- 19) (RANGE: (D,W, ‘6 (20,20, 
cHecks: (NUMERIC) Blank) BLANK) =~“ 1000:87000) OR (1-6) or 25) 


ERROR-LISTING Printer Spacing Chart 


a ya}s}yfafaty ats |a}2}2}2}a}a}a}2}2}.a}2} 3 
1]2|s|4{5/o{7}s|9]0] »]2|3/4]5]6|7|a/o/0]1|2/3/4|5]6|7|0] 910) 


Sjole|rjolajalo|e|— 


Sample Input Data 


080243567PAUL NEWMAN 11 MAIN ST., NYC 118@00D310 

$90263442LINDA GRAY 5@ SPRING ST., NYC @21000W520 

113547892ROBERT REDFORD 5@ 3RD AVE., NYC 6120608625 

948239261JOAN COLLINS 20 SUTTER PL.,NYC 8860609510 

@76235826LARRY HAGMAN 49-21 3RD ST., NYC 943G600R710 

692487331MICKEY MOUSE 41 3RD AVE., NYC 9436008614 
Sample Output 

LISTING OF TRANSACTION ERRORS PAGE @1 11/21/85 

PAUL NEWMAN A-OK 
LINDA GRAY TRANS CODE IS INVALID ) 
ROBERT REDFORD SALARY IS INVALID 120080 
JOAN COLLINS MARITAL STATUS IS INVALID Q 
LARRY HAGMAN MARITAL STATUS IS INVALID R 
LARRY HAGMAN LEVEL IS INVALID 7 


MICKEY MOUSE DEPT IS INVALID 14 
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Figure 15.2 
Solution to the Practice 
Program. 
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IDENTIFICATION DIVISION, 


PROGRAM-ID, CHAPIS. 


ENVIRONMENT DIVISION, 
INPUT-OUTPUT SECTION, 


FILE-CONTROL. 


SELECT TRANSACTION-FILE ASSIGN TO DISKi. 
SELECT ERROR-LISTING ASSIGN TO PRINTER. 


DATA DIVISION. 
FILE SECTION, 


FD TRANSACTION-FILE 
LABEL RECORDS ARE STANDARD, 
O1 TRANS-REC,. 
oS SsS-no PIC 9(9), 
OS NAME PIC X(20), 
OS EMPL-ADDR PIC X(20), 
05 TRANS-CODE PIC @. 
88 VYALID-CODE VALUE 1 THRU 9. 
OS ANNUAL-SALARY PIC 9(5), 
88 ACCEPTABLE-SALARY-RANGE 
VALUE 15000 THRU 87000, 
05 ARITAL-STATUS PIC X, 
05 LEVEL PIc 9. 
88 ACCEPTABLE-LEVEL VALUE i THRU 6G, 
03S DEPT PIC 99. 
OS OTHER-DATA PIC X(di>. 
FD ERROR-LISTING 
LABEL RECORDS ARE OMITTED. 
O1 ERROR-REC P K(133)6 
WORKING-STORAGE SECTION, 
Ol WS-AREAS, 
05 LINE-CT PIc 99 YALUE Oy 
OS EOF Pic 9 VALUE O, 
os 8-DATE PIC 9(6). 
eke) S-DATE-X REDEFINES WS-DATE, 
10° YR PIC 98 
19° MO PIc 99, 
10 DA PIc 99, 
OS ERR-CT PIC 9 VALUE 0, 
Ol HEADING-1,. 
OS FILLER PIC X(20) VALUE SPACES, 
05 FILLER PIC X(35) 
VALUE ‘LISTING OF TRANSACTION ERRORS’, 
05 FILLER PIC X(3) VALUE ‘PAGE ‘. 
OS PAGE-CT PIC 99 VALUE O1, 
OS FILLER PIC x(10) VALUE SPACES, 
oS DATE-OUT. 
10 MO-OUT PIc 99, 
LO PPLLER PIC xX VALUE //°', 
10 DAY-OUT PIC 99. 
10 FILLER PIC X VALUE ’/ 7%, 
10 YR-OUT PIC 99. 
OS FILLER PIC K(53) VALUE SPACES, 
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Figure 15.2 
Continued 


* 


VALUE SPACES, 


YALUE SPACES. 


VALUE SPACES, 


VALUE SPACES, 


+ 


ROR~MESSAGE 


OR-~MESSAGE 


ROR 
ERROR~MESSAGE 


RROR 
TO 


~ERROR 


RROR-MESSAGE 


D 
D NOT = 


oye 


TO ERROR-MESSAGE 


TO ERROR-MESSAGE 


OL DETAIL-LINE: 
OS FILLER PIC X(19) 
05 NAME-OUT PIC X(20),. 
OF FILLER PIC x(10) 
05 ERROR-MESSAGE PIC (25), 
035 FILLER PIC (19) 
O5 FIELD-IN-ERROR PIC K(20). 
O03 FILLER PIC (38) 
PROCEDURE DIVISION, 
MAIN-MODULE + 
OPEN PUT TRANSACTION-FILE 
QUTPUT ERROR-LISTING, 
ACCEPT WS-DATE FROM DATE, 
QVE MO TO MO-OUT,. 
QVE DA TO DAY-OUT. 
OVE YR TO YR-OQUT. 
PERFORM HEADING-RTN+ 
READ TRANSACTION-FILE AT END MOVE 1 TO EQF, 
PERFORM ERROR-CHECK UNTIL EOF = 1 
CLOSE TRANSACTION-FILE 
ERROR-LISTING. 
STOP RUN. 
ERROR-CHECK + 
OVE NAME TO NAME-OUT, 
OVE © TO ERR-CT, 
F §S-NO IS NOT NUMERIC 
OVE SS-NO TO FIELD~IN-ERROR 
OVE ‘SS NO IS INVALID’ TO ER 
PERFORM ERR-RTN, 
F AME = SPACES 
OVE NAME TO FIELD-IN-ERROR 
OVE ‘NAME IS INVALID’ TO ERR 
PERFORM ERR-RTN¢ 
F EMPL-ADDR = SPACES 
QVE EMPL-ADDR TO FIELD-IN-ER 
OVE ‘ADDRESS IS INVALID’ TO 
PERFORM ERR-RTNs 
F OT VALID-~CODE 
OVE TRANS-CODE TO FIELD-IN-E 
OVE ‘TRANS CODE IS INVALID’ 
PERFORM ERR-RTN¢ 
F OT ACCEPTABLE-~SALARY-RANGE 
OVE ANNUAL~SALARY TO FIELD-~I 
OVE ‘SALARY IS INVALID’ TO E 
PERFORM ERR-RTN+ 
IF MARITAL-STATUS IS NOT = ’D’ A 
NOT = ‘W’ AND NOT = ‘8’ A 
MOVE MARITAL-STATUS TO FIELD-IN-ERROR 
OVE ‘MARITAL STATUS IS INVALID’ 
PERFORM ERR-RTN+ 
IF OT ACCEPTABLE~LEVEL 
OVE LEVEL TO FIELD-IN-ERROR 
OVE ‘LEVEL IS INVALID’ 
PERFORM ERR-RTN+ 
IF DEPT IS NOT = TO 10 AND NOT 
EQUAL TO 20 AND NOT EQUAL TO 25 
OVE DEPT TO FIELD-IN-ERROR 
QVE ‘DEPT IS INVALID’ 
PERFORM ERR-RTN+ 


ERROR-MESSAGE 
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TO ERROR-MESSAGE 
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Figure 15.2 IF ERR-CT = 0 
Continued MOVE SPACES TO FIELD-IN-ERROR 
MOVE ‘A-OK’ TO ERROR-MESSAGE 
WRITE ERROR-REC FROM DETAIL-LINE 
AFTER ADVANCING 2 LINES 
ADD 1 TO LINE-CT 
ELSE 
MOVE © TO ERR-CT, 
IF LINE-CT > 25 
PERFORM HEADING-RTN, 
READ TRANSACTION-FILE AT END MOVE 1 TO EOF, 
ERR-RTNs 
WRITE ERROR-REC FROM DETAIL-LINE 
AFTER ADVANCING 2 LINES. 
ADD 1 TO LINE-CT. 
IF LINE-CT ? 25 
PERFORM HEADING-RTN+ 
ADD 1 TO ERR-CT, 
HEADING-RTN; 
WRITE ERROR-REC FROM HEADING-1 
AFTER ADVANCING PAGE, 
ADD 1 TO PAGE-CT, 
MOVE © TO LINE-CT, 


Ascending sequence Key field 

Batch total Limit test 

Class test Murphy’s Law 
Condition-name Range test 

Control listing Sequence checking 
Data validation Sign test 

Descending sequence Switch 

Edit program TALLY (#) 

EXAMINE (:) Test for reasonableness 
Hash total Verification procedure 
INSPECT 


(*) For 1968 ANS COBOL compilers only. 


REVIEW QUESTIONS 


I. True-False Questions 


1. (T or F) When counting records with transaction numbers 1-100, 101-200, and so 
on, we use a hash total. 


2. (T or F) Control listings are considered optional and, in fact, are rarely produced 
by a program. 
3. Consider the following: 
OS FLDX PIC 94 
88 xX-ON VALUE 1. 


(T or F) If FLDX = 1, that condition is referred to as X-ON. 
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6. 


(T or F) In Question 3, we could code a PROCEDURE DIVISION entry as follows: 


IF X-ON = 1 
PERFORM X-RTN+ 
(T or F) An abend will cause the computer to terminate a run. 


(T or F) Data verification is rarely used to minimize errors, since it only eliminates 
a small percentage of data entry mistakes. 


(T or F) If a field 1S NOT ALPHABETIC, then it must be NUMERIC. 
(T or F) Ifa field 18 NOT POSITIVE, then it must be NEGATIVE. 


9. (T or F) An INSPECT statement can be used both to replace one character with 


10. 


another and to count the number of occurrences of a character. 


(T or F) To reduce the number of characters in an input record, we frequently use 
coded fields. 


DEBUGGING EXERCISES 


Consider the following program excerpt: 


OL REC-IN. 
0S ACCT-NO PIC K(S), 
0S SALARY PIC 9(4), 
05 AMT2 PIC 9(3), 
08 STATUS~CODE PIC a. 


PROCEDURE DIVISION, 
MAIN-MODULE. 
OPEN INPUT TRANS-FILE 
QUTPUT PRINT-FILE, 
READ TRANS-FILE AT END MOVE 1 TO EOF. 
PERFORM EDIT-CHECK UNTIL EOF = 1, 
PERFORM PRINT-~TOTALS. 
CLOSE TRANS-FILE» PRINT-FILE, 
STOP RUN. 
EDIT-CHECK. 
IF SALARY IS NOT + 5000 OR « 98000 
PERFORM SALARY-ERROR, 
ADD ACCT-NO TO HASH~TOT. 
IF AMTZ IS NEGATIVE 
PERFORM AMTZ-ERROR, 
IF STATUS-CODE » S AND SALARY NOT & 86000 
PERFORM ERROR-IN-STATUS, 
* AN ERROR SWITCH IS SET AT EACH ERROR ROUTINE 
IF ERR-SWITCH = 0 
WRITE PRINT-REC FROM OK-REC 
ELSE 
WRITE PRINT-REC FROM ERR~REC, 
READ TRANS-~FILE AT END MOVE 1 TO EOF, 
ADD 1 TO COUNT-OF-RECORDS, 


A syntax error occurs on the line in which AcCT-NO is added to the hash total. Find 
and correct the error. 


A syntax error occurs on the line in which AmMT2 is tested for a negative quantity. 
Find and correct the error. 


Is ADD 1 TO COUNT-OF-RECORDS in the correct place? Explain your answer. 
When the program is executed, you find that SALARY-ERROR is always performed 
even when the SALARY is within the correct range. Find and correct the error. 


When an error occurs, all subsequent records are similarly printed as errors. Find 
and correct this error. 
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S| PROGRAMMING ASSIGNMENTS 


1. Write a program to check if sales records are in ascending sequence by salesperson 
number. The problem definition is shown in Figure 15.3. 


Figure 15.3 Systems Flowchart 
Problem definition for Pro- 
gramming Assignment 1. 


SALES-TRANS ERROR-LISTING 


80-position records 
standard labels 
30 records/block 


SALES-TRANS Record Layout 


ERROR-LISTING Printer Spacing Chart 
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Note 
For any record not in sequence, print the salesperson’s number and name. 


2. Write a program to validate payroll records for missing data. See the problem defi- 
nition in Figure 15.4. 


Notes 

(a) Perform a validity routine to ensure that: 
(1) All fields except Employee Name are numeric. 
(2) Employee Name is not missing. 
(3) Annual Salary is not greater than $125,000. 

(b) Include the date and page number in the heading. 
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Systems Flowchart 


PAYROLL-MASTER PAYROLL-LIST 
80-position records 

standard labels 

20 records/block 


PAYROLL-MASTER Record Layout 


25 26 27 28 29 30 3536 44 45 48 49-53 54 


PAYROLL-LIST Printer Spacing Chart. 
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Figure 15.4 
Problem definition for Pro- 


ramming Assignment 2, 
I ei = 3. Modify Programming Assignment 3 in Chapter 14 to abort the run if any input 


record has: 

(a) Fields that are not numeric. 

(b) A state code that is not between 1 and 50. 

If the run is aborted, print the message INVALID DATA IN RECORD followed by the 

unedited contents of the record. 

4. Modify Programming Assignment 4 in Chapter 14 to perform the following validity 

checks on each input record. 

(a) Territory number, area number, and department number should be numeric. 

(b) Department number should be between 1 and 10, territory number between 1 
and 8, and area number between 1 and 3. 

(c] Do not process a record that has invalid data; however, keep count of how many 
invalid records there are. 

(d) At the end of the report, print the message THE NUMBER OF RECORDS NOT 
PROCESSED WAS, followed by the number of invalid records found. 
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I. The Basic Format 


Format I 


Example 


OBJECTIVES 


To familiarize you with: 

1. The various options available with the PERFORM statement. 

2. The use of PERFORM statements for logical control procedures. 

3. The widespread use of PERFORM statements for business applications. 


We have discussed in detail the PERFORM... UNTIL statement used for struc- 

tured program control. We have also discussed the simple PERFORM statement. 

We will examine additional options of the PERFORM statement in this chapter. 
Let us first review the basic formats of a PERFORM. 


A PERFORM statement causes execution of the series of instructions at the 
named paragraph. When all instructions at the indicated paragraph are exe- 
cuted, control is transferred to the statement directly following the PERFORM: 


CALC-RTN, 


’ 
‘ 


WRITE PRINT-REC FROM OUT-REC AFTER ADVANCING 2 LINES, 
ADD 1 TO LINE-CTR, 
IF LINE-CTR = 25 
PERFORM HEADING-RTN, 
READ STUDENT-FILE AT END MOVE 1 TO EOF, 
HEADING-RTN, 
WRITE PRINT-REC FROM HEADING-REC 
AFTER ADVANCING PAGE, 
MOVE O TO LINE-CTR. 
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HEADING-RTN is performed if LINE-CTR = 25. After HEADING-RTN is performed, control 
returns to the instruction after the PERFORM statement; that is, the READ statement. 
Note that the statements in CALC-RTN are themselves under the control of a PERFORM 
statement. A typical statement in the main module would be: 


PERFORM CALC-RTN UNTIL EOF = i. 


A. PERFORM Within a PERFORM 


As we have seen, PERFORM statements are permitted within the range of a 
PERFORM statement. This is referred to as a nested PERFORM. To say PERFORM 
PARA-1 is permissible even if PARA-1 has a PERFORM statement as one of its 
instructions. The following is a valid routine: 


Vv 


A simple PERFORM statement is used whenever a series of instructions at a 
particular paragraph is to be executed from different points in the program. 
An example of this is the printing of a heading at the top of a new page. 
Frequently, it can be anticipated that a printed report will consist of more 
than one page. Consequently, we will print a heading not only at the beginning 
of the program but also at different points within the program when it is 
necessary to start a new page. Consider the following program excerpt. Note 
that we wish to print final totals on a new page. 


PROCEDURE DIVISION, 
MAIN-MODULE + 


PERFORM HEADING-RTN+ 


’ 
+ 


CALC-RTNy 


+ 


IF LINE-CTR = 25 
PERFORM HEADING-RTN, 
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ERR-RTN+ 
‘ 


+ 
’ 


IF LINE-CTR = 25 
PERFORM HEADING-RTN. 


+ 
+ 


FINAL-TOT-RTN. 
PERFORM HEADING-RTN; 


’ 


HEADING-RTN« 


+ 
+ 


Frequently, even the routine for writing a detail line, such as WRITE PRINT- 
REC FROM OUT-REC, is performed from different points in a program. This can 
be illustrated with the following program excerpt, which includes an oversim- 
plified validity check. 


Example 2 BEGINNING-RTN. 
OPEN INPUT STUDENT-FILE 
OUTPUT PRINT-FILE. 
PERFORM HEADING-RTN, 
READ STUDENT-FILE AT END MOVE 1 TO EOF, 
PERFORM VALIDITY-RTN UNTIL EOF = 1, 
CLOSE STUDENT-FILE 
PRINT-FILEs 
STOP RUN. 


VALIDITY=RTN« 
IF GRADEL IS NOT NUMERIC OR GRADE2 IS NOT NUMERIC 
PERFORM ERR-RTN 
ELSE 
PERFORM CALC-RTN, 
READ STUDENT-FILE AT END MOVE 1 TO EOF, 


CALC-RTN, 
COMPUTE AVERAGE = (GRADE1 + GRADE2) / 2, 
MOVE NAME TO NAME-OUT, 

PERFORM WRITE-~RTN, 


HEADING-RTN+ 
“WRITE PRINT-REC FROM HEADING-REC AFTER 
ADVANCING PAGE. 
MOVE © TO LINE-CTR, 


WRITE-RTN, 
WRITE PRINT-REC FROM OUT-REC AFTER ADVANCING 2 LINES, 
ADD 1 TO LINE-CTR, 
IF LINE-CTR = 25 
PERFORM HEADING-RTN, 


ERR-RTN+ 
MOVE ‘ERROR’ TO MSG-OUT. 
MOVE NAME TO NAME-OUT. 

PERFORM WRITE-RTN> 
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For this example, the WORK ING-STORAGE description used for DUT-REC is: 
WORKING-STORAGE SECTION, 


Ol OUT-REC: 
oS FILLER 
OS NAME-OUT 
05 FILLER 
OS AVERAGE 
05 MSG-OUT REDEFINES AVERAGE 


eke) 


FILLER 


PIC 
PIC 
PIC 
PIC 
PIC 
PIC 


X(20) VALUE SPACES, 
K(20). 
K(20) VALUE SPACES, 
S3)+ 
KOS) 6 
X(68) VALUE SPACES; 


The flowchart in Figure 16.1 will clarify the logic used in this program. 
In summary, several paragraphs or routines can be executed using one PER- 
FORM statement. 


Figure 16.1 
Flowchart for Example 2. 
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Figure 16.1 
Continued 


Extension of Format I 


Some older compilers permit only THRU; most allow THROUGH as well. 
All statements beginning at paragraph-name-1 and terminating at the end 
of paragraph-name-2 are executed. Control is then transferred to the statement 
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directly following the PERFORM. The following schematic illustrates how the 
PERFORM ..+ THRU may be used: 


B. The Use and Misuse of GO TO Statements 


We have thus far avoided the use of any branching or GO TO instructions in 
our programs. To transfer control to some other segment of a program, PER- 
FORM statements are used. Structured programming eliminates branch instruc- 
tions that permanently transfer control to another part of the program. 

In COBOL, the branch instruction could be coded as 


GO TO paragraph-name 


(Some older compilers require the word T0; most do not.) Unlike the PER- 
FORM which returns control to the statement following the PERFORM, the GO 
TO permanently transfers control; Figure 16.2 illustrates the distinction be- 
tween a PERFORM anda GO TO. 

In structured programs, we use one main routine followed by a series of 
subordinate routines, all under the control of the main routine. With this 
technique, all routines are coded independently. This process simplifies cod- 
ing and also makes debugging easier. A GO TO statement that transfers control 
out of a sequence of statements being performed can cause unpredictable re- 
sults, so it is generally avoided. 
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Figure 16.2 
The distinction between a 
PERFORM anda GO TO. 


ZERFORM 


There are, however, times in which GO TO statements are permissible. Using 


the THRU option, GO TO statements may appear within the named paragraphs. 
Consider the following routines: 

i.e ——_ i ie 20 a 28 2 ET 40 a a , ie wa 8 al 
anE ATOM NMAGHGTOEOTOTOTOGGWOGOLOTGTD ro 
ADD Talat anon 
i FerepaLLCELCELEHH Lo min 

| cl BY! Cl. {+1 LITT] ttat at 

alia ee 
EDITL {| [| 
(Tb) Co 
apy REC al 

Ti Ns i ia Cit 


To say: PERFORM STEP1 THRU STEP4 is permissible. Although a conditional 
branch in STEP! transfers control to another paragraph, STEP, the latter is 
included within the range of the PERFORM and, thus, is acceptable. 

In summary, when using the THRU option of the PERFORM statement, branches, 
or GO TO statements, are permitted within the range of the named paragraphs. 
Note, however, that to say PERFORM STEP1 THRU STEP2 would not be valid 
in the above illustration, since the conditional branch transfers control to 
STEPS, which is outside the PERFORM range. Thus control would not return 
to the statement directly following the PERFORM. 
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C. The Use of the EX1T Statement 
Consider the following procedure. 


One way to code this procedure is as follows: 


YALIDATION-RTN. 
IF AMT IS NOT NUMERIC 
GO TO YALIDATION-RTN-EXIT, 
ADD 1 TO TOTAL-COUNT. 
ADD AMT TO TOTAL+ 
IF AMT IS GREATER THAN 50 
ADD 1 TO OQVER-S0-CLUB, 
YALIDATION-RTN-EXIT. 


To execute this routine properly, the PERFORM statement should read: 


PERFORM YALIDATION-RTN THRU YALIDATION-RTN-EXIT+ 


A GO TO is permitted within VALIDATION-RTN since it causes a branch to 
VALIDATION-RTN-EXIT, which is still within the range of the paragraphs 
being performed. 

EXIT must be the only entry within the paragraph named VALIDATION- 
RTN-EXIT. We use the name VALIDATION-RTN-EXIT for documentation pur- 
poses, but any paragraph-name could be used, as in the following: 


PERFORM PARA-1 THRU PARA-2. 


+ 
' 
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PARA-1+ 
IF AMT IS NOT NUMERIC 
GO TO PARA-2, 
ADD 1 TO TOTAL-COUNT. 
ADD AMT TO TOTAL. 
IF AMT IS GREATER THAN 50 
ADD 1 TO OVER-S0-CLUB, 
PARA-2. 
EXIT, 


In summary, EXIT is a COBOL reserved word. When used, it must be the 
only entry within the paragraph. It is an instruction that performs no oper- 
ation. It is used to allow execution simply to pass over other statements or 
to transfer control back to the statement following the original PERFORM. It 
is used, when necessary, as an endpoint in a paragraph being performed. In 
the preceding example, we used the paragraph called VAL IDATION-RTN-EXIT 
to avoid processing incorrect data the same way we process valid data. 


Self-Evaluating Quiz 


Solutions 


1. A PERFORM statement causes execution of instructions at_______, After the 
PERFORM is executed, control returns to 


2, ________ statements should not be included within paragraphs executed by PER- 
FORM statements when they cause branches outside the range of the PERFORM. 


3. Indicate whether the following separate routines include correct sequences: 


(a) PERFORM RTN=1 THRU RTN=3, — (b) PERFORM RTN-1 THRU RTN-2, 
' ' 
RTN=15 RTN-1, 
ADD A TO B. ADD A TO B, 
IF B > Zi IF BY 21 
GO TO RTN-3, GO TO RTN-3, 
MULTIPLY B BY Cy RTN-2, 
RTN-2, MULTIPLY B BY C. 
DIVIDE C INTO D. RTN-3, 
RTN-3, MOVE C TO TOTAL, 


MOVE D TO TOTAL. 


4. To execute several sequential paragraphs by a PERFORM statement, the 
option is used. The format is : 

5. GO TO statements may be included within the named paragraphs using the THRU 
option as long as ___, 


6, —_______ is a COBOL reserved word that performs no operation and typically serves 
as an endpoint to a paragraph being performed. 


1. the named paragraph; the statement following the PERFORM 
2. GO TO 

3. (a) is correct; (b) transfers control outside the PERFORM range. 
4 


. THRU or THROUGH 


PERFORM paragraph-name-1 [(easauan paragraph name 


5. control is not transferred outside the range of the indicated paragraphs 
6. EXIT 
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eee Additional Forms of the PERFORM Statement 


A. PERFORM «++ UNTIL 
Format II of the PERFORM statement is as follows: 


Format II 


Any simple or compound condition can be specified. 


Examples 


64 72) 
HH nn 

nt HHH 

HL 

To use the UNTIL option in a meaningful way, the data-name or data-names 
used in the UNTIL clause should be altered within the paragraph(s) being per- 
formed. To say PERFORM PARA~1 UNTIL X = 5, for example, implies that x 
will change somewhere within PARA-1. If X remains as 3, for example, then 
PARA-1 will be performed indefinitely or until an abend occurs. 

If the condition indicated in the UNTIL clause is met at the time of exe- 
cution, then the named paragraph(s) will be executed 0, or no, times. If PER- 
FORM RTN-5 UNTIL X = 3 is executed and X equals 3 initially, then RTN-5 
will not be performed at all. This condition does not imply that an error has 
occurred. Keep in mind, then, that the condition in a PERFORM ++» UNTIL is 
tested before the named paragraph is executed. 

PERFORM statements, in their various formats, may be used in looping. A 
loop, as described in Chapter 10, is a repeated execution of a routine until a 
specific condition is met. In Chapter 10, looping was performed by using sim- 
ple PERFORM or PERFORM »++ UNTIL statements. In this chapter, we will see 
how other options of the PERFORM statement can also be used for looping. 


Example 1 Recall that we may write a routine to multiply two fields, 4 and 8, with the use of the 
app instead of the MULTIPLY. (For example, compute 4 x 3 as 4 + 4 + 4). 


Hi f 
H 


Ht rH FH 


Example 2 Write a routine to read a group of 10 records and print the total of the amount fields 
of all the records. The flowchart is depicted in Figure 16.3. 


| 
ae 
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Figure 16.3 
Flowchart of a routine to read 
a group of 10 records and print 
the total of the amount fields. 


MATN-MODULE. 
OPEN INPUT SALES~FILE 
OUTPUT PRINT-FILE, 
MOVE ZEROS TO COUNTER. 
READ SALES-FILE AT END MOVE 1 TO 
PERFORM CALC-RTN UNTIL COUNTER = 
MOVE TOTAL TO EDIT1. 
WRITE PRINT-QUT FROM TOTAL~REC 
AFTER ADVANCING 2 LINES, 
CLOSE SALES-FILE 
PRINT-FILE, 
STOP RUN, 
CALC-RTN+ 
ADD AMT TO TOTAL. 
ADD 1 TO COUNTER, 
READ SALES-FILE AT END MOVE 1 TO 


EOF, 
10 OR EOF = 


EOF. 


le 
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COUNTER, a WORKING-STORAGE item, is initialized at zero. This may be 
accomplished in the PROCEDURE DIVISION or with a VALUE clause in WORK - 
ING-STORAGE. Each time a record is read, COUNTER is incremented by one. 
When COUNTER equals 10, 10 records have been read and totaled. 

Note that the AT END clause and its associated MOVE 1 TO EOF in this 
illustration are used in case we run out of data before a full group of 10 records 
is read. Keep in mind, however, that the number of input records should be 
exactly equal to 10 if the total is to contain the sum of exactly 10 AMT fields. 

Suppose we wish to print totals for any multiple of 10 records. Again, we 
will perform the above operations until there are no more records. Note, how- 
ever, that COUNTER must be initialized at zero after every group of 10 records 
have been processed and that the set of instructions is designed to work only 
for an exact multiple of 10 records: 


MAIN-MODULE,. 
OPEN INPUT SALES-FILE 
QUTPUT PRINT-FILE, 
READ SALES-FILE AT END MOVE 1 TO EOF. 
PERFORM COMP-RTN UNTIL EOF = 1. 
CLOSE SALES-FILE 
PRINT-FILE, 
STOP RUN, 
COMP-RTN, 
MOVE ZEROS TO TOTAL, 
MOVE ZEROS TO COUNTER, 
PERFORM READ-RTN UNTIL COUNTER = 10, 
PERFORM PRINT-RTNs 
READ-RTN, 
ADD AMT TO TOTAL. 
ADD 1 TO COUNTER. 
READ SALES-FILE AT END MOVE 1 TO EOF. 
PRINT-RTN+ 
MOVE TOTAL TO EDIT1. 
WRITE PRINT-OUT FROM TOTAL-REC 
AFTER ADVANCING 2 LINES, 


This is an illustration of a double loop. COMP-RTN is performed until there 
are no more records, Within COMP-RTN we process 10 records at a time, print 
the total, and re-initialize TOTAL and COUNTER. Double loops are best coded 
with the use of PERFORM statements within PERFORM statements. 


The following, although not typically used in business applications, is useful in illus- 
trating program logic with a PERFORM statement. 

Each record has a value N. Find N!, called “N factorial.” N! = N x N-1 x N-2 
x... x 1. For example, 5!=5x4x3x2x*1=120,38!1=3x2x1=6 


MAIN-MODULE. 
OPEN INPUT INPUT-FILE 
OUTPUT PRINT-FILE. 
READ INPUT-FILE AT END MOVE 1 TO EOF, 
PERFORM CALC-RTN UNTIL EOF = 1, 
CLOSE INPUT-FILE 
PRINT-FILE. 
STOP RUN, 
CALC-RTN. 
MOVE N TO M+ PROD. 
PERFORM FACT-RTN UNTIL M = ie 
MOVE PROD TO FACTORIAL OF DETAIL-REC, 
WRITE PRINT-REC FROM DETAIL-REC 
AFTER ADVANCING 2 LINES. 
READ INPUT-FILE AT END MOVE 1 TO EOF. 
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FACT-RTNs 
SUBTRACT 1 FROM M, 
MULTIPLY M BY PROD. 


M and PROD are defined in WORK ING-STORAGE: M has the same PICTURE as N, and PROD 
is defined with a PICTURE that is large enough to hold the result. 


B. PERFORM «4. TIMES 


Another format for the PERFORM statement enables a paragraph or series of 
paragraphs to be executed several times: 


Format III 


a 


114) Pdi omesan-cAna-Ron aes.[01"7)| (|| |||] 


Example 5 Each customer indicates the number of credit cards desired, This data is entered in a 
tape field called NO-OF-COPIES. The tape record is illustrated below, along with the 
PERFORM statement used to print the desired number of credit cards. 


Paul a [- i KEE [| [. 8 To i ' TOLL 
RM ns EMRE | 
LoL | Con | 
| | | | LC] | | | 
| | 


-----PERFDRR-EREDIT=CBRD-N-ND-OF-EDPDES| ORES, || 


When using the format PERFORM paragraph-name data-name TIMES, several 
rules are applicable. The data-name indicated must be specified in the DATA 
DIVISION, have a numeric PICTURE clause, and contain only integers or zeros. 
To say PERFORM RTN-1 COPY-IT TIMES is valid if copy~1T has a numeric 
PICTURE clause and integer or zero contents. If CoPY-IT has zero as its value, 
then RTN-1 will be performed 0, or no, times. 

The word preceding TIMES may only be an integer or a data-name. It may 
not be an arithmetic expression. To say PERFORM PARA-1 B+1 TIMES is invalid 
unless you are using a 1985 compiler. 

The THRU option with the PERFORM ... TIMES format, or any other format, 
is not required. We may say PERFORM RTN-1 THRU RTN-8 5 TIMES, or we 
may say PERFORM RTN-3 5 TIMES. Both are correct instructions. 

Consider the following two instructions: 


16 20 4 28 Ey 36 40 a Er) 2 36 80 


aft TtTp | COU 
(2) | PI 4 S| | | 
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They will produce the same results if AAA 


the WORKING-STORAGE SECTION: 


has the following description in 


20 


2 Er 36, 40 cry 


cy 2 Ey i) o 


c|_I9 


| I | 


NAHE a, | 


When using the integer option with the PERFORM 
number is acceptable. We may not say PERFORM RTN-1 F 
unless FIVE is a field defined in the 


the actua. 


itself is used: PERFORM RTN-1 5 


HEHEHE HHH 


DA 
TIMES. 


AD 


is 


+++ TIMES format, only 


VE TIMES 


VISION. Typically, the integer 


Recall that in Example 1 we multiplied two fields, A and B, with the use of 


the ADD instruction instead of the MULTIPLY (e.g.,4x 3 = 4 + 4 + 4). The 
following illustrates the coding of this problem in a more complete form: 
7{8 Tz 16 20 24 28 32 36. 40 44 48 $2 56 60 64 68 72} 
CALIC-| TT It 1] : | ie 
U [ | THT i 
| = 
LI =|. Tait rit 
ant Het 
i Lt | | 
-RTNHL. | H ITI | 
Baa Lt fe IE ime! i 
| \ 
Sl B. ) | aa | rT rH | 
This problem may be coded with the PERFORM «+, TIMES as follows: 


CALC-RTN. 
OVE ZEROS TO 


OTAL+ 


PERFORM WRITE-RTN- 


RTN1i+ 
ADD A TO TOTAL: 


PERFORM RTNi B TIMES, 


READ ACCT-FILE AT END MOWE 1 TO EOF. 


When using a PERFORM +.+ TIMES statement, we do not decrease B. B 
should remain constant. If 8 = 3 and A = 4, for example, RTN1 would be 
executed three times; that is, €@ would be added to TOTAL three times. Twelve 
would then be the correct result in TOTAL. 

This procedure is another example of a loop. Recall that all loops may be 
executed with the use of either PERFORM or IF statements. 

Example 2 (reading 10 records and summing the amount fields) may be 


coded with the 


MAIN-MODULE. 
OPEN I 


INES option as follows: 


PUT SALES-FILE 


OUTPUT PRINT-FILE+ 


MOVE ZEROS TO TOTAL. 


READ SALES-FILE AT END MOVE 1 TO EOF. 


PERFOR 
MOVE TOTAL TO EDITIs 
WRITE PRINT-OUT FROM 
AFTER 
CLOSE SALES-FILE 
PRINT-FILE, 

STOP RUN, 
CALC-RTN+ 


ADD AMT TO TOTAL: 


READ SALES-FILE AT END MOVE i TO 


ADVANCING 2 


CALC-RTN 10 TIMES, 


TOTAL-REC 
LINES, 


EGF. 
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Suppose we wish to print five groups of 10 totals. That is, we wish to 
execute the above routine five times and then proceed to some other point in 
the program. The following coding is correct: 


MAIN-MODULE. 
OPEN INPUT SALES-FILE 
OUTPUT PRINT-FILE, 
READ SALES-FILE AT END MOVE 1 TO EOF, 
PERFORM FIRST-RTN 3S TIMES. 
CLOSE SALES-FILE 
PRINT-FILE. 
STOP RUN, 
FIRST-RTN4 
MOVE ZEROS TO TOTAL, 
PERFORM SECOND-RTN 10 TIMES, 
MOVE TOTAL TO EDITI. 
WRITE PRINT-OUT FROM TOTAL-REC 
AFTER ADVANCING 2 LINES, 
SECOND-RTN. 
ADD AMT TO TOTAL, 
READ SALES-FILE AT END MOVE 1 TO EOF. 


In this instance, we should have precisely 50 input records to process. 


C. PERFORM «+. VARYING 
The last format for a PERFORM statement is the most comprehensive: 


Format IV 


Examples 


-RITIN, VIARIVIIING! IciTikl_FIRlolM_lal =| | 
- RT iT ERIOM 4| 


| ry a! 


These two statements perform the same functions. CTR is used to control the number 
of times READ-RTN is performed and is not modified within the loop. 


Data-name-1 (CTR in the above examples) must be defined in the DATA 
DIVISION, usually in WORKING-STORAGE, and have a PICTURE clause large 
enough to hold the maximum value that it can assume. Thus, for the above 
examples, the following WORK ING-STORAGE entry would be appropriate. 


WORKING-STORAGE SECTION. 
Ol WORK-AREAS, 
05 CTR PIC 99, 


If CTR had a PIC of 9, a syntax error may not occur, but a logic error would 
most certainly result. 

It is not necessary to use a VALUE clause to initialize CTR, since CTR will 
automatically be initialized when the PERFORM ..+ VARYING is executed, 
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Other examples of the PERFORM ..+ YARYING option are as follows: 


i 1 20. 24 2 


t 
(3) 
| 


(4) 


Notice in Example 4 that the counter or loop control field can be decreased, 
rather than increased, each time through the loop. Most compilers also allow 
the initial value to be negative as well as positive. Check your specifications 
manual to be sure of the requirements of your compiler. 

Using the PERFORM +++ VARYING option, we have: 


PERFORM «++ VARYING 


Data-name-1 is used as a counter or loop control field and is typi- 
cally defined in WORK ING-STORAGE. 
This counter is initialized at the value in data-name-2, or integer-1. 
The loop counter is automatically tested for the condition specified. 
(a) If the condition is met, the named paragraph(s) are not executed. 
(b) If the condition is not met, the named paragraph(s) continue to 
be executed. 
After execution of the named paragraph(s), the counter is automati- 
cally increased (or decreased) by integer-2. or the contents of data- 
name-3. (Thus, the counter should not be altered within the named 
paragraphs.] Step 3 (testing of the counter) is then repeated. 


ee 


rk 


- 


Figure 16.4 illustrates the flowchart for this operation. 
Suppose we wish to sum all odd-numbered integers from 1 to 1001. We 
could use the PERFORM .++ VARYING format as follows: 


YYES 


Figure 16.4 
Logic of the 
PERFORM «++ VARYING, 


(CONTINUE WITH 
NEXT STATEMENT) 
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Figure 16.5 
Example of nested 
PERFORM loops. 


Outer loop. 
\ 


Inner loop 
\ 


Ill. The Use of the PERFORM Statement for Typical 
Business Applications 


A. Printing Totals for Individual Groups 


Figure 16.5 illustrates how a PERFORM ..+ YARYING can be used to print the 
class average of a final exam for each of 10 classes. For simplicity, we are 
assuming that each class has exactly 20 students and that each student took 
every exam. Thus 200 records will be read; we are assuming that the first 20 
records are for Class 1, the next 20 are for Class 2, and so on. 


WORKING-STORAGE SECTION, 


OL WORK-AREAS. 
OS CLASS-TOTAL PIC g(a), 
OS CLASS-CTR PIC oo. 
OS STUDENT-CTR PIC 88, 
OS EOF PIC 9 VALUE 0, 
Ol OUT-REC, 
OS FILLER PIC XC15) VALUE SPACES. 
OS FILLER Pr X¢22) 
VALUE ‘THE AVERAGE FOR CLASS 7, 
OS CLASS-NUMBER Pic 99, 
OS FILLER PIC XX} VALUE “IS /, 
OS CLASS-AVERAGE PIC 999,99, 
OS FILLER PIC X(85) VALUE SPACES. 
PROCEDURE DIVISION. 
MAIN-MODULE. 
OPEN PUT STUDENT-FILEs 
QUTPUT PRINT-FILE. 
READ STUDENT-FILE AT END MOVE 1 TO EOF, 
PERFORM RTN-1 YARYING CLASS-CTR FROM 1 BY 1 
UNTIL CLASS-CTR > 10, 
CLOSE STUDENT-FILE 
PRINT~FILE. 
STOP RUN. 
RTN=14 
OVE ZEROS TO CLASS-TOTAL, 
PERFORM CALC-RTN VARYING STUDENT-CTR FROM 1 BY 1 
UNTIL STUDENT-CTR » 20, 
PERFORM WRITE-RTN. 
CALC-RTN, 
ADD GRADE TO CLASS-TOTAL, 
READ STUDENT-FILE AT END MOVE i TO EOF. 
WRITE-RTN, 
OVE CLASS-CTR TO CLASS-NUMBER, 
DIVIDE CLASS-TOTAL BY 20 GIVING CLASS-AVERAGE, 
WRITE PRINT-REC FROM OUT-REC 
AFTER ADVANCING 2 LINES, 
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This program illustrates nested PERFORM loops, or PERFORMs within PER- 
FORMs. The basic rules for the execution of nested PERFORM .+. VARYING 
loops are as follows. 


RULES FOR EXECUTION OF NESTED PERFORM +++ VARYING Loops 


1. The innermost PERFORM «++ VARYING loop is satisfied first. 
2, The next outer PERFORM ..+ VARYING loop is then satisfied. 


In the above example, the innermost loop is controlled by: 


PERFORM CALC-RTN VARYING STUDENT-CTR FROM 1 BY 1 
UNTIL STUDENT-CTR * 20, 


The next loop (in this case the outer loop) is controlled by: 


PERFORM RTN-1 VARYING CLASS-CTR FROM i BY 1 
UNTIL CLASS-CTR * 10, 


We thus have the following sequence of values for CLASS-CTR and STUDENT - 
CTR in this program. 


Number of Times 


Through CALC-RTN CLASS-CTR STUDENT-CTR 
1 1 1 
2 1 2 
3 l 3 

20 1 20 
21 2 1 
2 2 
2 3 
40 2 20 
41 3 1 
3 2 
3 3 
60 3 20 
181 10 1 
10 2 
10 a 
200 10 20 
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The first time through CALC-RTN, CLASS-CTR is 1 and STUDENT-CTR is 1. 
After CALC-RTN has been executed, the computer increments STUDENT-CTR 
by 1 (specified in the PERFORM «+. VARYING) since the innermost loop is: 


PERFORM CALC-RTN VARYING STUDENT-CTR FROM 1 BY 1 
UNTIL STUDENT-CTR * 20, 


Stepping through the logic of a program using sample data as we have here 
is an example of a structured walkthrough, used to test program logic. 

An advanced use of the PERFORM statement enables you to use a single 
sentence for nested looping: 


44 cr [7 56 0) co cr 72 


SISI=ICIT. 
C 


—- 


=I 
w 


(=) 
a ie 


R 
SISIICITIR, {> 
YI HI 


2s 
EK 


TL 


BES 


et 


Using the AFTER option with the PERFORM... VARYING, CLASS-CTR starts 
at 1 and STUDENT-CTR varies from 1 to 20; then CLASS-CTR is 2 and STU- 
DENT~CTR again varies from 1 to 20, and so on, until CLASS-CTR exceeds 10. 


B. Printing Depreciation Tables 


1, The Straight-line Method of Depreciation 

The Internal Revenue Service permits a tax write-off depending on the ex- 
pected useful life of an asset. The amount to be depreciated or written off may 
be deducted from taxable income. For this reason, depreciation schedules are 
prepared by companies for many of their assets. In this way, each year’s write- 
off or depreciation is simply obtained from the table entry for that year. The 
asset’s value at any given time is referred to as its book value. This is equal 
to its initial value minus the accumulated depreciation. 

At the end of the anticipated useful life of an asset, its value should depre- 
ciate to the salvage or scrap value. Suppose, for example, that the useful life 
of an item such as an automobile is considered to be 5 years. If the car is 
estimated to have a value of $2000 at the end of 5 years, that amount is referred 
to as the salvage value. 

There are numerous ways of spreading depreciation over the life of an asset. 
In this section, we will consider the method referred to as straight-line de- 
preciation, which means that an amount equal to the original cost (purchase 
price] of an asset minus its salvage value may be written off each year through- 
out the asset’s depreciable or useful life. 

To prepare a depreciation table for a given asset using the straight-line 
method, we will use the problem definition shown in Figure 16.6. Beginning 
with the current period, we calculate depreciation as follows: 


Depreciation = (Purchase Price — Salvage Value}/Useful Life 


We wish to print a depreciation table indicating monthly depreciation val- 
ues. If, for example, an asset were expected to last for 6 years, 1/72, of the asset 
would be depreciated each month. This is because with straight-line depre- 
ciation the amount of depreciation is the same for each period. There would 
thus be 72 monthly depreciation figures printed out in the depreciation table. 

Tables are produced indicating the amount of depreciation or write-off each 
month from the current date to the end of the useful life of the asset, 

Suppose a piece of equipment has a purchase price of $11,000 and a salvage 
value of $1,000. We wish to produce a 3-year table of depreciation figures on 
a monthly basis. Thus, there will be 36 monthly periods to be calculated. 
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Figure 16.6 — Systems Flowchart 
Problem definition for straight- 7 
line depreciation program. 


DEPRECIATION-FILE DEPRECIATION-REPORT 
80-position 
records 


DEPRECIATION-FILE Record Layout 


The depreciation is calculated as follows: 
Price — Salvage value _ 11000 — 1000 


Number of Periods 36 
277.77 


Thus, the depreciation per month for each of 36 months is 277.77. Using 
straight-line depreciation, the rate is the same each month. 

A depreciation table might appear as shown in Figure 16.7. In the report, 
the figures have the following meanings: 


i] 


BEGINNING VALUE Initial value of the asset. 

MONTHLY DEPRECIATION Calculated as above (277.77 in our 
illustration); using the straight-line 
method, this figure will be the same for 
every month. 

END-OF-MONTH = BEGINNING VALUE - DEPRECIATION 
This is the value of the item at the end 
of the month specified. Thus, an item 
purchased for $11,000 is worth 
$10,722.23 after 1 month if you use 
straight-line depreciation to calculate 
value. 


THE PERFORM STATEMENT A413 


STRAIGHT LINE DEPRECIATION REPORT PAGE 6 

ITEM 777 
ITEM DESCRIPTION FLOOR PADS 
PURCHASE PRICE $50, 00 
SALVAGE VALUE $00 
USEFUL LIFE = 4 

mo YR BEGINNING MONTHLY END-OF-MONTH ACCUMULATED 

VALUE DEPRECIATION VALUE. DEPRECIATION 
1982 

06 B82 50. 00 8.33 41.67 8.39 

oF Be 41. 67 33 33:34 16, 66 

08 a2 33,34 8. 33 25:01 24.99 

oF a2 25.01 8.33 16. 48 93. 92 

10 82 16, 68 8.33 a 41. 65 

11 82 8.58 8, 35 50. 00 


Figure 16.7 
Sample straight-line 
depreciation report. 


ACCUMULATED DEPRECIATION This will be 277.77 for the first month, 
2 x 277.77 for the second, and so on. 


Initially, we have: 
BEGINNING VALUE = PURCHASE PRICE 


A COBOL program that produces a straight-line depreciation table is a rel- 
atively sophisticated one that makes extensive use of PERFORM statements. 
We illustrate it in Figure 16.8 in its entirety. It shows a typical business 
application that one is likely to encounter in a commercial environment. 

Assume one line of input for this problem is as follows: 


212 BUFFING MACHINE O1123980012500600583 


2. The Declining Balance Method of Depreciation 

We have thus far focused on straight-line depreciation. Another way of writ- 
ing-off depreciation is called the declining balance method. We will consider 
this method as well. 

With the declining balance method of depreciation, the percentage of de- 
preciation remains the same for each period in an asset’s useful life. That is, 
we may determine that for each period, 5% of a product’s value is to be 
computed as the depreciation. This means that the initial depreciation values 
will be greater than the final depreciation values because the initial balances 
are higher (e.g., 5% of 10,000 is greater than 5% of 4000). As with all methods 
of depreciation, the actual or book value of the asset at the end of the last 
period will be equal to the salvage value. This method is preferred in some 
businesses because it is believed to be more realistic. The actual decrease in 
a company’s asset is largest at the beginning and is reduced over time. When 
we purchase an automobile, for example, it loses most of its value the first 
year; the loss then tapers off over time. 

In this procedure, as in the previous one, the depreciation for the first year 
is based on the purchase price less the salvage value. Each year's depreciation 
is used to determine the depreciated value in subsequent years. 

Using the declining value method, depreciation is taken on the beginning 
balance for each period divided by the useful life of the product. In the straight- 
line method, depreciation was taken as a fixed amount based on the initial 
beginning balance (purchase price minus salvage value). The program in Figure 
16.9 illustrates how we can produce a declining balance depreciation table. 

In short, the two methods of computing depreciation described in this chap- 
ter are designed to familiarize you with typical business applications and to 
illustrate how the PERFORM statement can be effectively used. 
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Fi F IDENTIFICATION. DIVISION: 
srpivineane eater GpOnaaT di TaPieNy ite 
traight-line depreciation AUTHOR, CHRTSTORHER DAME. gana 
ronrain a°"THIg "PROGRAM WILL PROVIDE MANAGMENT x 
program. % WITH A DEPRECIATION REPORT_ON 


# COMPANY ’S EGUIPMENT USING THE STRAIGHT * 
% LINE DEPRECIATION METHOD. 
pee Ce eEE Cea ULL Deere rere 
ENVIRONMENT DIVISION. 

INPUT-OUTPUT SECTION. 

FILE-CONTROL. 


ORD 
ONH ODDIE aONHOGONOURUN 


1 
i 
1 SELECT DEPRECIATION-FILE ASSIGN TO DOTAZ 
1 ELECT PRINT-FIL ASSIGN TO SYSSOUTPUT. 
1 DATA DIVISION 
1 FILE SECT 
1 FD DEPRECTATION-FILI 
1 LABEL ‘RECORDS ARE, OMITTED, 
1 01 DEPRECTATION-RE 
2 PIC 999. 
‘ 2 88 LTEM-DescRre TION PIC X(17) 
‘ O5 PURCHASE-PRIC PIC 9(5)V99 
05 SALVAGE-Val PIG 9(5)V99 
24 O05 USEFUL-LIFE PIC 99. 
25 05 MM HIN PIC 99. 
26 99 YEAR 1 PIC 99. 
27 LEER PIC x(40) 
2g FD PRINTIE 
29 LABEL RECORDS ARE OMITTED. 
30 PRINT-RECORD PIC x(193) 
31 Bornitien STORAGE SECTION. 
32 WORK ARE: 
33 ‘OF PIC 2 VALUE ZERO. 
34 88 COUNTER PIC 999 VALUE ZERO 
35 93 PacE-CTR PIC 999 VALUE ZERO 
36 05 LINE-C PIC 99. VALUE ZERO 
37 oS eau eertta a PIC 9(5)V99 VALUE ZERO 
3a 5 BEGINNING: BALANC PIC 9(5)V99 VALUE ZERO 
39 05 END-OF-MONTH~BAL PIC 9(5)V99 VALUE ZERO 
40 98 ACCUMULATED HOEPRECIATION PIC 9(9)¥99 VALUE ZERO. 
41 05 BALAN PIC 9(5)V99 VALUE ZERO. 
42 01 HEADER 
43 OS FILLER PIC x¢g2) VALUE SPACES 
44 05 FILLER PIC X(S56) 
45 VALUE ‘STRAIGHT LINE DEPRECIATIO 
46 05 FILLER PIC x¢12) 
47 VALUE (REPORT ‘ 
48 OS FILLER PIC xX(10) VALUE SPACES 
ag 05 FIC PIC X(i8) 
50 VALUE ‘PAGE ’ 
51 Q5 PAGE-OUT PIC 229 
52 05 FILLER PIC X(5) VALUE SPACES 
53 01 HEADERS 
54 O5 FILLER PIC X(10) VALUE SPACES 
59 05 FICE! PIC k(6) 
56 VALUE ‘ITEM ¢ 
57 05 FILLE PIC Xx VALUE SPACES 
58 05 ITEM-NO-OUT PIC 999, 
59 05 FILLE PIC (112) VALUE SPACES 
60 01 HEADERS 
99 FILLER PIC X(10) VALUE SPACES 
62 05 FICU PIC x(18) 
63 VALUE ITEM DESCRIPTION * 
64 05 ITEM-DESCRIPTION-OUT PIC X(17) 
69 05 FILLER PIC X(@B) VALUE SPACES 
68 O01 HEADERS 
67 93 FILLER PIC xX(10) VALUE SPACES. 
68 05 FIL PIC xX(16) 
69 YALE” PURCHASE PRICE * 
70 Q3 PURCHASE PRICE-OUT PIC $$%, $99. 99 
71 05 FILLE! PIC K(97) VALUE SPACES. 
72 01 HEADERS. 
73 Q5 FILLER PIC xX(10) VALUE SPACES 
74 05 FI PIC X(15) 
73 VALUE “SALVAGE VALUE 
78 98 SALVAGE-VALUE-OUT PIC $$$, $99. 99 
77 05 FILLE PIC x(98) VALUE SPACES 
73 O1 HEADERS 
7? 05 FILLER PIC X(10) VALUE SPACES. 
80 05 FICLER PIC K(13) 
ei VALUE ‘USEFUL LIFE “ 
B2 05 USEFUL-LIFE-GUT PIC 29 
83 05 FILLE! PIC X(108) VALUE SPACES. 
84 01 HEADER? 
85 OS FILLER PIC X(35) VALUE SPACES 
05 FILLER PIG X¢11) 
8 VALUE ‘MO YR * 
88 OS FILLER PIC x(14) 
89 VALUE ‘BEGINNING 
90 05 FILL PIC x(13) 
ai VALUE ‘MONTHLY , 
92 05 FILLER PIC X(17) 
93 VALUE ‘END-OF-MONTH 
94 05 F PIC X(11) 
95 VALUE “ACCUMULATED ‘ 
96 05 FILLER Pic x¢a2) VALUE SPACES 
97 01 HEADERS. 
05 FILLER PIC x(48) VALUE SPACES. 
9 05 FIL PIC x¢12) 
100 LUE “VALUE 4 
101 05 FIL PIC X(16) 
102 VALUE ‘DEPRECIATION Z 
103 05 FILLER PIC x(14) 
104 VALUE “VALUE z 
105s PIC x12) 
108 
107 PIC x(28) VALUE SPACES. 
108 o1 
109 PIC X(55) VALUE SPACES 
110 PIC K¢4) 
112 08 APTEN-DESCRIPT ION OUT-1 PIC X¢17). 
113 FIL PIC K(47) VALUE SPACES 
114 o1 BEPRECTAT 10N-SCALE-OUTPUT 
5S FILLER PIC 
11g 03 MaNTH-oUT Bic econo VALUE SPACES 
pic 
118 33 YeaR=Gut BIC xx VALUE SPACES. 
PIC x(5) 
a3? o8 BEGINNING! -BALANCE-OUT PIC ZZ, 222.99. ici tiaiea 
PIC x(5) 
ig2 92 MONTHLY DEPRECIATION-OUT PIC Z,Z2Z. 99. itanmiabiua 
PIC X¢ 
igs oF Bh END -OE-MONTH-BAL.~QUT Pie 2402272. 99 pormariaiaga hae 
PIC X¢ 
126 os ACCUM DEP—oUT PIC e822. 99. VORURCSRACES! 
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tealtchsaL ES AON FILE aT END MOVE 1 TO EOF 


‘AD_ DEI 
DEPRECIATION ROUT 
a EEE AON RS aE SE aR a Lan a GE a a aE IEE 


%* THE BELOW DETERMINES THE MONTHLY DEPRECIATION % 
* FOR ITEM, SINCE THIS IG STRAIGHT LINE, ONLY 
% ONE COMPUTATION IS NEEDED FOR EACH MONTH OF * 
* Geer LIFE. * 
#* THE PROGRAM FLOW IS THEN SENT TO STRAIGHT LINE % 
# ROUTINE FOR MONTHLY DEPRECIATION SUBTRACTION, 

es 


SUBTRACT SALVAGE~VALUE FROM BURCHASE-PRIGE GIVING BALANCEL 
DIVIDE BALANCEL BY USEFUL"LIFE GIVING HON TULYEDEEREC TATION 
ROUNDED GN SIZE ERROR MOVE PERO YO MONTHLY ~=DEPREC TATION, 
PERFORM STRATGHT LINE ROUTING VARYING COUNTER BRON” 1 BY 1 
INTIL. COUNTER IS GREATER THAN USEFUL-LIFE. 
STRAIGHT” LINE ROUT INE. 
= ATER THAN 65 


TR IS GRE 
AFR CONTINUE-ROUT INE, 
iF COUNTS 1 
MOVE BU IRCHASE— PRICE TO BEGINNING~BALANCE. 

ELSE MOVE END-OF-MONTH=BALANCE TO BEGZBNTNOESCANGE: 
JHE DIEEEIHE EH IEEE IEEIEE SMELT IERIE EI IEGIE IESE IE ISN: 
* IF THE COUNTER i EQUAL TO ONE (THE FTES Tine ad 
a# THROUGH THE COOP * 
# FOR A BEGINNING BALANCE: OTHERWISE THe END OF 
# MONTH BALANCE IS USED FOR BEGINNING BALANCE a 


IF CQUNTER IS EQUAL TO USEFU LL IFE 
PERFORM LAST-YEAR-DEPRECIATION 


SUBTRACT MONTHLY-DEPRECIATION FROM BEGINNING=BALANCE GIVING 


END~OF ~MONTH=BALANCE 
60D MONTHLY: DEPRECIATION TO ACCUMULATED-DEPREC LATION, 
(OVE MONTH: MONTH-OUT, 


HVE YEAR=IN TO YEAR=QUT. 


G LANCE TO BE jm OUT, 
MOVE MONTHLY-DEPRECIATION TO MONTHLY-DEPRECIATION-OUT, 
pave ACCUMULATED™DEPRECIATION TO ACCUM-DEP~OUT. 
E END-QF—MONTH~BALANCE TO END~ pee MONTH=BAL.-QUT. 
BERFORM PREREC IAT ION™ BGALES| ROUT IM 


is 


127 OS FILLER PIC x(a4) VALUE SPACES 
Baur: 16 8 ibs or Os*PitceR PIC x(a) VALUE SPACES 
Continued 139 05 FILLER PIC XX 

131 VALUE /19" 

132 gg NEW-YEAR PIC 99. 

133 05 FILLER PIC x(45) VALUE SPACES 

134 o1 Aeaber™ TEINAL. 

139 99 FIL PIC X(10) VALUE SPACES 

136 FILE pIé kia) 

13 BaLUE END OF REPORT’ 

13) 05 FILLER PIG X(110) VALUE SPACES 

19 PROCEDURE DIVISION. 

14 MAINI. 

bet OPEN Nee Perera hate FILE 

14 READ DEPRECTATION-FICE AT END MOVE 1 TO EOF 

14 PERFORM REPORT-ROUTINE UNTIL EOF 

14! PERFORM EOF-ROUTINE, 

14 CLOSE DEPRECLATION-FILE 

14 PRINT=FILE. 

14 STOP RUN. 

14 REPORT-ROUT Iii 

19 PERFORM ZERO-ROUTINE 

15 Per tifa trl tani finite that ean 

15: # THE ZERO ROUTING WILL EXECUTE AT THE 

15: } BEGINNING OF EACH NEW INPUT TO INITIALIZE x 

15) t EACHARILD BEFORE NEW PROCESSING OCCURS * 

15: RIES HERE DIRGESEILEIS EEG EEEHEHE BEE AEE IEEE 

15. PERFORM HEADER ROUTINE, 

15 PERFORM SUB~1-ROl 

15 PERFORM SUB-2~ 

15 PERFORM VEAR~ INETEALIZATION= ROUTINE. 

16 PERFORM DEPRECIATION -RO 

4 

6 

ry 

6 

4 

é 

6 

rs 

2 

7 

7 

7 


SOSONGU SON OVONG TRON OGENGGSONHODONEURONEODDNOU SUNHODONCGRUNHO ODN 
im 
T 
Ze 
i 
3 


ADRs rene pepieietet nent eee eee EL 


0995900099 01ND OMMAMMO WY 


B01 TF MONTH IN 1S QU 
202 ERFORM YEARS ADDOROUT INE, 

203 app 4 LI TR. 

204 ABB 1 To, MONTH: EN: 

205 YEAR-ADD-ROUT INE. 

206 MOVE (0, TO MONTH: IN. 

207 ADD 1 TO YEAR~ 

208 BEREORM YEAR SINT TIAL I ZATION-ROUTINE 

209 SUB~1=ROUTINE. 

210 MOVE ITEM-NO TO ITEM-NO-OUT. 

211 MOVE ITEM DESCRIPTION TO ITEM-DESCRIPTION-OUT. 

212 MOVE PURCHASE-PRICE TO PURCHASE-PRICE-QUT. 

213 MOVE SALVAGE -VALUE TQ sALvage-VaLUe~ ‘Our. 

214 FU USEFUL-L IF 

215 HE FTER ADVANCING 9 LINES 
216 HEADERS AFTER ADVANCING 2 LINES. 
giz HEADER4 AFTER ADVANCING 2 LINES: 
218 HEADERS AFTER ADVANCING 2 LINES: 
212 HEADERS AFTER ADVANCING 2 LINES. 
Bat 65 

222 

aes FROM DEPRECIATION-SCALE~ —QUTPUT AFTER 
225 

226 

227 RFORM PAGESCOUNTER ROUTINE, 

228 PAGE-COUNTER ROUTINE 

229 JERI IRIE EDIGHES HEMI LE IHILIE EIFS IEEE IE 

230 * THIS ROUTINE MOVES ITEM DESCRIPTION # 

231 * PAGE FOR ITEMS * 

232 % REQUIRING MORE THAN ONE PAGE FoR * 

233 IT. ELLS WHAT ITEM IS * 

234 BEING PROCE! * 

235 JESSIE GEG SELSPILE SESE IESE EOE IESE IEE SESH aE IE AE IEAAEAE 

236 MOVE ITEM DESCRIPTION 10, 1TEM-DESCRIPTION-GUT 

237 WRITE PRINT-RECURD FROM HEADER? AFTER ADVANCING 1 LINES, 
238 BEREORM SUB-O-ROUT INE. 

239 ie 8 TO R 

240 SUB-2-ROUTINE. 

241 WRITE PRINT-RECORD FROM HEADER7 AFTER ADVANCING 2 LINES 
243 WRITE PRINT-RECORD FROM HEADER@ AFTER ADVANCING 1 LINES 
243 MOVE 20.10 LINE-CTR. 

244 ZERO-ROUTIN 

249 MOVE ZERO TO MONTHLY-DEPREGIATION. 

246 MOVE ZERO TO END-OF~MONTH-BALANCE, 

247 MOVE ZERD TO ACCUMULATED-DEPRECIATION 

248 EOF-ROUTING 

249 IF CINE-CTR IS GREATER THAN 60 

250 PERFORM HEADER-ROUT INE. 

251 ITE PRINT=RECORD FROM HEADER-FINAL AFTER ADVANCING 5 LINES, 
252 YEAR INITIAL IZATION-ROUTINE, 

253 LINE-CTR IS GREATER THAN 60 
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PERFORM CONTINUE-ROUTINE 
FAR—-IN TO NEW-YEAR 


WRITE PA 


AGE~CTI 
TR_TO 


INT-RECORD FROM HEADER-NEW-YEAR AFTER ADVANCING 2 LINES. 
ADD 3 TO LINE-CTR 

HEADER-ROUTINE, 

ADD 1 70 R 

Gi PAGE-OUT 

=RECORD FROM HEADER1 AFTER ADVANCING PAGE. 

EC LATION 


MOVE SACVAGE-VALUE TO END~-OF-MONTH-BALANCE. 
COMPUTE, MONTHLY-DEPRECIATION = (BEGINNING-BALANCE - SALVAGE-VALUE) 


ITEM 212 

ITEM DESCRIPTION 
PURCHASE PRICE 
SALVAGE VALUE 
USEFUL LIFE 60 


STRAIGHT Line DEPRECIATION REPORT Page 


BUFFING MACHINE 


$1,123. 91 
$125, 00 


8 


3 
6 


4600000 
NHODONeG 


HHHO090900000 
NHODGIFaGSON= 


+ goo0 
30n= 


YR BEGINNING MONTHLY END-OF MONTH ACCUMULATED 
VALUE. DEPRECIATION VALUE, DEPRECIATION 
1983 
ike} 1,123, 98 16. 65 1,107.33 16. 65 
83 1,107. 33 16. 65 1,090. 68 33, 30 
33 1,090, 68 16. 65 1,074. 03 49. 95 
83 1,074. 03 16.65 1,057. 38 66. 60 
83 1,057, 38 16. 65 1,040.73 83. 25 
83 1,040. 73 16. 65 1,024. 08 99. 90. 
83 1,024. 08 16, 65 1,007. 43 116, 55 
8a 1,007. 43 16, 65 990. 78 133. 20 
1984 
84 990, 78 16, 65 974.13 149.85 
84 974,13 16. 65 957. 48 166. 50 
a4 957, 48 16. 65 940, 83 183.15 
a4 940. 63 16. 65 924,18 199. 80 
84 924.18 16. 65 907. 53 216.45 
a4 907. 52 16. 65 890, 88 233. 10 
a4 890. BB 16. 65 874. 23 249.75 
a4 874. 23 16. 65 857. 58 266, 40 
a4 857. 58 16. 65 840. 93 283.05 
aq 840. 93 16. 65 924. 28 299. 70 
84 824. 28 16.65 807. 63 316.35 
a4 607. 63 16. 65 790. 78 333, 00 
1988 
ee 191, 14. 69 174.93 749,09 
88 174. 93 16, 65 158. 28 965.70 
I} 158. 28 16. 65 141, 63 982.35 
88 141 16. 63 125.00 998, 98 


1 


I. 


CHAPTER SUMMARY 
Formats of the PERFORM statement 
A. Simple PERFORM statement 
1. Causes execution of the instructions at the named paragraph. 
2. After execution of the named paragraph, control is tranferred to the 
statement directly following the PERFORM. 
B. PERFORM ... THRU statement 
1. Causes execution of the instructions beginning at the first paragraph 
and terminating at the end of the second paragraph. 
2. GO TOs are only permitted within the range of the named para- 
graphs. 
C. PERFORM ... UNTIL statement 
1. The data-name(s) used in the UNTIL clause must be altered within 
the paragraph(s) being performed; otherwise, the paragraphs will be 
performed indefinitely. 
2. If the condition in the UNTIL clause is met at the time of execution, 
then the named paragraph(s) will not be executed at all. 
3. The THRU option can be included with this format. 
D. PERFORM ... TIMES statement 
1. Only a data-name or an integer can precede the word TIMES; an 
arithmetic expression cannot be used. 
2. If a data-name is used to indicate the number of times the named 
paragraph(s) are to be performed, it must: 
(a) Be specified in the DATA DIVISION. 
(b) Have a numeric PICTURE clause. 
(c) Contain only integers or zeros. 
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Figure 16.9 
Declining balance depreciation 


IDENTIFICATION DIVISION. 
PROGRAM-ID. DECLN-SC. 

AUTHOR. CHRISTOPHER D HAMMEL. 

ABR BOMBER IEEEEEEI EEE HOE ESET IIEIE 
* THIS PROGRAM WILL PROVIDE MANAGEMENT = # 


ff 
2 
cc} 
$ 
program. a % WITH A DEPRECIATION REPORT ON THE * 
7 % COMPANY ’S EQUIPMENT USING THE * 
8 % DECLINING SCALE METHOD, * 
9 THB URES UGHEIDI AIEEE EIGER IEE RIEE EI EPIRA EAE 
10 ENVIRONMENT DIVISION. 
it INPUT~QUTPUT SECTION. 
12 FILE-CONTROL, 
13 SELECT DEPRECIATION-FILE ASSIGN TO DATAZ. 
14 SELECT PRINT-FILE ASSIGN TO SYSSOUTPUT. 
ig DATA DIVISION. 
16 FILE SECTION, 
17 FD DEPRECIATION-FILE 
18 LABEL "RECORDS ARE OMITTED. 
19 1 DEPRECIATION-RECORD. 
20 OS ITEM-NO PIC 999, 
21 05 ITEM-DESCRIPTION PIC XC17) 
22 05 PURCHASE-PRICE PIC 9(5)V99, 
23 05 SALVAGE-VALUE PIC 9(5)V99. 
24 OS USEFUL-LIFE PIC 99. 
25 05 MONTH=IN PIC 99. 
2 05 YEAR~1 PIC 99. 
27 05 FILLER PIC x(4o> 
2a FD PRINT-FILE 
27 LABEL RECORDS ARE OMITTED, 
30 01 PRINT-RE PIC x(193) 
31 WORKING-STORAGE SECTION, 
32 Oi WORK-AREA, 
39 05 EOF PIC 9 VALUE ZERO. 
34 OS COUNTER PIG 999 VALUE ZERO. 
39 05 PAGE-CT! PIC 999 VALUE ZERO 
36 05 LINE~CTR PIC 99 VALUE ZERO. 
37 05 MONTHLY-DEPRECIATION PIC 9(5)V99 VALUE ZERO. 
38 05 BEGINNING-BALANCE PIC 9(5)V99 VALUE ZERO. 
37 05 END-OF-MONTH=BALANCE, PIC 9(5)V99 VALUE ZE! 
40 05 ACCUMULATED-DEPRECIATION PIC 9(5)V99 VALUE ZERO 
ai 05 BALANCEL PIC 9(5)V99 VALUE ZERO 
42 01 HEADER 
43 O5 FILLER PIG X(30) VALUE SPACES, 
44 05 FILLER PIG (40) 
45 VALUE ‘DECLINING sc ALE DEPRECIATION *%, 
4é 05 FICLE PIc x(12) 
a7 VALUE (REPORT ‘ 
48 05 FILLER PIC X(15) VALUE SPACES. 
ag 05 FILCER PIC X(@) 
50 VALUE ‘PAGE * 
51 05 PAGE-OUT PIC 229. 
52 05 FILLER PIC X(5) VALUE SPACES. 
53 01 HEADERS. 
54 05 FILLER PIC X(10) VALUE SPACES. 
55 05 FICCER PIC x(4) 
56 VALUE ITEM 
57 0S FILLE PIC XX VALUE SPACES. 
58 05 1TEM-NO-OUT PIC 999, 
59 05 FILLER PIC x(iiz) VALUE SPACES, 
60 O1 HEADERS. 
61 OS FILLER PIC X(10) VALUE SPACES. 
62 05 FILLER pic x¢(1@) 
63 VALUE ‘ITEM DESCRIPTION 
64 05 LTEM-DESCRIPTION-OUT PIC X(17), 
65 05 FILLER PIC X(BB) VALUE SPACES, 
6 01 HEADER. 
67 05 FILLER PIC X(10) VALUE SPACES 
6a 05 FILCER PIG X(16) 
6? VALUE ‘PURCHASE PRICE ’. 
70 OS BURCHASE-PRICE-GUT PIC $44, 6%. 99. 
ai 05 FILLER PIG x(97) VALUE SPACES. 
72 01 HEADERS. 
73 05 FILLER PIC X(10) VALUE SPACES, 
74 05 FILLER PIC X(18) 
75 VALUE ‘SALVAGE VALUE‘, 
78 05 SAL VAGE-VALUE-~OUT PIC #H%, 89%. 99, 
77 05 FILLER PIC x(98) VALUE SPACES. 
78 01 HEADERS. 
79 OS FILLER PIC X(10) VALUE SPACES. 
80 05 FILLER PIG x(13) 
si VALUE “USEFUL LIFE ’, 
82 05 USEFUL=LIFE-GUT PIC 729, 
89 05 FILLER PIC X(10a) VALUE SPACES. 
a4 Ot HEADER?, 
85 05 FILLER PIC X(35) VALUE SPACES. 
86 05 FILLER PIC XC11) 
87 VALUE /Ma YR ts, 
88 05 FILLER PIC x(14) 
a9 VALUE ‘BEGINNING oF 
90 05 FILLE PIC X(1a) 
91 VALUE” MONTHLY 
92 05 FILLER PIC X(17) 
fe] VALUE /END-OF-MONTH ¢ 
9 os F PIG XC1L) 
95 VALUE “ACCUMULATED ’, 
26 01 HEADERS. 
97 0S FILLER PIC x(4B) VALUE SPACES 
98 05 FILLER PIG K(12) 
99 VALUE” “VALUE LF 
100 05 FILLER PIC X(16) 
101 YALUE (DEPRECIATION ts 
102 05 FILLER PIC X(14) 
103 VALUE “VALUE ts 
104 05 FILLER PIC x(12) 
105 VALUE ‘DEPRECIATION’, 
106 OS FILLER PIC x(28) VALUE SPACES, 
107 01 HEADERS 
108 OS FILLER PIC X(55) VALUE SPACES. 
109 05 FICL PIC x(a) 
110 VALUE ‘FOR * 
iii O5 ITEM-DESCRIPTION-OUT~1 PIC X(17). 
112 05 FILL PIC x(a7) VALUE SPACES. 
113 01 DEPRECTATION-SCALE-OUTPUT, 
114 OS FICLER PIC X(35) VALUE SPACES, 
1 33 epee Bre ay 
G Xx VALUE q 
i eB oie Be ak sean 
PIC x(5) VALUE SPACES, 
119 05 BEGINNING~BALANCE-OUT PIC ZZ) 222. 99. 
120 05 F PIC X(S) VALUE SPACES. 
121 05 MONTHLY-DEPRECIATION-QUT PIG ZZ, ZZZ. 99, 
123 05 FILLER PIC x(4} VALUE SPACES, 
fest ae BAe ae CONTE Bie DU PIC ZZ, 222. 99, 
PIC x(@) VALUE SPACES, 
125 05 ACCUM=DEP-oUT PIC 22,222. 99. 
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OS FILLER PIC x(a4) VALUE SPACES 
O1 HEADER-NEW-YEAR 

OS FILLER PIC X(6a) VALUE SPACES, 

05 FILLER PIC Xx 

VALUE “19° 

OS NEW-YEAR PIC 99. 

OS FILLER PIC x(65) VALUE SPACES. 
O01 HEADER-F INAL. 

OS FILLER PIC x(10) VALUE SPACES 

O05 FILLER PIC xX(13) 

VALUE "END OF REPORT‘ 

OS FILLER PIC X¢(107) VALUE SPACES 
PROCEDURE DIVISION 


OPEN INPUT _DEPRECIATION-FILE 

OUTPUT PRINT-FILE 
READ DEPRECIATION-FILE AT END MOVE 1 TO EOF 
PERFORM REPORT-ROUTINE UNTIL EOF = 1 
PERFORM EOF-ROUTINE 
CLOSE DEPRECIATION-FILE 

PRINT-FILE 


Hi a 
PERFORM SUB-1-ROUTINE, 
PERFORM SUB-2-ROUT INE. 


DEPRECIATION-ROUT INE. 
TF COUNTER IS EQUAL TO 1 
SUBTRACT SALYAGE-VALUE FROM PURCHASE-PRICE GIVING 
BEGINNING-BALANCE 
ELSE MOVE END-OF-MONTH-BALANCE TO BEGINNING-BALANCE 
JR SRIEI IE HISEIEIUMIGRETE EE ER SEILEIIDI A IGE GEE GEEEIHEIOE 
+ IF COUNTER IS EQUAL TO ONE (FIRST TIME THROUGH * 
* THE LOOP) THE BEGINNING BALANCE IS THEN TAKEN * 
% FROM PURCHASE PRICE ~ SALVAGE VALUE. THIS IG FOR * 
* THE FIRST MONTH OF DEPRECIATION ONLY. OTHERWISE #* 
% END OF MONTH BALANCE IS USED FOR BEGINNING BAL. * 
YE HIDIH HIE a UHR aE EEE IEEEEa HE HEHEHE 
COMPUTE MONTHLY-DEPRECIATION = BEGINNING~BALANCE/USEFUL-LIFE 
SIERRA BST SEE Ia HIE Sa EIB LAE IEEE EEEG EDA HEHE 
% MONTHLY DEPRECIATION IS COMPUTED, IT IS DIFFERENT * 
% FOR EACH MONTH, THE AMOUNT _OF DEPRECIATION DECLINES * 
# EACH MONTH UNTIL USEFUL LIFE IS REACHED. * 
Se ESE abe a eit 2 bot EEE IESE UEHARA EIE EIEIO EIIIEE EI 
SUBTRACT MONTHLY-DEPRECIATION FROM BEGINNING-BALANCE GIVING 
END-OF ~MONTH~BALANCE 
IF COUNTER IS EQUAL TO USEFUL-LIFE 
PERFORM LAST-YEAR—DEPRECIATION. 
GHEE ESHEETS IEEE IA EE Sb Ear aEIFI HEHEHE aL IE IEEE EI ab IE EEE Tat 
%# THE COUNTER IS TESTED TO SEE IF IT HAS REACHED USEFUL * 
% LIPE, IF IT HAS, MONTHLY DEPRECIATION MUST BE DETERMINED * 
# TN THE LAST YEAR DEPRECIATION ROUTINE. * 
GEIS HIEI EEE GG SEES HEEB EHS HEEL EEE EEE A 
ADD_MONTHLY-DEPRECIATION TO ACCUMULATED-DEPRECIATION. 
MOVE MONTH=IN TO MONTH-QUT, 
MOVE YEAR-IN TO YEAR~OUT. 
MOVE BEGINNING=BALANCE TO BEGINNING~BALANCE-OUT 
MOVE MONTHLY-DEPRECIATION TO MONTHL,Y-DEPRECIATION-OUT, 
MOVE ACCUMULATED-DEPRECIATION TO ACCUM-DEP-OUT 
MOVE END=-OF=MONTH-BALANCE TO END-OF-MONTH-BAL-OUT. 
IF LINE-CTR IS GREATER THAN 65 
PERFORM CONTINUE-ROUTINE 
PERFORM DECLINING-SCALE-ROUT INE 
IF MONTH=IN TS EQUAL TO 12 
PERFORM YEAR-ADD-ROUT INE 
ADD 1 TO MONTH=INv 
ADD 1 TO LINE-CTR 
YEAR~ADD-ROUTINE 
MOVE O10 MONTH=IN 
ADD 1 TO YEAR-IN 
PERFORM YEAR-INITIALIZATION-ROUT INE. 
SUB-1-ROUT INE 
MOVE ITEM-NO TO ITEM-NO-OUT 
MOVE ITEM-DESCRIPTION TO ITEM-DESCRIPTION-OUT 
MOVE PURCHASE-PRICE TO _PURCHASE-PRICE-QUT 
MOVE SALVAGE-VALUE TO SALVAGE-VALUVE-OUT. 
MOVE USEFUL=LIFE TO USEFUL-LIFE-OUT. 


Col HEADERS AFTER ADVANCING 3 LINES 
I =COR! HEADERS AFTER ADVANCING 2 LINES 
‘4 ‘COR HEADER4 AFTER ADVANCING 2 LINES. 
IN COR HEADERS AFTER ADVANCING 2 LINES 
AN cor HEADERS AFTER ADVANCING 2 LINES. 
C s Gl THAN 65 
‘ORI INTINUE-ROUT INE, 
INT-RECORD FROM DEPRECIATION-SCALE-OUTPUT AFTER 
ADVANCING 1 CINE 
CONTINUE-ROUT INE 
PERFORM HEADER-ROUTINE, 
PERFORM PAGE-COUNTER-ROUT INE 
PAGE-COUNTER-ROUTINE 


ROUTINE 
MOVE § TO LINE-CTR 
SUB~2~ROUT INE. 
WRITE PRINT-RECORD FROM HEADER7 AFTER ADVANCING 2 LINES 
WRITE PRINT-RECORD FROM HEADER@ AFTER ADVANCING 1 LINES 
MOVE 20 TO LINE-CTR 
ZERO-ROUT INE 
MOVE ZERO TO MONTHLY-DEPRECIATION: 
MOVE ZERO TO END-OF-MONTH-BALANCE, 
MOVE ZERO TO ACCUMULATED-DEPRECIATION 
EOF-ROUTINE 
IF (LINE-CTR IS GREATER THAN 60 
PERFORM HEADER-ROUT INE, 
WRITE PRINT-RECORD FROM HEADER-FINAL AFTER ADVANCING 5 LINES 
YEAR-INITIALIZATION-ROUTINE 
IF LINE-CTR IS GREATER THAN 60 
PERFORM CONTINUE—ROUTINE 
MOVE YEAR-IN TO NEW-YEAR 
WRITE PRINT-RECORD FROM HEADER-NEW-YEAR AFTER ADVANCING 2 LINES 
ADD 9 TO LINE-CTR 
HEADER-ROUT INE 
ADD 1 Tt) PAGE-CTR 
MOVE PAGE-CTR TO PAGE-OUT. 
WRITE PRINT-RECORD FROM HEADER1 AFTER ADVANCING PAGE. 
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LAST-YEAR~ DEPRECIATION. 
SIAEORHHTAAEENS ER EA HARE ERAN EE NHNHAMHHLM MUMS AHN MA ARETE IE 


LIFE IS REACHED THEN END OF MONTH BALANCE 


% WHEN USEF! 


# SHOULD EQUAL ENE L eS, 


VALUE. 
GINNING BALANCE ~ SALVAGE VALUE 


THE MONTHLY DEPRECIATION %* 


ADD END-OF —MONTH-BALANCE TO MONTHLY -DEPRECIATION. 
COMPUTE. MONTHLY {DEPRECIATION 

IGNTHCYSDEPRECIATION ~ SALVAGE-VALUE), 
MOVE SALVAGES nUALUE TO END-OF~MONTH~BALANCE. 


ITEM ala 


ITEM DESCRIPTION 


PURCHASE PRICE 
SALVAGE VALUE 
USEFUL LIFE 60 
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DECLINING SCALE DEPRECIATION REPORT Page 1 


BUFFING MACHINE 


$1,123. 98 
$125, 00 


fal 


HHH90000 
DHOLDVSG 


mmO999000900 
DHOSOVEGSON= 


+ e990 
200= 


YR BEGINNING MONTHLY END-OF-MONTH ACCUMULATED 
VALUE DEPRECIATI VA DEPRECIATION 
1983 
83 998. 98 16, 64 982.34 16. 64 
83 982. 34 14, 37 965, 97 33.01 
83 965. 97 14, 09 949, BB 497.10 
a3 949, 8S 15, 83 934, OS 64,93 
aa 934. 05 13, 36 9718, 49 B80. 49 
83 718, 49 15,30 9703. 19 93.79 
83 903. 19 15.05 Bes. 14 110, 84 
83 gee. 14 14, 80 873, 34 125, 64 
1984 
a4 873, 34 14.55 858.79 140,19 
84 858. 14.31 844, 48 154, 50 
84 844, 48 14, 07 B30, 41 168, 57 
B84 B30, 41 13. 84 816, 57 182. 41 
84 816, 57 13. 60 802, 97 196. O1 
84 802. 97 13, 38 789, 59 209. 39 
B4 789. 59 13.15 776, 44 222. 94 
84 776. 44 12.94 743. SO 235. 48 
84 743. 50 12.72 750. 78 248. 20 
84 750. 78 12. $1 798, 27 260. 71 
a4 738. 27 12.30 725. 97 273. OL 
a4 725.97 12. 09 713. 88 285.10 
1988 
88 389, 75 6.49 383. 46 615, 52 
88 383. 46 6.39 377. 07 621, 91 
88 377. 07 6. 28 370,79 628. i9 
88 370. 79 245, 79 125, 00 873. 98 
3. An integer may be specified (e.g., 8 TIMES), FIVE TIMES is invalid 


unless FIVE is a data-name. 
4, The THRU option can be included with this format. 


E. PERFORM ... VARYING statement 


1. The counter or loop control field must be defined in the DaTA 


loop control field is not required. 
2. The PERFORM 4.» YARYING automatically does the following: 
(a) Initializes the counter with the value specified in the FROM 
clause, 
(b) Tests the counter for the condition specified in the UNTIL 
clause. 


the condition specified in the UNTIL clause is satisfied, 


UNTIL. clause is not met. 

(e) After execution of the named paragraph(s), increases (or de- 
creases) the counter by the value of the integer or data-name 
specified in the VARYING clause. 

3. The THRU option can be included. 


Il. Additional Considerations 
A. PERFORM statements within PERFORM statements are permissible. 


These are called nested PERFORM. 


B. EXIT is a reserved word that can be used to indicate the endpoint of 


paragraph(s) being performed. EX1T must be the only entry in a para- 
graph when it is used. 


DIVISION, typically in WORKING-STORAGE. An initial VALUE for the 


(c) Continues with the statement directly following the PERFORM if 


(d) Executes the named paragraph(s) if the condition specified in the 
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CHAPTER SELF-EVALUATING QUIZ 


1. After a PERFORM statement is executed, control returns to 


If PERFORM RTN-1 X TIMES is executed and x is equal to 0, RTN-1 will be 
performed _______ times. 


. PERFORM PARA-1 ITEMX TIMES is valid only if 1TEMX has contents of 


or 


How many times will the paragraph named ROUTINE be executed by the following 
PERFORM statements? 

(a) PERFORM ROUTINE VARYING X FROM 1 BY 1 UNTIL X = 10, 

(b) PERFORM ROUTINE VARYING X FROM 1 BY 1 UNTIL X > 10, 

(c) PERFORM ROUTINE VARYING X FROM © BY 1 UNTIL X = 10, 


. Write a PERFORM routine to add A to B five times using (a) the TIMES option, 


(b) the UNTIL option, (c) the VARYING option. 


What, if anything, is wrong with the following routines (Questions 6-8}? 


6. 


10. 


Solutions 


PERFORM RTNX VARYING A FROM 1 BY 1 UNTIL A > 20, 


’ 


RTN-Xe 
ADD C TO B. 
ADD 1 TO As 
PERFORM PARA-S 8 TIMES, 
STOP RUN. 
PARA-5. 
IF A = B GO TO RTNG, 
ADD A TO By 
RTNS, 
ADD 5 TO B. 
PERFORM RTNX UNTIL CTR = 8. 
STOP RUN. 
RTNX« 
ADD A TO Be 
ADD 1 TO CTR. 
IF CTR = 8 STOP RUN. 


Using the TIMES option of the PERFORM statement, restate the following: 


MOVE O TO Xi, 
PERFORM RTN-X UNTIL X1 = 10, 
RTNXy 


+ 
' 


ADD 1 TO Xt+ 


Using the VARYING option of the PERFORM statement, write a routine to sum all 
even numbers from 2 to 100. 


Page 
the statement directly following the PERFORM 393 
no 405 
0; an integer 405 
9 times; 10 times; 10 times 408 
(a) PERFORM BEGIN 5 TIMES. 406 


+ 
’ 


BEGIN. 
ADD A TO B, 
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(b) MOVE 1 TO CTR. 404 
PERFORM BEGIN UNTIL CTR = B. 


+ 
+ 


BEGIN, 
ADD A TO By 
ADD 1 TO CTR. 
(c) PERFORM BEGIN YARYING N FROM i 407 
, BY 1 UNTIL N > 5, 


‘ 
’ 


BEGIN, 
ADD A TO B. 


6. A, the data-name in the PERFORM statement, should not be changed at RTNX. 408 
It is incremented automatically by the PERFORM ... VARYING statement. 

7. PARA-5, a paragraph executed by a PERFORM statement, should not have a 398 
Go TO that transfers control outside its range. The following is valid: 


PERFORM PARA-~S 8 TIMES, 
STOP RUN, 
PARA-S, 
IF A &® B 
ADD 5 TO B 
ELSE 
ADD A TO B, 


8. The PERFORM statement will automatically compare CTR to 8; thus the last 402 
conditional in RTNX is not only unnecessary, it is incorrect. 
9. PERFORM RTNX 10 TIMES, 405 
10. PERFORM SUM-RTN VARYING X FROM 2 BY 2 UNTIL X IS 409 
GREATER THAN 100, 


‘ 
’ 


SUM-RTNs 
ADD X TO EVEN-SUM, 


PRACTICE PROGRAM 


The problem definition for this program appears in Figure 16.10. 

Given the initial cost of an item, we wish to print a table indicating the item’s 
anticipated cost over a 10-year span taking inflation into account. Assume the inflation 
rate for the first 5 years is projected at 8% and the inflation rate for the next 5 years 
is projected at 6%. Be sure to accumulate the effects of inflation. See Figure 16.11. 


ITEM-COST: $1,00 


YEAR 1 1.08 (1 X 1,08) 
YEAR 2 1,087 (1,08 X 1,08) 
YEAR 5 1,085 

YEAR G 1,085 xX 41,06 


+ 
+ 


YEAR 10 1,088 


b 4 
s 
SB 
a 
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Figure 16.10 — Systems Flowchart 
Problem definition for the 
Practice Program. 


REPORT-FILE 
ITEM-DISK 


30-position records 
standard labels 


ITEM-DISK Record Layout 


sas fa|s]s}2}2}a}a}2}2}2fa}ala} 
e}s\e7/o{al0}1{2/3/4|5] 9 [a9 


eS 


nnn A 
+{2{3|4}s15{7|0}a}o/112\3 


WNT] 


Sample Input Data 


LLL11 TEST 00100 
12345RAKE 01245 
12346SHOVEL 02599 
12 02088 
23456SNOW SHOVEL, 01499 
43256HOE 03999 
Sample Output 
INFLATION REPORT PAGE 1 
ITEM NUMBER: 11111 
ITEM DESCRIPTION: TEST 
ITEM COST: $1, 00 
YEAR INFLATION RATE. ITEM COST WITH INFLATION 
1 08% 1.08 
2 08% 1.16 
3 08% 1.25 
4 08% 1.38 
Ss 08% 1.45 
é 06% 1.53 
7Z 06% 1.42 
8 08% 1.74 
g 06% 1.81 
10 08% 194 
ITEM NUMBER: 12345 
ITEM DESCRIPTION: RAKE 
ITEM COST; $12. 45 
YEAR INFLATION RATE ITEM COST WITH INFLATION 
1 08K 13.44 
2 oa% 14. 51 
3 08% 15. 67 
4 08% 16.92 
Ss 08% 18.27 
6 04% 19.36 
7 06% 20: 52 
8 06% 21.75 
4 06% 23.05 
10 06% 24. 43 
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i 1 IDENTIFICATION DIVISION. 
nawe ta 5 AUTHOR, CHRISTOPHER HAMMEL 
Solution to the Practice ? ENVIRONMENT DIVISTON. 
Ss ‘QUTP. SECTION, 
Program. é CONTR 
Zz SELECT ITEM-DISK ASSIGN TO DISKi2. 
8 SELECT REPORT-FILE ASSIGN TO SYSSOUTPUT. 
bg DIVISION. 
10 SECTION. 
iL TEM-DI 
33 ABEL BE RECORDS ARE STANDARD. 
is 3 EEN TION Bre £030) 
os. eM DegcR TP . 
16 OS ITEM-COS PIC 999V99, 
17 FD REPORT-! Fite. 
18 LABEL RECORDS ARE OMITTED. 
yg REPORT=-REC PIC X(139). 
9 Ronwine-starage SECTION, 
2 3 BIE Sven YALE Zena 
23 OS INFLATION-RATE T 4 
24 OS INFLATION~-RATE~1 PIC 9V99 VALUE 0. 08. 
25 OS INFLATION-RATE-2 PIC 9V99 VALUE 0. 04, 
26 OS SuB PIC VALUE ZERO. 
27 05 CTR PIC 99 VALUE ZERO 
28 OS LINE-CTR PIC VALUE 
29 OS PAGE-CTR PIC 999 VALUE ZERO. 
30 OS YEAR-CTR PIC 99 VALUE ZERO, 
31 O1 HEADER1. 
32 OS FILLER PIC X(48) VALUE SPACES, 
3a CaLUE TT NFLATION R ePoR T ve 
35 OS FILLER PIC xX(4Q) VALUE SPACES, 
36 OS FILLE! PIC X(S) 
38 os PacE-aur PIG 229 
39 05 FILLER PIG XX VALUE SPACES 
40 01 HEADERS 
AL OS FILLER PIC x(S) VALUE SPACES. 
42 OS FILLER PIC X(1a) 
33 oS Tene ASet MN “pre gee) 
as OS FILI LER PIC X(110) VALUE SPACES. 
46 01 HEADERS. js 
47 05 FILLER PIC X(5) VALUE SPACES 
4g OS FILLE! PIC X19) 
33 oS tHEn AESCRTETIBRCBSR™: "ere xiao) 
34 or pea beaGE PIG X(B9) VALUE SPACES 
ERA, 
53 OS FILLER PIC X(5) VALUE SPACES 
54 05 FILLER PIC X(i2) 
Er o9 iren-cost-Gur |” PIC $8S%. 99, 
37 05 FILLE PIC X(112) VALUE SPACES 
58 01 HEADERS 
59 05 FILLER PIC x(a7) VALUE SPACES 
40 05 FICCER PIG x(a) 
61 VALUE ‘YEAR * 
62 OS FILLER PIG X(5) VALUE SPACES 
63 OS FILLER PIC xX(14) 
64 VALVE ‘INFLATION RATE’, 
63 OS FILLER PIC xX(S) VALUE SPACES 
66 OS FILLER PIC X(25) 
67 VALUE ‘ITEM COST WITH INFLATION’ 
68 09 FILLER Pre x(a@) VALUE SPACES 
6? O1 DETAIL-LINE, 
70 OS FILLER PIC x(38) VALUE SPACES. 
71 OS YEAR-! ill PIC 29, 
72 05 FILL PIG X(i2) VALUE SPACES 
73 OS INELATION-RATE-OUT PIC V99. 
74 05 PERCENT=SION PIC Xx 
735 VALUE '% 
76 05 FILLER PIC X(19) VALUE SPACES 
hag OS ITEM-COST~AFTER=INFLATION PIC 2222. 99. 
78 05 FILLE! PIG K(47) VALUE SPACES 
79 PROCEDURE DIVISION. 
80 MAINA. 
a1 GPEN INPUT ITEM-DISK 
82 QUTPUT REPORT-FILE. 
89 READ ITEM-DISK AT END MOVE EOF 
84 PERFORM gabe RTN UNTIL, EOF ts" Baul. TO 1. 
8S CLOSE ITEM—DISK 
BG REPORT “PILE. 
87 ‘OP RUN, 
ae CALC~RTN. 
89 MOVE 1. TO 
90 MOVE Tren-cost TO ITEM-COST-—OUT, 
91 MOVE ITEM-NO TO ITEM-NO-QUT. 
92 MOVE ITEM-DESCRIPTION TO Te ap eSee ce TION OUT. 
a3 MOVE INFLATION-RATE-1 TO INFLATION-RATE 
24 MOVE INFLATION-RATE TO THER ATION RATE Gur. 
95 TF OLINE-CTR IS GREATER THAN 
9% BERFORM HEADING-RTN. 
bd WRITE REPORTS “REC FROM HEADER2 AFTER ADVANCING 2 LINES. 
98 WRITE REPORT-REC FROM HEADERG AFTER ADVANCING 1 LINES. 
jd WRITE REPORT-REC FROM HEADER4 AFTER ADVANCING 1 LINES. 
WRITE REPORT-REC FROM HEADERS AFTER ADVANCING 2 LINES 
PERFOR INFLATION-RTN YARYING CTR FROM 1 BY 1 UNTIL GTR IS GREATER THAN 5. 
MOVE INELATION-RATE~2 TO) INFLATI 
MOVE INELATION-RaT To TNE VAT TONCRATe-aU 
fe aaa INLAY ION“ ATH VARYING CTR FROM 1 Tay 1 UNTIL CTR IS GREATER THAN 5. 


Cc 

READ ITEM-DISK AT END MOVE 1 TO EOF. 
INFLATION-RIN 

DD 1 TO VEAR-CTR 
eonpore ITEM-COST =(ITEM~COST * INFLATION-RATE) + ITEM-COST. 
MOVE ITEM-COST TO ITEM ISGOST-AFTER-INFLATION. 
MOVE YEAR-CTR TO YEAR-QUT. 
IF “LINE-CTR IS oREATER THAN 25 

PERFORM HEADING 

Werte eee eee rae PROM METArL~ LINE AFTER ADVANCING 4 LINES. 


HEADTNG- RTM, 
ADD_1 TO PAGE~ 
OVE PAGELCTR TO Pact 
WRITE REPORT-REC FROH HEADER AFTER ADVANCING PAGE. 
MOVE ZERO TO LINE-CTR, 


Fx] levecnveswasnetetentetat=t-t-tatatatatatat 
FOVONGY AON ODODNEGADN=3S. 
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KEY TERMS 

RIT Nested PERFORM 
co TO PERFORM 
Loop 


REVIEW QUESTIONS 


I. True-False Questions 


= 


T or F) A PERFORM statement permanently transfers control to some other section 
of a program. 

2. (T or F) AGO TO must never be used in conjunction with a PERFORM statement. 
3. (T or F) GO TO statements are generally avoided in structured programs. 

4. (T or F) EXIT is a COBOL reserved word that performs no operation. 
5 


T or F) Using a PERFORM paragraph-name UNTIL condition option, the condition 
is tested even before the paragraph is executed. 


6. (Tor EF) PERFORM PARA-1 N TIMES is only valid if N is defined as a numeric field. 


7. (T or F) Using PERFORM PARA-1 N TIMES, N should not be altered within 
PARA~1. 


8. (T or F) It is valid to say PERFORM RTNX N TIMES, where N has a value of zero. 
9, (T or FE) The PERFORM and GO TO statements will cause identical branching. 


10. (T or F} If several paragraphs are to be executed by a PERFORM statement, we may 
use the THRU option. 


I. General Questions 

1. Using a PERFORM statement with a TINES option, write a routine to find N factorial, 
where N is the data item. You will recall that N factorial = N x (N - 1) x (N - 
2) x... X1; that is, 5 factorial = 5X 4x 3xX2x1= 120. 

Assume the paragraphs in a program are called 1, 2, ... 10 and appear in numeric 
sequence. Write a single statement to perform the following. 


i) 


PERFORM + 
PERFORM2, 
PERFORMS. 


3. Rewrite the following routine using a PERFORM statement with a TIMES option. 


MOVE ZEROS TO COUNTER. 
PERFORM RTN-X UNTIL COUNTER = 20, 


+ 
' 


RTN-Ke 
READ SALES-FILE AT END CLOSE SALES-FILE STOP RUN, 
ADD QTY OF SALES-REC TO TOTAL. 
ADD 1 TO COUNTER, 


4. Write a routine using the PERFORM statement with a TIMES option to sum all odd- 
numbered integers from 1 to 1001. 

5. Write a routine using the PERFORM statement with the UNTIL option to sum all 
odd-numbered integers from 1 to 1001. 

6. Rewrite the solution to Question 3 using a PERFORM with a VARYING option. 

7, In each case, indicate the number of times 300-PRINT-RTN is executed: 
(a) PERFORM 300-PRINT-RTN 

VARYING X FROM 1 BY 1 UNTIL X > 10, 
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(b 


PERFORM 300-PRINT-RTN 
VARYING X FROM 1 BY 1 UNTIL X = Lo, 

{c) PERFORM 300-PRINT-RTN 

VARYING X FROM 0 BY 1 UNTIL X = 10, 
(d) PERFORM 300-PRINT-RTN 

VARYING X FROM 10 BY =1 UNTIL x 
(c) MOVE O TO x, 
PERFORM 300-PRINT-RTN X TIMES. 


" 


Oe 


Il. Validating Data 
Modify the Practice Program so that it includes coding to (1) test for all errors and (2) 
print a control listing of totals (records processed, errors found, hash total), 


EE DEBUGGING EXERCISES 


1, Consider the following coding: 


PERFORM ADD-RTN 
VARYING X FROM 1 BY 1 UNTIL X » So, 


‘ 
+ 


ADD-RTN, 
ADD AMT TO TOTAL, 
ADD 1 TO X, 


READ AMT-FILE AT END MOVE 1 TO EOF, 


(a) How many times does AMT get added to TOTAL? 
(b) Is the logic in the above correct? Explain your answer. | 
(c) What will happen if there are only 14 input records? Explain your answer. 
(d) Correct the above coding so that it adds amounts from 50 input records and 
prints an error message if there are fewer than 50 records. 


2. Consider the following coding: 
PERFORM RTN1L TO RTN2, 


’ 
‘ 


RTNLy 
IF A= 8B 
GO TO RTNZ 
ELSE 
ADD A TO TOTAL 
ADD 1 TO COUNTER, 
RTN2, 
READ TRANS-FILE AT END MOVE 1 TO EOF. 
EXIT. 


Two syntax errors result: one on the first line and one on the last line. Find and 
correct the errors. 


PROGRAMMING ASSIGNMENTS 


1, Write a program to prepare a chart indicating the weights on various planets that 
correspond to a series of weights on Earth. See the problem definition in Figure 
16.12. 
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Figure 16.12 Systems Flowchart 
Problem definition for Pro- 
gramming Assignment 1. 


WEIGHT-CHART 


WEIGHT-CHART Printer Spacing Chart 


1|2]3]4}5\6}7\e{9(0]1/2//4{5[6\ »/0) 9/0) ]2|3\4|5\6\7 a) 910) 1/2.3[4/s|o|7|a/9/o|1/213|4]5|6)7\@/9 
1 | 
4 | 
r 3 Ht |. 
5 
6 
7 
H_/8 
= iam oaeene 
WW | COOPeeTt 
12 i [ ial co 
13 I ul 
14 | - 
15 nn t LE : 
16 [ TTT I HHH 
B 7 | | iat HH | 
18 | 
Notes 
(a) Use the following table: 

Planet Percentage of Earth Weight 

Mars 38 

Venus 85 

Jupiter 264 

Saturn 116 


(b} Note that no input is required. 
(c) The chart should include Earth weights from 50 to 250 in increments of 50. 


2. Write a program to produce a bonus report. See the problem definition in Figure 
16,13. 


Systems Flowchart 


on enti 
roan 


BONUS-REPORT 


PAYROLL-MASTER 
80-position records 
standard labels 

20 records /block 


PAYROLL-MASTER Record Layout 


1 5 6 25 26 27 28 = =—-29_- 30 35 36 64 65 70 71 


Figure 16.13 
Problem definition for Pro- 
gramming Assignment 2. 
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BONUS-REPORT Printer Spacing Chart 


7 
1a}a]afalalats slo} a}2}a}2}2)2/2] 2/2] }15}>[3]2]5]3{9]2}4]4/«/—] 4]6{4|4}4{4{5]5|5}5]5]5|5]5)5}5}6]ol elo) s|ol6}s/s| 7] x| 2] 2/7] {2/7 a|a}a) ala] o|al 9] sfolalal fol la) alata 
1 als 3{2t3/4}5|6|7|0 {3/0} }2]3{4|5/6|7 [a] 90] 1]2|3/415 6) 7/3] 9]o]1|2|3/4/5/6{7|9/a]0]1/2\3\4|5|6||8}9]o| 1|2|5|4|5|6] 7/8) 9]0] 1]213) 4|5/6l 7|a| 9/01] 2]2|4\5/6| |) 90]; (2/214 (6 || || 9\0 
sh 
1 | LI 
al {T | 
| | | REPORT! DXX! | {PANGIE! | in 
4 
HT st = TH 
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SE: IGE} | 
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9 [ 
H_ {to MI NAME | a 
W 
12 


Figure 16.13 
Continued 


Notes 

a) The payroll records have been sorted into ascending sequence by office number within 

territory number, There are 3 territories and 2 offices within each territory. Thus, all 

employees within office 01 within territory 01 will appear before employee records for 

office 02 within territory 01, and so on, 

(b) Only employees who were hired before 1980 are entitled to a 10% bonus. 

¢) Print the names of all employees and their bonuses. Print a separate page for each office 
within each territory. Use a PERFORM within a PERFORM to achieve page breaks for each 
office within each territory. 


3, Write a program to print one line from X number of input records, where X is 
denoted in the first record of each group. The output is a printed report, with each 
line consisting of salesperson name and the accumulated amount for X number of 
records. Include the date and page number in the heading. The problem definition 
is shown in Figure 16.14. 


— = | 


SALES-REPORT 


Figure 16.14 Systems Flowchart 
Problem definition for Pro- 
gramming Assignment 3. 


SALES-MASTER 
80-position records 
standard labels 

20 records/block 


SALES-MASTER Record Layout 
1, First Record for a Salesperson 


6 25 26 28 29 


2. Subsequent Records for the Same Salesperson 


25 26 30 31 
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SALES-REPORT Printer Spacing Chart 
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Figure 16.14 
Continued 


4. Write a program to compute compound interest from the following formula: 


P, =P, (1 +7? 
P, = Amount of principal after n periods of investment of P, at rate r per period 


The input file consists of records with the following format: 


1-6 Principal (P,) 

7-9 Rate .XXX (r] 
10-11 Number of periods of investment (n) 
12-80 Not used 


Output is a printed report that lists, for each input record, the compound interest 
calculated for periods 1 year to n years. The following sample layout assumes there 
are 10 years of investment: 


PRINCIPAL ~ XXX +XKX 


RATE ~ «XXX 
YEARS AMOUNT 
1 XXX,XXX.XX 
2 XXX,XXX.XX 
10 X,XXX,XXX.XX 


5. Write a program to read in the payroll file described in Figure 16.13 for Programming 
Assignment 2. Assume that the file only contains records that have valid data. 
Perform the following for this file: 

(a) Find the total of all the salary fields. 

(b) Management is planning across-the-board salary increases for all its employees. 
They would like to see what the salary total would be if the increase is 5%, 
6%, ... 10%, in increments of 1%. After the total has been accumulated, per- 
form the necessary logic to produce the following report: 


SALARY INCREASE REPORT KX/KK/KK 
CURRENT TOTAL SALARY $X +XXX +XKX 


1,05 TIMES CURRENT SALARY = $X +XXX +XXx 
1,08 TIMES CURRENT SALARY = $X+XXK sXKX 
1,07 TIMES CURRENT SALARY = $X +XXX +XX 
1,08 TIMES CURRENT SALARY = $X+XXXK +XXX 
1,09 TIMES CURRENT SALARY = $X +XXKX +XKX 
4.10 TIMES CURRENT SALARY = $X+XXX+XXX 
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To familiarize you with: 
1. Additional logical control and branching techniques. 
2. The formal rules for altering the path of a structured program. 


oy cries 


I. Nested Conditionals 


A. The Format and Use of Nested Conditionals 
You will recall that the format for a simple conditional is as follows: 


Format for 
Conditional Statement 


Although the IF command could be written entirely across the line, the 
indentations and use of separate lines for the IF and ELSE clauses, and for 
each statement, make the sentence easier to read and debug. 

In a simple conditional, statement-1 and statement-2 are called imperative 
statements, which are direct commands. That is, they do not test conditions 
but instruct the computer to perform some operation, as in the following: 


6, 


0 a a i Ey co) a 
} 


a 72) 
an | iF i. | 
Stat it-1 and 
ee a 4 
imperative statements +—t 
i is “Tr 


In a different format of the conditional, statement-1 and statement-2 can 
also be conditionals. When we have additional IF clauses within conditionals, 
we call the sentence a nested conditional. Consider the following example: 


Example 1A 


AMT ILS| EQUAL rio 
IE) IMAM IIS! EQUA 
REOR 


| 

F EIT TT 4 

LLL UPERIFIORM IRITIN-|3)_| 
LT TT TTT 


aL eS eae ett 


This example conforms to the original format specified for an IF command, 
but statement-1 is a conditional, not an imperative statement. 

Example 1A is called a nested conditional, with statement-1 itself testing 
a condition. The execution of the nested conditional is as follows: 


1. If AMT is not equal to 6, the last ELSE, PERFORM RTN~-1, is executed. 
2. If AMT = 6, the second condition (which corresponds to statement-1) is 
tested as follows: 
(a) (If AMT = 6) and TAX = 10, RTN-Z is performed. 
(b} (If AMT = 6) and TAX is not equal to 10, RTN-3 is performed. 


Example 1B 
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This procedure may also be written in terms of a decision table: 


AMT TAX Action 

= 6 = 10 PERFORM RTN-2 
=6 #10 PERFORM RTN-3 
#6 anything PERFORM RTN-1 


Decision tables are frequently prepared by systems analysts and program- 
mers to chart complex logic that requires execution of different modules de- 
pending on the results of numerous tests. 

A nested conditional is really a shortcut method of writing a series of simple 
conditionals. Thus, any nested conditional may be written instead with simple 
conditionals. The nested conditional in Example 1A may also be coded as: 


IER Let 


RIN-EXIT).| | | | | | 
a tp 


RIT 


= 


| le a seaex [ 
‘sa 


NEBI, ttt 


= 
5 


Example 1C 


Using compound conditionals, we could also code this example as follows: 


as 

bad 
I 
= 
Sa 


ZT 


In both procedures, a CALC-RTN-EXIT is used to avoid testing for other 
conditions once a given condition is met and the appropriate action is taken. 
That is, in Example 1C, we only want to perform RTN-1 if the two com- 
pound conditionals tested first are not met. Thus, if either condition is met, 
(1) AMT = 6 and TAX = 10, or (2) AMT = 6 and Tax # 10, we perform either 
RTNZ or RTNG, not RTNI. After the PERFORM RTNZ and PERFORM RTNG, re- 
spectively, we GO TO CALC-RTN-EXIT, which avoids the PERFORM RTN1. In 
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both Example 1B and Example 1C, access to CALC-RTN would be under the 
control of a PERFORM written as follows: 


a0 56 0, a we 72 


fz 
| 
j 


FATA 


_FEREO 


Example 2 


CaUGaN TMAL [CALNE 


T 
Nested conditionals are used in COBOL for the following reasons: 


Wuy Use A NESTED CONDITIONAL 


1. It minimizes coding effort where numerous conditions are to be 
tested, 


2. It tests conditions just as they appear in a decision table. 


Consider the following decision table: 


Condition Condition Action 

= ames | 
A=B Cc=D PERFORM RTN-A 
A=B C#¥D PERFORM RTN-B 
AFB anything PERFORM RTN-C 


We could code this decision table as a nested conditional. To help clarify the sen- 
tence, parentheses may be used as follows: 


IF A IS EQUAL TO B 
(IF C I8 EQUAL TO D 
PERFORM RTN-A 
ELSE 
PERFORM RTN-B) 
ELSE 


PERFORM RTN-C+ 


The indenting of clauses helps to clarify the relationships between state- 
ments and should be consistently employed when coding nested conditionals. 
This will not only help in reading the sentence, but it will make it easier to 
debug your program as well. You may include the parentheses if you wish. 


B. Determining the Placement of ELSE Clauses 
in a Nested Conditional 


The relationship of an ELSE clause to other clauses in a nested conditional 
can sometimes be confusing. Let us consider the case of two nested condi- 
tionals. The following guidelines apply: 


1. Suppose there are two ELSE clauses with two nested IFs. The first ELSE 
clause refers to the conditional immediately preceding it. 

2. The last ELSE clause refers to the first IF. If there are not two ELSE 
clauses in the sentence, then the first condition, condition-1, does not 
have an ELSE clause associated with it. That is, when condition-1 is not 
met, execution will continue with the next sentence. 

3. In general, the first ELSE in sequence refers to the IF directly preceding 
it. The remaining ELSE clauses refer to the next IFs in outer rectangles. 


The following illustrates the three guidelines above: 
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(rte me} 48 2 56 0 4 oa 7a 
| [TTT] | 
| | | | 
Lt \ | 
LY ceding It->—-—+ | 
| CECCREEEEET EHH 
| i ! 
General Guidelines 
r te {iz 16 20. 24 28 32 36 40. 4a 4B 62 56 60 64 68 72| 
| ITF ition 4 i | r H 
| = 
TT iol | a | | [ 
HE elmeln|t H 
it Tl al allie ial 
coos EEEEEEEE EEE EH CI Poo cl 
Since ELSE clauses are always optional, the general guidelines can be used 
for determining to which condition an ELSE clause applies. 
Example 3 Consider the following: 
tet 8 i 12 16. 20. 4 28 32 36. 40 44 48 52 56 60 64 68 72 
HHH EH REE Tol S MALE!’ Pht [TTT TTT aa 
| | 
LI iLL Is L 0) CAL TF ORNITA! GOT-IT will contain = | 
L_| i JAD 0 GOT II im Toe CALIFORNIA males. 
Ly | C] 
i EI aad ‘AT = i aD 4 EL a HH | 
| 
= kK E IFORNIA. 
| ‘ P REORM OTH ER MALE R N Ff | I * pe 1 ea pe aie hs | H 


The first ELSE refers to the condition directly preceding it, that is, IF LOCATION 
TS EQUAL TO ‘CALIFORNIA’. Since there is only one ELSE, it must refer to the 
condition directly preceding it. 


If the first condition is not met (IF SEX 18 EQUAL TO “MALE ’) control 
passes to the next sentence. That is, PERFORM OTHER-MALE-RTN is only ex- 
ecuted if SEX IS EQUAL TO ‘MALE’ but LOCATION is not ‘CALIFORNIA’. 

The following decision table corresponds to the above coding: 


Condition Condition Action | 


SEX = ‘MALE’ LOCATION = ‘CALIFORNIA’ ADD 1 TO GOT-IT 
SEX = ‘MALE’ LOCATION # ‘CALIFORNIA’ PERFORM OTHER-MALE-RTN 
SEX # ‘MALE’ anything next sentence 
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Suppose, instead, we wish to perform the following: 


Condition Condition Action 
SEX = ‘MALE’ LOCATION = ‘CALIFORNIA’ ADD i TO GOT-IT 
SEX = ‘MALE’ LOCATION # ‘CALIFORNIA’ next sentence 
SEX # ‘MALE’ anything PERFORM FEMALE-RTN 


We could code this procedure as: 


IF SEX IS EQUAL TO ‘MALE’ 
IF LOCATION IS EQUAL TO ‘CALIFORNIA’ 
ADD i TO GOT-IT 
ELSE 
NEXT SENTENCE 
ELSE 
PERFORM FEMALE-RTN+ 


Using the above: 


1. Females are processed in a FEMALE-RTN. 
2, For males from California, 1 is added to GOT-IT. 
3. For males from other states, we proceed to the next sentence. 


Any number of conditions may be tested in a nested conditional. The only 
limitation is the somewhat cumbersome nature of the sentence itself, which 
tends to make nested IFs less user-friendly than other programming tech- 
niques. That is, when too many conditions are specified in a nested condi- 
tional, it becomes difficult to follow the logic. Programmers should use as 
many conditions in a nested IF statement as they consider reasonable. 


Example 4 Consider the following series of compound conditionals: 


ET EG a0 co 48 @ 36 0, cy co 7 


am | LTT TTT TT 


| JAD 
| IFIEMA 


“CER 


[ in EURSERRE RARER 
aH PO 
MALE and FEMALE are condition-names referring to a sex field. Assume that SEX 


contains only the codes for MALE and FEMALE: 


05 SEX PIC Ke 
88 MALE VALUE ‘M’s 
88 FEMALE VALUE ‘F‘+ 
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SINGLE and MARRIED are condition-names referring to a marital status field. Assume 
that this field may contain only the codes for SINGLE and MARRIED: 


05 MARITAL-STATUS PLE Xa 
88 SINGLE VALUE ‘8S’, 
88 MARRIED VALUE /M*, 
With the SEX and MARITAL-STATUS fields specified as above, we could code the 
following: 
ba t 8 12 46 20 24. 28 32 36 AQ cy 48 52 56. 60 64 68 72] 
LTT Lt LE | 
CeCe aD Ko} Bu 
aHraOtatii Hs 
+ t TT ia 
| L + 
{ { ADDI TO} UM lite If this Ese is precited, then the H 
i + fete person must be female, = 
Co CSINGLE! TARP EEEE EEE ie 
| | Al T 0] S| - BI i} I patentee <p 
i ELSE Ht fret nested soreteonal may 
” + inclur ee arter an + |} 
a ADDI} Tro} SUMel4.| | rH TH i rt iz 
Nested conditionals provide a method for writing a series of simple or com- 
pound conditions in a single statement. The programmer may achieve the 
same results with both nested IF or simple IF statements. Observe that the 
following two routines perform identical functions: 
rte tz iB “20 Fn 2 a Ea 1 a a w w a @ 7 
I | EE \3 tT 
eo ILE Dp = 
L H MOVE X ol V. i TI IT [| | 
LTT Te eA Hip Nom! ERNIAL! Tol 2 {| 
anne VEL X| | HT 
| 
MT ro EHH 
T I a t 
(2) LH IE Al EL +414 |_| L, 
|. | ITF | By Ie LY + 
| MONIE|_IX! y 
| 
HE ee | | 
rt I 1a a ON Lx uy ‘ Tere t 
Flowcharts are also useful tools for depicting the logic to be used in a nested 
conditional. Consider the following flowchart that indicates the procedures to 
be performed depending on the status of students at a university: 
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In the flowchart, we are using condition-names to specify given conditions. 
That is, MATRICULATED is a condition-name; when a field such as STUDENT- 


STATUS contains a given code, 


we call that condition MATRICULATED. 


Using a decision table to depict this logic, we would have: 


Condition 


MATRICULATED 


MATRICULATED 


MATRICULATED 


NOT MATRICULATED 


Condition Condition Action 
UNDERGRAD UPPER-DIVISION ADD 1 TO 
MATRIC- 
UPPER-DIV- 
UNDERGRAD 
UNDERGRAD NOT UPPER- ADD 1 TO 
DIVISION MATRIC~ 
LOWER-DIV- 
UNDERGRAD 
=| 
NOT UNDERGRAD anything ADD 1 TO 
MATRIC-GRAD 
| 
anything anything ADD 1 TO 


NON-MATRIC 
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The coding for this procedure is as follows: 


LETTE MAMTIRITICIUIATED | 

| H TIF|_| UNDEIRIGRAD | 

Co TF! IUPPEIR-DI|VI/sirlo 

| | DD! 0! |MATIRIIC/-UIPPERI-[bITIvI-UNDENRIe RIA 

FILISE 

HAE aor Ht rt TIRTC-LOWER-DIN-UNDERGRAD 

ana, DD| jd] (Tio) MATTIRIIC-GRAD) | 
itt] IEILISE! 

LET LT AD) i! Tol NON-MATRIC!. 

Note that any series of conditions may be represented by simple or com- 
pound conditionals, without the use of nested conditionals. If nested condi- 
tionals prove too cumbersome, programmers should use a series of simple or 
compound IF statements. 

Self-Evaluating Quiz 1. Use the following decision table to write a nested conditional. 


Condition Condition Action 
X= Y=! ADD A TO B 
X= Y Not PERFORM RTN-2 
=] 
X Not Anything SUBTRACT A FROM B 
=] 


2. Use the following decision table to write a nested conditional. 


Condition Condition Action 
Y=3 ZNot = PERFORM PATHA 
5 
=3 Z=5 PERFORM PATHB 
Y Not Anything PERFORM PATHC 
3. Consider the following statement: 


IF FLDX = 3 
IF FLDY = 5 
PERFORM Y 
ELSE 
PERFORM Z 
ELSE 
PERFORM Wy 


If FLDX = 8 and FLDY = 4, a transfer to 


4. In the above conditional, 


5. In the above conditional, a transfer to 


FLDY = 5, 


will occur. 
is performed if FLOX = 4 and FLDY = 5. 
occurs if FLDX = 3 and 
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Solutions 1. IF X IS EQUAL TO 1 
IF Y IS EQUAL TO 1 
ADD A TO B 
ELSE 
PERFORM RTN-2 
ELSE 
SUBTRACT A FROM B. 
2. IF Y¥ IS EQUAL TO 3 
IF zZ IS NOT EQUAL TO 5 
PERFORM PATHA 
ELSE 
PERFORM PATHB 
ELSE 
PERFORM PATHC. 
3: Z 4. W oe % 


co tO... DEPENDING ON Statement 


Note: The EVALUATE verb should be used in place of the 
GO TO... DEPENDING ON if you are using a 1985 compiler. See page 772. 


A. A Review of the GO TO Statement 


‘As we have seen, the use of GO TO statements is to be avoided if possible. 
Sometimes, however, avoiding GO TOs will add complexity to processing. In 
such instances, GO TOs are permitted, but care should be taken to keep control 
within the range of a PERFORM. Consider the following example: 


Example 1 PERFORM 100-MAIN-RTN THRU 100-MAIN-EXIT 
. UNTIL EOF = 14 
‘ 
' 


100-MAIN-RTN. 
IF X IS EQUAL TO Y 
GO TO 100-X-RTN, 
IF Y IS EQUAL TO Zz 
GO TO 100-Y-RTN. 


' 
’ 


100-X-RTNy 


' 
’ 


GO TO 100-MAIN-EXIT» 
100-Y-RTNy 


1O0-MAIN-EXIT. 
EXIT. 


Even though there are GO TOs used in this program excerpt, control is always 
retained within the module executed by the PERFORM; that is, 100-MAIN-RTN 
THRU 100-MAIN-EXIT. GO TOs, when used in this way, should keep control 
within the module executed by a PERFORM. 


B. The Format and Use of GO TO ..+ DEPENDING ON 


In this section, we will consider other uses of GO TO statements. Consider, 
first, the following series of simple conditions: 
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[CFL NOFDF-VEWRIS- INCL LENGE) Et ul] | [ 

TL TTT elo FRE PE ANT | | H TOA 

LTT TTFT | NO-OFF YEARS -IIN-IClOlL EGE. Fle Lt | HH 

CLE LT Ml! rol SOPHOMORE. [ | 

CP CTF TNOFOFEVEARS-INECO EGE = [ 

iT LET LT Heol trol JUNIOR. Ltt ! f 

LIFT NOFOFFYEARS-IINECOLLEGED Ela TCL i [| 

Ltt o. | SENIOR. | [| | | ia 

a 60] 110, ERRERT. art HH 4 HY | m im HI td 

When the contents of a data field may be 1, 2, .. . n, (where n is any integer}, 

and the program is to branch unconditionally to different points depending on 


Example 1 


16 24 28 32 


the value in the data field, a shortcut use of the GO TO statement called GO 
TPT RRR TTTET FPPC TTA 
H PIHIO | 


Ire TT 


The computer is instructed to branch to: 

1, The first paragraph, FRESHMAN, if the data-name, NO-OF-YEARS-IN- 
COLLEGE, has a one (1) as its contents. 

2. The second paragraph, SOPHOMORE, if NO-OF-YEARS-IN-COLLEGE has 
a two (2) as its contents. 

3. The third paragraph, JUNIOR, if NO-OF-YEQRS-IN-COLLEGE = three (3). 

4. The fourth paragraph, SENIOR, if NO-OF-YEARS-IN-COLLEGE = four 
(4). 

5. If NO-OF-YEARS~IN-COLLEGE does not equal 1, 2, 3, or 4, a branch to 
ERR-RTN is performed. 


A 


feet 
iS 
mw] 
oz 
co 
m 
_p@| 
i 


In general, if there are n paragraph-names specified in the GO TO +. DE- 
PENDING ON statement, a branch to the first occurs if there is a i in the field, 
a branch to the second occurs if there is a 2 in the field, and so on, with a 
branch to the nth paragraph occurring if there is an n in the field. If the field 
consists of any number other than 1 to n (for example, —5,0,n + 1}, the 
program will proceed to the next sequential instruction. In other words, no 
branch within the GO TO... DEPENDING ON will occur. In our example, the 
next sequential step was an unconditional branch to ERR-RTN. The format, 
then, for this statement is: 


Format 
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The GO TO +++ DEPENDING ON statement may only be used for numeric 
fields. That is, the statement GO TO PARA-1+ PARA-2 DEPENDING ON FLDA 
will execute properly only if FLDA has a PICTURE of 9’s. 

Any number of paragraph-names may be used within the GO TO ... DE- 
PENDING ON statement. The only limitation is the size of the computer, which 
in most cases allows adequate flexibility. The GO TO... DEPENDING ON is 
called a case structure format of the GO TO statement because it enables the 
user to program a procedure that allows for a series of cases. 

When dealing with a field that may have many values, each of which causes 
a specific branch, it is often advantageous to manipulate the data so that a GO 
TO ..+ DEPENDING ON instruction may be used. If not, a series of simple GO 
TO statements may prove tedious, time consuming, and inefficient. With ma- 
nipulation of data, we can sometimes use this shortcut method even if the 
values in the field are not consecutive. Consider the following: 


Example 2 Branch to: 


PARA-1 if FLDB = 23 
PARA-2 if FLDB = 43 
PARA-3 if FLDB = Gi 
PARA-4 if FLDB = 83 
PARA-5 if FLDB = 10. 


We may set up five simple GO TO statements as one way to solve the problem. We 
may, however, use the GO TO .,+ DEPENDING ON even though FLDB has values from 
2. to 10 and is incremented by 2 instead of 1. Suppose we divide FLDB by 2. Then the 
values in the field vary from 1 to 5, with the increment being equal to 1. This is the 
order we are seeking. The statements then read as follows: 


Solution to Example 2 


32 3, 40, a a8 Be 36, oO 


AASBUOLOHAGHGHBRIIE 


H 
THAFSTEAEGTE ST MAGHEE LEE 


Note that if the original contents of FLDB were required for future processing, this 
solution would require an additional instruction. We could, for example, MULTIPLY 2 


BY FLDB at the end of the routine to restore its original value, or we could first code 
DIVIDE FLDB BY 2 GIVING STORE1 and then use STORE1 in our DEPENDING ON clause. 


1 


nan 
Pee 
ct 


Example 3 Consider the following MAIN-MODULE for calculating student grades (A-F): 


PROCEDURE DIVISION. 
MAIN-MODULE. 
OPEN INPUT STUDENTS 
OUTPUT GRADE-REPORT. 
PERFORM HEADING-RTN+ 
READ STUDENTS AT END MOVE ‘YES’ TO END-OF-FILE,. 
PERFORM 100-CALC UNTIL END-OF-FILE = ‘YES’. 
CLOSE STUDENTS» GRADE-REPORT. 
STOP RUNs 
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100-CALC could be coded with a series of IF statements: 


100-CALC. 
MOVE STUDENT-NAME-IN TO STUDENT-NAME-OUT, 
IF AVERAGE IS LESS THAN GO 
MOVE ‘’F’ TO GRADE, 
IF AVERAGE IS GREATER THAN 59 AND LESS THAN 70 
MOVE ‘D’ TO GRADE. 


In place of the above, we could use a formula to operate on AVERAGE to 
produce values of 1, 2, 3, 4 that can then be used with a GO TO... DEPENDING 
ON. 

The procedure used for producing a value of from | to 4 is as follows: 


1. Establish a field called x1 with PIc 9: 
O3 XL PVC oe 


2. Divide AVERAGE by 10 and eliminate the decimal portion by storing the 
result in X1, a one-position integer field. 


COMPUTE X1 = AVERAGE / 10 


3. SUBTRACT 5 FROM Xi. 
Omitting an AVERAGE less than 60 for the moment, the results obtained 
in X1 after the above operations would be as follows: 


COMPUTE Ki = SUBTRACT 
Values for AVERAGE AVERAGE / 10 S FROM X1 
Results Results 
60-69 AVERAGE / 10 = 6,.0-6.9; 1 
truncated = 6 
70-79 AVERAGE / 10 = 7.0-7.9; 2 


truncated = 7 


Before coding this routine, we test AVERAGE and perform F-RTN if it is less 
than 60. If it is greater than or equal to 100, we perform an error routine. In the 
| main module, we code PERFORM 100-CALC THRU 100- CALC-EXIT: 


1O0-CALC, 
MOVE STUDENT-NAME~IN TO STUDENT-NAME, 
IF AVERAGE « 6O 
GO TO F-RTN. 
IF AVERAGE > 100 OR = 100 
PERFORM ERR-RTN 
GO TO 100-CALC-EXIT, 
COMPUTE Ki = AVERAGE / 10 
SUBTRACT 5S FROM X1. 
Go TO 
D-RTN 
C-RTN 
B-RTN 
A-RTN 
DEPENDING ON Xi. 
* A-RTN THROUGH F-RTN GO HERE™ 
100-CALC-EXIT. 
WRITE PRINT-REC FROM GRADE-REC, 
READ STUDENTS AT END MOVE ‘YES’ TO END-OF-FILE. 
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GO TO ++. DEPENDING ON statements are typically used with menus in 
interactive processing. A menu is a series of options provided to the user, 
usually at the beginning of an interactive program run. Menus typically in- 
dicate the code to be entered by the user to execute any one of a number of 
options. 

Suppose the following were printed as a menu: 


MENU FOR PAYROLL UPDATE PROGRAM 
ENTER: 
1 FOR ADDING NEW RECORDS 
2 FOR DELETING OLD RECORDS 
3. FOR CHANGING SALARY 
4 FOR CHANGING JOB STATUS 


The user is being asked to enter 1, 2, 3, or 4, depending on the procedure 
desired, A field called TRANS-CODE would be established in the DATA DIVISIO 
to store the entry 1, 2, 3, or 4 that will be provided as input by the user. 

In the PROCEDURE DIVISION, we may code: 


Go TO 
ADD-RECORDS 
DELETE-RECORDS 
SALARY-CHANGES 
JOB-CHANGES 
DEPENDING ON TRANS-CODE. 
GO TO ERR-RTN, 


ERR-RTN is executed if the user enters a code other than 1, 2, 3, or 4. 


i). 6 Tor Statement 


A. STOP RUN 
The STOP statement alters the path of a program by halting the run. For an 


end-of-job halt, we say: 
STOP RUN, | 


This instruction permanently halts execution of the program. It terminates 
the run. The program cannot be restarted after STOP RUN is executed. With 
1985 compilers, the STOP RUN will automatically close all files as well. 


B. STOP (Literal) 


We may also instruct the computer to (1) pause and (2) print a message by 
issuing the following instruction: 


STOP (literal). 7 


This statement causes the program to stop executing. On some systems, 
the program may be restarted, however, by some form of operator intervention 
such as depressing a control key or the start key. Thus, the sToP (literal) 
command can cause a pause in execution. Unlike STOP RUN, STOP (literal) 
need not be a permanent halt. 
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Thus, the combined format for a STOP statement is: 


Format 


The literal specified in a STOP statement will print on the printer, console, 
or terminal as a message to the computer operator. The literal may be numeric 
or nonnumeric. The following is a valid stop command: 

40 44 48 52 56 60 64 


FETED Sop: pate RECORD MUSSINGTT.C TTL TLL oo 


The message DATE RECORD MISSING will print, and the computer will pause. 
The message implies that a record with a date on it was required for execution 
but was not found. 

A numeric literal is sometimes used in conjunction with a STOP statement 
when the computer operator is supplied with a list of numeric error codes, 
Consider the following: SToP 111. When STOP 111 is executed, for example, 
111 will print and the computer will pause. The operator would then need to 
consult the program documentation packet, which includes halt codes issued 
by that program to determine (1) what error code 111 is and (2) what is to be 
done before the program is restarted. 


=) 


SUMMARY OF STOP STATEMENT 


1, STOP RUN causes permanent termination of a job. 


2. STOP (literal) causes the printing of the indicated literal and may re- 
sult in a pause in execution. 

3. With the $ToP (literal) command, the computer operator can restart 
the job by depressing the start key on some systems. 

4. The literal in the sTOP statement may be numeric or nonnumeric. 


aia IV. Review of Logical Control Structures 


This chapter completes our discussion of the methods typically used to alter | 
the path of a program to achieve an appropriate structured format or modu- 
larity. Although the PERFORM is the main statement for achieving transfer of 
control, IF, GO TO, and STOP statements may also be used. 

In this section, we will review and summarize the major methods of con- 
trolling program logic in a structured environment using these statements. 
First, we will list the four major methods and then discuss each. 


Logica, Controu Structures USED 
IN STRUCTURED COBOL PROGRAMMING 
Sequence 
IF-THEN-ELSE | 
PERFORM 
Case Structure 


yop 


These four logical control structures are used in all structured programs. 
Although the verbs used to implement the structure may differ from language 
to language, the basic rules are the same. 
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A. Sequence 


A sequence is used to depict the flow of logic when no branching is required. 
The flowchart and pseudocode excerpts that depict this logical control struc- 
ture are as follows: 


Flowchart Pseudocode 


Instructions to 
be executed 
in sequence 


Each instruction in a structured program is executed in sequence unless 
one of the other control structures is specified. 

To interrupt the execution of a program, we could code a STOP at the end 
of the sequence, as in the following flowchart and pseudocode excerpts: 


Flowchart Pseudocode 


Instructions to 
be executed in 
sequence 


STOP RUN 


The STOP instruction will permanently interrupt execution if coded as STOP 
RUN. On some systems, the STOP (literal) can temporarily halt execution. To 
continue, the computer operator presses a control key such as start. 


B. IF-THEN-ELSE 


IF-THEN-ELSE is used to execute a step or series of steps depending on the 
existence of a specified condition or conditions. Although the expression is 
“TF-THEN-ELSE,” corresponding COBOL statements may be coded simply 
with IF and ELSE clauses; the word THEN is not required but may be used 
with 1985 compilers. 

The flowchart and pseudocode excerpts that depict this logical control 
structure may have one of the following forms: 
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1. Simple or Compound Condition (No ELSE) 


Flowchart Pseudocade 


Instructions to 
be executed in 


sequence 
IFC) 
ENDIF 
2. Simple or Compound Condition (With ELSE) 
Flowchart Pseudocode 
FC) 
Imperative 
statement(s) 
ELSE 
imperative 
statement(s) 
ENDIF 


3. Nested Conditional 
Nested conditionals are structures that execute a number of imperative state- 
ments depending on whether a series of conditions are met. 

In its simplest form, a nested conditional could be represented as in the 
following flowchart and pseudocode excerpts: 


rt 
Flowehart Pseudocode 


ELSE 


ELSE 


ENDIF 
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The format that corresponds to this flowchart excerpt would be coded as: 


IF condition-1 
IF condition-2 
imperative-X 
ELSE 
imperative-Y 
ELSE 
imperative-Z, 
Since the number of conditions in a nested conditional may vary, impera- 
tive-X could be replaced with another conditional, as in the following: 


Flowchart Pseudocode 


This would be coded as: 


IF condition-1 
IF condition-2 


IF condition-3 
imperative-X 

ELSE 
imperative-V 


ELSE 
imperative-Y 
ELSE 
imperative-Z 
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C. PERFORM 
A simple PERFORM may be represented in a flowchart or pseudocode as: 


Flowchart Pseudocode 
PERFORM 
Instructions to 
be performed 
ENDPERFORM 


The paragraph being performed uses the following symbols: 


Paragraph to 
be performed 


Ge coseesevecozsseaes 


As previously noted, the repeated execution of a routine or routines is called 
iteration. To repeat or iterate routines in COBOL, we use a PERFORM 41. 
UNTIL, a PERFORM +++ TIMES, or a PERFORM .4. VARYING statement. A 
PERFORM that is executed until a condition is met is represented as: 


Flowchart Pseudocode 
is cea aaeamaeemaanal PERFORM...UNTIL (condition) 


Instructions to 
be performed 


ENDPERFORM 


YES 


D. Case Structure 


The case structure is a logical control structure used when there are numerous 
paths to be followed depending on the contents of a given field. It is coded 
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with a GO TO... DEPENDING ON in COBOL and is represented in flowcharting 
and pseudocode form as: 


Flowchart Pseudocode 


We avoid the use of GO TOs in our logical control sequence unless it is to 
take us to a different point within the existing logical structure as follows: 


eeesses 


soeseee 
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With these four methods of logical control, any structured program can be 
effectively modularized and executed efficiently. The flowchart and pseudo- 
code excerpts also provide the appropriate tools for planning program execu- 
tion before coding. Flowcharting a problem or writing a pseudocode before 
actually coding the program will make for (1) more efficient logical control, 


2) better modularization, and (3) easier debugging. 


I. 


IL. 


Il. 


CHAPTER SUMMARY 
Nested Conditional 
A. Format 


IF condition 


IF condition 
imperative-statement(s) 


ELSE 
IF condition 
imperative-statement(s} 


B. Any nested conditional can be written instead as a series of simple or 
compound conditionals. 

C. Nested conditionals are part of the IF-THEN-ELSE structure. 

D. Nested conditionals are used for coding complex conditions that are 
frequently specified in a decision table. 

GO TO 4... DEPENDING ON Statement 

A. Format 


GO TO paragraph-1 
paragraph-2 


DEPENDING ON data-name. 


B. If data-name = 1, branch to paragraph-1. 
If data-name = 2, branch to paragraph-2. 


C. The GO TO .., DEPENDING ON is used as part of the case structure to 
cause branches depending on different situations or cases. 

D. The statement is also used with menus for interactive processing. 

STOP Statement 

A. Format 


RUN 
BODE Hea 


B. On some systems, the STOP statement can cause a temporary or per- 
manent halt in execution at the end of a sequence. 
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| CHAPTER SELF-EVALUATING QUIZ 


Solutions 


1. If we have IF clauses within IF clauses, we call these 
2. (T or FE) Ina nested conditional, each IF must have an asandiared ELSE clause. 
3. What, if anything, is wrong with the following statements? 
(a) GO TO PARA-1 DEPENDING ON CODEX. 
(b) GO TO RTN-1 
RTN-2 
DEPENDING UPON CODEX, 
(c) GO TO PARA-1 
DEPENDING ON CODE1+; CODE2. 
4. Consider the following: 


GO TO RTN-5S 

RTN-G 

RTN-7 
DEPENDING ON FLDA, 
GO TO RTN-8, 


A branch to _______ will occur if there is a 0 in FLDA. A branch to RTN-5 will 
occur if there is a _______ in FLA. 

5. Use a GO TO +». DEPENDING ON statement that will cause the following branches: 
to RTN-1 if FLDB = 3, RTN-2 if FLDB = 6; RTN-3 if FLDB = 9, otherwise branch 
to BEGIN. 


6. To cause the program to permanently terminate execution, the ______ instruc- 
tion is used. 

7. To cause the program to pause, the _______ format is used. 

8. The literal in a STOP (literal) command may be a ________ or a _______ literal. 
9 is required to continue execution after STOP (literal) has been performed. 
10, A ______ is used to depict the flow of logic when no branching is required. 
11. A ________ is typically used to end a sequence. 
12. A(n)_______ structure is used to execute a series of steps depending on the 


existence of a specific condition or conditions. 


13. The repeated execution of a routine or routines is called 
14. To repeat routines in COBOL, we typically use the ______ statement. 
15. The _______ is a logical control structure used when there are numerous paths 


to be followed depending on the contents of a given field. 


Page 

1, nested conditionals 430 
2. F—ELSE clauses are optional. 433, 
3. (a) Nothing wrong—branch to ParA-1 will occur if CODEX = 1. 439 

(b) DEPENDING ON, not UPON. 439 

(c) Only one data-name may be specified after DEPENDING ON. 439 
4, RTN-8 439 

1 439 
5. DIVIDE 3 INTO FLDB, 440 

GO TO RTN-1 RTN-2 RTN-3 

DEPENDING ON FLDB. 

GO TO BEGIN, 
6. STOP RUN 442, 
7. STOP (literal) 442 
8. numeric; nonnumeric 443 
9. Operator intervention 442, 


10. sequence 444 


ADDITIONAL METHODS OF ALTERING THE PATH OF A PROGRAM A511 


ll. stop 444. 
12. IF-THEN-ELSE 444 
13. iteration 447 
14. PERFORM 447 
15. case structure 447 


Ee PRACTICE PROGRAM 


Consider the following problem definition: 


Systems Flowchart 


REPORT-OUT 


DITTO-DISK 
22-position records 
standard labels 


DITTO-DISK Record Layout 


LIENT-NAME | DIS' 


Less than 10 copies 


2 = Between 10 and 100 copies 
Greater than 100 copies 
REPORT-OUT Printer Spacing Chart 
AAR ARAAABRRRARAR BRRRBARABBBARARBRRRRR 
laf ss faslohlalaali ts ]afefeollal alae ola fa 
1 10, | 
[| HHH 
ECE CT} un | 
th , u ESRAUSUELSLISALALIGERLEEE i COC 
ANE cH] ACTIEON MEROXL FLEE nt ia 
TATA HET | FLEEEEEEEEEEEEEEEEEHEEEEEEHEHEHH 
Sample Input Data 
BUGS BUNNY 11 
DAFFY DUCK 12 
ELMER FUDD 13 
W.C, FIELDS ai 
WALTER CRONKITE 22 
DAN RATHER 23 
NANCY STERN 14 
ROBERT STERN 15 
TED KOPPEL. 24 
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Sample Output 
SPEEDY PRINTING Pace i 
REQUEST REPORT 


CLIENT NAME ACTION TO BE TAKEN 
BUGS BUNNY XEROX 

DAFFY DUCK DITTO 

ELMER FUDD PRINT IN PRINT SHOP 
W.C, FEILDS XEROX 

WALTER CRONKITE XEROX 

DAN RATHER PRINT IN SHOP 

NANCY STERN ERROR 

ROBERT STERN ERROR 

TED KOPPEL, ERROR 


END OF REPORT 


Write a program to incorporate the logic shown in the following decision table: 
Rules 
ft 2 8 4 & 6 
Internal distribution bane ae 6 
External distribution YY | ¥ 
L han 10 i ¥ Y 
Conditions ess than 10 copies 
Between 10 and 100 Y x¥ 
copies 
(= = 
More than 100 copies xX ¥ 
|_| 
Xerox x X |X 
Actions Thermofax ditto xX 
= |_| 
Print in print shop xX x 


bf 
x 


u 


yes (condition exists) 
action taken 


Reading vertically, we have: 

1. If item is to have internal distribution and less than 10 copies, perform XEROX 
(move ‘XEROX’ to output message). 

2. If item is to have internal distribution and between 10 and 100 copies, perform 
THERMOFAX (move ‘THERMOFAX’ to output message), and so on. 

If any input is incorrect, print an error message. Otherwise, the action to be 

taken will be one of the following: 
Xerox 
Ditto 
Print in print shop 


Figure 17.1 shows the solution. 


KEY TERMS 


Case structure Menu 

GO TO 4+, DEPENDING ON Nested conditional 
IF-THEN-ELSE Sequence 

Iteration sTOoP 


Logical control structure 


Figure 17.1 
Solution to the Practice 
Program. 
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GON CIONSUADNOLONOUAUNE 


MOMMMVNNUN eee 
NIG 


72 


IN 
rs] 


OOOO 
ARON CIDE. 


on! 


DRNANNeee eee. 
GRONOAOVOGRONHOD 


* 
* 
* 
* 
* 
* 


rs 


JDENTIEICATION DIVISION 
AM-ID. DITTO. 


AUTHOR. CHRISTOPHER HAMMEL, 
ABER HOR EEEEE HEE EH AEE IIE IIIT 


pes PROGRAM WILL Gee cu rents TO * 


Aan nce EOE ESE EA RSE EAHA EASE 
ENVIRONMENT DIVISION. 
INPUT-QUTPUT SECTION. 
FILE-CONTROL. 
SELECT DITTO-DISK ASSIGN TO DISK3. 
aaa REPORT SOUT ASSIGN TO SYSSOUTPUT. 


FILE SI etiGn 
DITTO-D 
LABEL RECORDS ARE STANDARD. 
O01 DITTO-RECOR 
05 CLIENT NAME PIC xX(20) 
05 DISTRIBUTION PIC Xx. 
INTERNAL~D VALUE (1/ 
88 EXTERNAL-D VALUE ‘2/ 
0S NO-OF-COPIES PIC xX 
8 LESS-THAN~10 VALUE (1° 
88 BET~10~AND~100 VALUE ‘2° 
88_GREATER~THAN-100 VALUE *3/ 
FD REPORT-OUT 
LABEL RECORDS ARE OMITTED 
OL REPORT-RECORD PIC xX(133) 
WORKING-STORAGE SECTION. 
O1 WORK-AREAS. 
05 EOF PIC 9 VALUE ZERO. 
OS LINE-CTR PIC 99 VALUE ZERO. 
OL oS paGeears PIC 999 VALUE ZERO. 
OS FILLER PIC X(S1) VALUE SPACES 
OS FILL PIC X(30) 
ALUE (‘S PEED Y PRINTING * 
OS FILLER PIC X(42) VALUE SPACES. 
OS FILL PIC X(3S) 
VALUE _ *PA\ 
OS PAGE-CTR-OUT PIC ZZ9. 
OS FILLER PIC XX VALUE SPACES 
O1 HEADER2. 
OS FILLER PIC xX(S2) VALUE SPACES 
OS FILLER PIC X(28) 
VALUE ‘REQUEST REPORT’ 
OS FILLER PIC X(63) VALUE SPACES 
O01 HEADERS. 
OS FILLER PIC¢ x20) VALUE SPACES 
OS FILLER PIC Xi) 
VALUE ?CLIENT NAME“ 
OS FILL PIC xX(29) VALUE SPACES 
OS FILL PIC X(18) 
VALUE ‘ACTION TO BE TAKEN’ 
OS FILLER PIC X(SS) VALUE SPACES. 
OL ACTION-RECORD, 
OS FILLER PIC X(20) VALUE SPACES. 
05 NAME—OU' PIC x(20) 
OS FILLER PIC x(20) VALUE SPACES. 
05 ACTION PIC x(20) 
OS FILLER PIC X(5a) VALUE SPACES 
01 HEADER-FINAL 
98 CTL PIC X(10) VALUE SPACES 
FILLER PIC X(13) 
oO ALUE ‘END OF REPORT‘ 
O5 FILLER PIC X(110) VALUE SPACES 
Rog eDURE: DIVISION. 
OPEN ai DiITTO-! De 
UTPUT REPORT" 


READ Dire DISK AT END’ MOVE 1 TO EOF, 
PERFORM HEADER“ROUTINE. 
bitte Bu Te eS UNTIL EOF IS EQUAL TO 1. 
TOUT. 
acrraNe raf ovrane 
PERFORM INTERNAL=ROUTINE 


IF EXTERNAL~D. 
PERFORM EXTERNAL—ROUTINE 


OVE ‘ERROR IN Bane TO ACTION. 
MOVE CLIENT-NAME TO NAME~ 
IF LINE-CTR IS GREATER THAN 50 
PERFORM PEQpeR ROUTINE, 
ADD_1 TO LINE-CTR 
WRITE, REPORT-RECORD FROM GET ONS REG ERE AFTER ADVANCING 1 LINES. 
READ DITTO-DISK AT END MOVE 1 
SUL aes 
IF LESS-TI 


HAN: 
MOVE TKEROK? TO ACTION 


IF BET=10-AND-100 
MOVE ‘DITTO’ TO ACTION 


IF feat tall tabs THAN~100 
eLgehOVE ‘PRINT IN PRINT SHOP’ TO ACTION 


MOVE ‘ERROR’ TO ACTION, 
EXTERNAL” ROUTING. 


LESS-THAN-10 OR BET~10-AND-100 
OVE ‘XEROX’ TO ACTION 
ELSE 


IF GREATER-THAN~10 
eae “PRINT IN Shop ¢ TO ACTION 


MOVE ‘ERROR’ TO ACTION. 


EQF-ROUTINE. 
IF CINE-CTR IS GREATER THAN 45 
PERFORM HEADER-ROUT INE. 
WRLTE BEC ORT RECORD #Rae HEADER-FINAL AFTER ADVANCING 9 LINES. 
HERE Pi 
4_Td BA GE-C 
Hove pAGES e~CTR Ta bAGE~ CTR-OUT. 


URITE REPORT “RECORD FROM HEADER1 AFTER ADVANCING PAGE. 
WRITE REPORT-RECORD FROM HEADER2 AFTER ADVANCING 2 LINES. 
WRITE REPORT-RECORD FROM HEADERS AFTER ADVANCING 5 LINES. 
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REVIEW QUESTIONS 


I. True-False Questions 

(T or F) The nested IF is another term for the compound conditional. 

(T or F) The last ELSE in a nested conditional always refers to the first IF. 
(T or F) A 8T0F (literal) may be used to cause an end-of-job halt. 

(T or F)GO TO .++ DEPENDING ON can test a maximum of 10 conditions. 


(T or F) The first paragraph-name mentioned in a GO TO ... DEPENDING ON state- 
ment will be executed if the field specified has a value of 0. 


6. (T or F) The number of conditions that may be tested in a nested conditional is 
limited to 120. 


7. (T or F) The following causes 1 to be added to TO73 if NJ and NOT URBAN. 


AR ee 


IF NY IF URBAN ADD 1 TO TOT1 ELSE IF NJ ADD 1 TO TOT2 ELSE 
AD 1 TO TOT3. 
8. (T or F) In the above, 1 is added to TaT2 if NY and URBAN. 


9. (T or F] Ina GO TO «+. DEPENDING ON statement, if the data-name specified is 
not equal to 1 through 10, an error occurs. 


10. (T or F) The STOP statement may be used to print a nonnumeric literal. 


II. General Questions 


1. Use a GO TO .., DEPENDING ON statement to perform the following: 
branch to: BEGIN if A = 18 RTN-Z if A = 21 
RTN-X if A = 19 ERR-RTN otherwise 


RTN-Y if A = 20 


2. UseaGO TO ++» DEPENDING ON statement to perform the following: 
branch to: PARAL if B = —20 PARAG ifB = —5 
Parag ifB = —15 ERR-RTN otherwise 
PARAS if B = —10 


3. GO TO RTNA RTNB RTNC RTND 
DEPENDING ON FIELDX, 
GO TO RTNE. 


Using the above statement, indicate the branches that will occur if: 


(a) FIELDX = 0 (d) FIELDX = 5 
(b) FIELDX = (e) FIELDX = 
(c) FIELDX = 


4, Write a single statement to pause the computer and print the error code 999. 


5. Write a single statement to pause the computer and print the error message 
“INVALID CARD CODE’. 


6. (T or F) All stop statements cause irreversible halts; that is, the computer will 
not continue executing the program. 


7. (T or F] PERFORM statements cause the same sequence of instructions to be exe- 
cuted as GO TO commands. 


8. Use a nested IF statement to perform the following: 
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A B Operation 
Not = 7 Not = 3 PERFORM RTNC. 
Not = 7 =3 PERFORM RTND. 
=7 Anything- | PERFORM RTNE. 
Rewrite the routine with a series of simple conditionals. 


9. Code the program excerpt for the following: 


| 
‘ 


y 


pre cle mao 
i 
i 


| 
| Ly 


v 


10. Consider the following nested conditional: 


IF AMT1 [8S EQUAL TO AMT2 
OR 
AMTL IS EQUAL TO ANTS 
PERFORM RTNA 
ELSE 
IF AMTi IS GREATER THAN 100 
AND AMTZ IS GREATER THAN 100 
OR AMT3 IS EQUAL TO 100 
PERFORM RTNB 
ELSE 
PERFORM RTNC. 


For each of the following (a-e}, indicate which routine will be performed: 


(a) ANT1 = 500 AMTZ = 500 ANTS = 500 
(b) amT1 = 500 AMT2 = 50 AMT3 = 100 
(c) AMT1 = 500 AMT2 = 50 AMT3 = 50 
(d) AMTi = oO AMT2 = 0 AMT3 = 0 


(e) AMTi = 500 AMTZ = 400 AMT3 = 400 
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11. Code the following. 


Gerace 


t 


q 
t q 
i . i 


i 


Il, Validating Data 
Modify the Practice Program to include appropriate coding to (1) test for all errors and 
(2) print a control listing of totals (records processed, errors found, hash total). 


DEBUGGING EXERCISES 


1. Consider the following: 


MAIN-MODULE + 


' 
‘ 


PERFORM CALC-RTN UNTIL EOF = 1, 


’ 
' 


CALC-RTN+ 
GO TO RTNi+ RTNZ+ RTNG 
DEPENDING ON CODE-X. 


RTN1. 
* (calculations) 
RTNZs 
* (calculations) 
READ SALES-FILE AT END MOVE 1 TO EOF, 
RTNGs 
* (calculations) 


READ SALES-FILE AT END MOVE 1 TO EOF. 


CODE-X is part of the input records, Find the logic error and correct it. 
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2. Consider the following coding: 


CALC-RTN. 
IF A = B 
IF COD 
PERFORM RTN=-1,4 
ELSE 
GO TO NEXT SENTENCE 
ELSE 


PERFORM RTN3, 


There are two syntax errors in this statement. Find and correct them. 
3. Consider the following coding: 


+ 
’ 
+ 


READ INVENTORY-FILE 
AT END STOP RUN, 


This statement will cause an “operation exception” error and an abend condition. 
Determine why and correct the statement. 


| PROGRAMMING ASSIGNMENTS 


1. Write a program to determine car rental charges. The problem definition is shown 
in Figure 17.2. The rental charges are indicated on the next page. 


Figure 17.2 Systems Flowchart 
Problem definition for Pro- 
gramming Assignment 1. 


sn sapcnnaen?n 


RENTAL-MASTER RENTAL-REPORT 
80-postion records 

standard labels 

20 records/block 


RENTAL-MASTER Record Layout 
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RENTAL-REPORT Printer Spacing Chart 
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Note: Use the following chart to determine the rental charges. 


Class of Vehicle Rental Plan Charge 
1 1 $40 per day; no mileage charge 
1 2 $20 per day and $.08 per mile 
2 1 $45 per day; no mileage charge 
2 9} $35 per day and $.09 per mile 


2. Write a program to give bonuses to employees, depending on the office and territory 
where they are located. The problem definition is shown in Figure 17.3 


Figure 17.3 Systems Flowchart 
Problem definition for Pro- 


gramming Assignment 2. 
a penal | 


PAYROLL-MASTER BONUS-REPORT 
80-position records 

standard labels 

20 records/block 


PAYROLL-MASTER Record Layout 


29 30 35 36 80 


BONUS-REPORT Printer Spacing Chart 


SEE EEE REEL CUTLER LR SHEER | 
10) eS SNE EESTI tH 


Notes 

(a) There are three territories: 01, 02, and 03. 

(b) In each territory, there are two offices: 01 and 02. 
(c) The bonus schedule is as follows: 


Territory Office Bonus 
ol Ol 4% of salary 
Ol 02 3% of salary 
02 ol 3% of salary 
02 02 5% of salary 
03 ol 4% of salary 
03 02 3% of salary 


3. Write a program to calculate an attorney’s fee, based on the amount recovered in a 
lawsuit. The problem definition is shown in Figure 17.4. 
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Figure 17.4 Systems Flowchart 
Problem definition for Pro- 
gramming Assignment 3. 


CLIENT-MASTER FEE-REPORT 
27-position records 

standard labels 

30 records/block 


CLIENT-MASTER Record Layout 
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Notes 
{a) If type of fee = 1, amount of fee = 1/3 amount recovered 
(b) If type of fee = 2, this indicates a sliding scale. Amount of fee equals: 
50% of the first $1,000 recovered 
40% of the next $2,000 recovered 
35% of the next $22,000 recovered 
25% of any amount recovered over $25,000 


(c) If type of fee is not a 1 or 2, print INCORRECT DATA’, client name, and stop. 
4. Read in records with the following format: 


1-20 Passenger name 
21 Ticket request 
1 = First class 
2 = Tourist 
22, First class availability 
1 = First class available 
2 = First class not available 
23 Tourist class availability 
1 = Tourist class available 
2 = Tourist class not available 
24 Is alternative class acceptable? 
1 = Yes 
2 = No 


460 


Figure 17.5 
Decision table for Program- 
ming Assignment 4. 
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Print an error message and the passenger's name for a record that is erroneously 
coded. For a valid record, print the following: 

Passenger name 

Action to be taken 


The action to be taken is indicated by the chart in Figure 17.5. Note that the chart 
is read vertically: 


Rule 

1. If First class request and First class open 
Action to be taken: ‘ISSUE FIRST CLASS TICKET’ 

2. If First class request and First class not available and Tourist open and Alternate 
class acceptable 
Action to be taken: ‘ISSUE TOURIST TICKET’, and so on. 


Rules 
1 A) 5 16 | P| 8 
1 | First class request Yo) ¥ | wy ¥ [ 
2 | Tourist request Yl ee 
Conditions } 3 | First class open Y|N|N|N Y|N 
has me ame 
4 | Tourist open Y|N Y|N|NIN 
5 | Alternate class acceptable Y|Y|N Y| YIN 
a § 
ad = ain 
1 | Issue first class ticket xX xX 
= t—J — 
2, | Issue tourist ticket X X 
Actions +— =} 
3 | Place on tourist wait list X|X 
4 | Place on first class wait list X|X 


UNIT V 


ARRAY 
PROCESSING AND 
TABLE HANDLING 
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Single-Level 
OCCURS Clauses 
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A. Why OCCURS Clauses Are Used 
1, Using OCCURS to Specify a Series of Input Fields Each with the Same Format 
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DEBUGGING EXERCISES 
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OBJECTIVES 


To familiarize you with: 

1. How to establish a series of items using an OCCURS clause. 

2. How to access and manipulate data stored in an array. 

3. The rules for using an OCCURS clause in the DATA DIVISION. 


Example 


I. An Introduction to Single-Level OCCURS Clauses 


A. Why OCCURS Clauses Are Used 


We use an OCCURS clause in COBOL to indicate the repeated occurrence of 
data items with the same format.’ The major uses of OCCURS clauses include: 


USE OF OCCURS 


For specifying a series of data fields, each with the same format. 

2. For specifying a series of totals in WORKING-STORAGE to which 
amounts are added; at the end of the run, all totals can be printed, 

3. For specifying a table in WORKING-STORAGE to be accessed by each 

input record; using the contents of some input field, we can “look 

up” the required data from the table. 


The entries defined by an OCCURS are sometimes called an array or a table. 
In this chapter we will focus on the first two applications, called array 
processing, and consider table look-ups in the next chapter. 


1. Using OCCURS to Specify a Series of Input Fields Each with the Same Format 


(a) Defining Fields with an OCCURS Clause 


Suppose we have one 72-character input record that consists of 24 hourly temperatures. 
Each temperature is three positions long and indicates the temperature for the city of 
Los Angeles at a particular hour. Using traditional methods, coding the input record 
with 24 independent hourly fields would prove cumbersome: 


Ol TEMP-REC, 


05 ONE-AM PIC 9(3), 
95 TWO-AM PIC 9(3). | oa ontries 
05 MIDNIGHT PIC 9(3), 


To obtain an average daily temperature would also require a great deal of coding: 
COMPUTE AVG-TEMP = (ONE-AM + THO-AM + soe + MIDNIGHT) 7 24 


The dots (...) mean that the programmer would need to include all 24 entries, 

All 24 temperature fields have exactly the same format, that is, three integer posi- 
tions. Since the format or PIC clause for each of the 24 fields is identical, we could 
use an OCCURS clause to define the fields. We call the entire 72-position area an array 
and indicate that the array is divided into 24 three-position fields. 
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Figure 18.1 

Schematic for storing 24 three- 
position numeric fields 

in an array. 


ARRAY PROCESSING AND TABLE HANDLING 


With an OCCURS clause, we specify the number of items being defined in 
the array and the PIC clause of each: 


O1 TEMP-REC. 
05 TEMPERATURE OCCURS 24 TIMES PIC 9(3). 


The occurs clause, then, defines 24 three-position numeric fields. Thus, 
TEMPERATURE is an array that refers to 72 bytes of storage or 24 three-byte 
fields. With one OCCURS clause, we define the 72 bytes as 24 fields each three 
bytes long. See Figure 18.1 for a schematic. 


INPUT RECORD 


CPU 


(b) Defining a Subscript. Collectively, these 24 fields within the array are 
called TEMPERATURE, which is the data-name or identifier used to access them 
in the PROCEDURE DIVISION. We would use the data-name TEMPERATURE 
along with a second identifier, called a subscript, that indicates which of the 
2,4 fields we wish to access. To refer to an item defined by an occurs clause, 
we code the data-name, TEMPERATURE in our example, followed by the second 
identifier or subscript, in parentheses. The subscript indicates the specific 
TEMPERATURE desired. Thus, to print the 2 A.M. temperature we code: 


MOVE TEMPERATURE -(2) TO TEMP-OUT+ 
WRITE QUT-REC, 


Similarly, to print the 11 P.M. temperature we code: 


MOYE TEMPERATURE (23) TO TEMP-OUT+ 
WRITE QUT-REC+ 


Thus, OCCURS clauses are used in conjunction with subscripts in the PRO- 
CEDURE DIVISION as follows: 


SUMMARY OF OCCURS AND SUBSCRIPTS 
1. An OCCURS clause is defined in the DATA DIVISTON to indicate the 
repeated occurrence of items with the same format within an array. 


2. A subscript is used in the PROCEDURE DIVISION to indicate which 
specific item within the array we wish to access. 


Example 
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Using a subscript along with the data-name defined with an OCCURS, we 
can refer to any item within an array. In the above, the subscript can have 
any value from 1 to 24. Any other value besides 1-24 would result in an error: 


Invalid 


MOVE TEMPERATURE (0) TO TEMP-~OUT, 
MOVE TEMPERATURE (25) TO TEMP-~OUT, 


Since there is no zeroth item or 25th item in our array, the subscript cannot 
take on the values 0 or 25; indeed the subscript can take on only the integer 
values 1-24. 


(c) Coding Rules for Subscripts. On many computers, the coding of a sub- 
script in the PROCEDURE DIVISION requires precise spacing. To access an 
item, we code the data name (defined with the occurs clause) and the sub- 
script indicating the specific item. Most often, the subscript must be enclosed 
in parentheses with no spaces within the parentheses. Moreover, for most 
systems, the data-name must be followed by at least one space. 


ADD TEMPERATURE (22) TO TOTAL, 


Depending on the computer, the following might result in syntax errors: 


Invalid Spacing Reason 


ADD TEMPERATURE(22) TO TOTAL. No space between TEMPERATURE 
and left parenthesis. 


ADD TEMPERATURE ( 22 ) TO TOTAL, One space after left parenthesis 
and before right parenthesis, 


(d) A Subscript May be an Integer or a Data-Name. Thus far, we have con- 
sidered subscripts that are numeric literals, A subscript, however, may also 
be a data-name with a numeric PICTURE clause, Suppose SUB were defined in 
the WORK ING-STORAGE section as follows: 


O1 WORK-AREAS, 
OS SUB PIC 99 VALUE o1, 


We could move the first field of TEMPERATURE to TEMP-QUT as follows: 
MOVE TEMPERATURE (SUB) TO TEMP-~OUT, 


Subscripts, then, identify items defined with occurs clauses by using either 
integers or data-names. If a data-name is used as a subscript, it must have a 
numeric PICTURE clause and an integer value. 

Using a data-name as a subscript enables us to vary the contents of the 
subscript so that we can process a series of items with a single routine, 

Let us return to our initial temperature example. To determine the average 
daily temperature, we can use numeric literals as subscripts; but to do so, we 
are not reducing the coding at all: 


COMPUTE AVG-TEMP = (TEMPERATURE (1) + soy TEMPERATURE (24)) / 24 


Instead, we can perform a routine that adds each temperature to a total. In 
this case, we vary the contents of the field called $uB from 1 to 24 so that all 
24 temperatures are added. Recall that SUB must be defined with a numeric 
PICTURE clause. Here, it is a WORKING-STORAGE entry with PIC 99. 
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MOVE ZEROS TO TOTAL-TEMP. 

PERFORM ADD-RTN VARYING SUB FROM 1 BY 1 
UNTIL SUB > 24. 

COMPUTE AVG-TEMP = TOTAL-TEMP / 24, 


’ 


ADD-RTN+ 


ADD TEMPERATURE (SUB) TO TOTAL-TEMP. 


A subscript can be used as the field to be varied in a PERFORM statement. 
The PERFORM .++ VARYING statement (1) initializes SUB at 1, (2) adds each 
TEMPERATURE within the array, and (3) increments SUB until it has processed 
all 24 temperatures. 

The PERFORM «++ YARYING is the most efficient instruction for processing 
all entries within an array. Note, however, that the PERFORM... UNTIL could 
be used if desired, but that additional instructions would be necessary. 


MOVE 1 TO SUB. 

MOVE ZEROS TO TOTAL-TEMPs 

PERFORM ADD-RTN UNTIL SUB > 24, 
COMPUTE AVG-TEMP = TOTAL-TEMP / 24, 


+ 
’ 


ADD-RTN+ 


ADD TEMPERATURE (SUB) TO TOTAL-TEMP. 
ADD 1 TO SUB. 


Similarly, the PERFORM «++ TIMES could also be used if desired: 


MOVE 1 TO SUB. 

MOVE ZEROS TO TOTAL-TEMP. 

PERFORM ADD-RTN 24 TIMES, 

COMPUTE AVG-TEMP = TOTAL-TEMP / 24, 


’ 
’ 


ADD-RTN+ 


ADD TEMPERATURE (SUB) TO TOTAL-TEMP+ 
ADD 1 TO SUB. 


Using the UNTIL or TIMES option of the PERFORM, the subscript must be 
initialized, it must also be incremented within the routine to be performed. 

We will use the PERFORM ».» YARYING in most of our illustrations. It is 
the most suitable option for accessing subscripted entries since it initializes, 
increments, and tests the variable or subscript used in the procedure. 


SUMMARY 


1. occURS clause: Used to denote the repeated occurrence of items 


i) 


with the same format. 

Subscript: A data item used as an identifier to indicate which spe- 
cific item within an OCCURS clause is to be accessed. 

PERFORM (paragraph) VARYING (subscript) ... is typically used to re- 
peatedly execute a paragraph that accesses a series of items defined 
with an OCCURS clause. 
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Self-Evaluating Quiz 


Solutions 


1. Consider the following: 


OL IN-REC. 
O35 AMT1 PIC 9(5), 
OS AMTZ PLC: XS) 4 
OS AMT3 PIC 9(5), 
oS AMT4 PIC 9(5), 
oS AMTS PIC 9(5), 


An OCCURS clause could be used in place of defining each AMT field separately 
because : 

2. (T or F) Suppose anT2 and amT4 had PIC 9(3). An OCCURS clause could not be used 
to define all the AMT fields. 


3. Re-code the illustration in Question 1 using the OCCURS clause. 


4. To access any of the five items defined with the occurs clause, we must use 
a—_—____ in the PROCEDURE DIVISION. 


5. Code a routine to determine the total amount of all five AMT fields. 


1. all AMTs have the same format or P1C clause 
2. T 
3. O1 IN-REC, 


OS AMT OCCURS 5 TIMES PIC 8(5), 
4. subscript 
5. WORKING-STORAGE SECTION, 
O1 STORED-AREAS, 
95 SUB PIC 9, 


’ 
' 


MOVE ZEROS TO TOTAL, 
PERFORM TOTAL-RTN VARYING SUB FROM 1 BY i 
UNTIL SUB > 5, 


' 
’ 


TOTAL=RTN4 
ADD AMT (SUB) TO TOTAL, 


2. Using an OCCURS in WORKING-STORAGE for Storing Totals 
Thus far, we have seen that an OCCURS clause may be used as part of an input 
record to indicate the repeated occurrence of incoming fields. Similarly, an 
OCCURS may be used as part of an output record in the same way. An OCCURS 
clause may also be used to define fields within WORK ING-STORAGE. 

Suppose, for example, that input consists of the following description. 


O1 IN-REC, 
OS TRANS-NO PIC 9(5), 
05 DATE-OF-TRANS, 
19 MONTH PIc 99, 
lO DAY-NO PIc 99, 
19° YR PIc 99, 
OS AMT PIC 9(3)va9, 


Since there is no item that is repeated, we do not need to use the OCCURS 
clause within this input record. Suppose we wish to establish an array in 
WORK ING-STORAGE that consists of 12 monthly totals: 


WORKING-STORAGE SECTION, 
OL TOTALS, 
OS MO-TOT OCCURS 12 TIMES PIC 9(5)vgg, 
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We would define 12 NO-TOT fields in WORKING-STORAGE to be used to 
accumulate total transaction amounts for months 01-12. Each IN-REC read 
will include an ANT and a MONTH number. We will add the AMT to a MO-TOT 
field depending on the contents of the MONTH entered within DATE-OF -TRANS. 
Note that it is necessary to initialize the MO-TOT fields at the beginning of 
the program before any AMTs are added to them. As we will see, you cannot 
use a VALUE clause with an OCCURS. On most compilers, we can, however, 
use the following to set all the N0-TOT fields to zero with one statement: 


MOVE ZEROS TO TOTALS. 


The following coding illustrates how we can accumulate the total trans- 
action amounts for months 01-12. 
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A subscript called MONTH determines the MO-TOT to which the AMT read is 
added. In this case, this subscript is an input field. Subscripts, then, can be 
data-names defined in either the FILE SECTION or the WORKING-STORAGE 
SECTION 

If MONTH is 3, for example, we would add ANT to the third MO-TOT entry. 
This would be accomplished by coding: ADD AMT TO MO-TOT (MONTH). 

To function properly, however, the input field MONTH should vary from 1 
to 12. If MONTH were erroneously entered with a value that was less than 01 
or greater than 12, the program would not run properly. To minimize such 
errors, CALC-RTN should include a validity check as follows: 


CALC-RTN+ 
IF MONTH > ZERO AND « 13 
ADD AMT TO MO-TOT (MONTH) 
ELSE: 
PERFORM ERR-RTN+ 
READ INFILE AT END MOVE 1 TO EOF, 


CALC-RTN will read each record and, if it contains a valid MONTH, will add 
the AMT to the appropriate MO-TOT. After all input has been processed, control 
will return to the main module where we will print out the monthly totals. 
The monthly totals are to print in sequence from 1 to 12. We can use a 
PERFORM PRINT-RTN VARYING «., statement, with a subscript varying from 
1 to 12. 


PROCEDURE DIVISION. 
MAIN-MODULE. 
OPEN INPUT INFILE 
OUTPUT PRINT-FILE+ 
MOVE ZEROS TO TOTALS. 
READ INFILE AT END MOVE 1 TO EOF. 
PERFORM CALC-RTN UNTIL EOF = 1s 


Format 1 
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PERFORM PRINT-RTN VARYING SUB FROM 1 BY 1 
UNTIL SUB >» 12, 
CLOSE INFILE+ PRINT-FILE, 
STOP RUN. 
CALC-RTN, 
IF MONTH > 9 AND ¢ 13 
ADD AMT TO MO-TOT (MONTH) 
ELSE 
PERFORM ERR-RTN, 
READ INFILE AT END MOVE 1 TO EOF, 
PRINT-RTN, 
MOVE MO-TOT (SUB) TO MO-TOT-oOUT, 
WRITE PR-REC FROM MO-TOT-LINE 
AFTER ADVANCING 2 LINES, 


Thus the WORK ING-STORAGE array called MO-TOT is accessed in two ways: 


1. For each record read, the input field called MONTH indicates to which 
MO-TOT the AMT is added. Data need not be entered in any specific se- 
quence; the contents of MONTH determines which MO-TCT is used, 

2. After all input has been processed, a subscript called SUB is varied from 
1 to 12 to print out the contents of all MO-ToTs in a specific sequence. 


B. Rules for Use of the OCCURS Clause 


1. Levels 02-49 

An OCCURS clause may be used on levels o2—49 only. That is, the OCCURS is 

not valid for 01, 77, and 88 levels. This means that the 01 level in WORK ING~ 

STORAGE or in the FILE SECTION may not be specified with an OCCURS. 
Suppose we wish to read 15 input records with the same format. It is not 

valid to code: 


Invalid 
O1 IN-REC OCCURS 15 TIMES, 


To indicate 15 occurrences of IN-REC, we perform an initial read and exe- 
cute a routine that reads records 15 times: 


READ INFILE AT END MOVE 1 TO EOF, 
PERFORM READ-AND-PROCESS-RTN 15 TIMES, 


The PROCEDURE DIVISION, then, would include coding that indicates 15 
records are to be read. The DATA DIVISION would simply include the record 
format as in previous programs. OCCURS is used for repeated occurrences of 
fields, then, not records. 

(a) Formats of the OCCURS Clause. The primary format for the OCCURS 
clause is as follows: 


Fields can OCCUR integer TIMES only; a data-name may not be used to 
specify the number of times a field occurs within an array. 

But suppose the number of times a field will occur varies. That is, the 
number of occurrences depends on the contents of some data field. If the 
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number of entries defined by an OCCURS is to be variable, we may use an 
OCCURS ... DEPENDING ON clause: 


Format 2 


Example 05 DAILY-TOTAL OCCURS 28 TO 31 TIMES 
DEPENDING ON DAYS-IN-MONTH. 


In this example, the number of array entries that can be accessed will be determined 
by the contents of the data-name called DAYS-IN-MONTH. Integer-1 indicates the min- 
imum number of occurrences of DAILY-TOTAL and integer-2 indicates the maximum 
number. Thus, DAILY-TOTAL will have either 28, 29, 30, or 31 items, depending on an 
input field called DAYS-IN-MONTH, which indicates the number of days there are in 
the specific month being entered. Integer-1 must have a value less than integer-2. 


(b) Defining an OCCURS Entry as Either an Elementary or a Group Item. Thus 
far, we have focused on OCCURS clauses that define elementary items: 


Example ot TOTALS. 
05 MO-TOT OCCURS 12 TIMES PIC 9(5)V99. 


The 05-level item defined by an occurs has a PIC clause, making the 12 MO-TOT 
fields elementary items. Thus, TOTALS is an 84-byte array (12 x 7) consisting of 12 
elementary items: 


Totals 


XXXXX.XX XXXXX.XX ws | XXXXX.XX 
MO-TOT (1) MO-TOT (2) MO-TOT (12) 


The data-name used with an OCCURS clause may be a group item as well: 


o1 TAX-TABLE. 
05 GROUP-X OCCURS 20 TIMES. 
10 CITY PIC X(B). 
10 TAX-RATE Pic yoo, 


In this instance, CITY and TAX-RATE each occur 20 times within a group 
item called GROUP-X: 


TAX-TABLE 


In the PROCEDURE DIVISION we may access GROUP~x subscripted by a 
number or data-name that varies from 1 to 20. This will result in a 9-byte 
access: six for the corresponding CITY and three for the corresponding TAX- 
RATE. Or we may access the two elementary items independently. Consider 
the following output specification: 


o5 GROUP-OUT. 
10 CITY-OUT PIC X(G)+ 
10 TAX-RATE-OUT Pic y9aogs, 
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The following instructions produce the same results: 
1. MOVE GROUP-X (SUB) TO GROUP-OUT. 


or 


2. MOVE CITY (SUB) TO CITY-OUT, 
MOVE TAX-RATE (SUB) TO TAX-RATE-QOUT. 


Any item defined with an OCCURS clause or subordinate to an OCCURS must 
be referenced with the use of a subscript. To access the 01 level, however, we 
would not use a subscript. On most computers, to initialize TAX-TABLE, for 
example, we may code: 


MOVE ZEROS TO TAX-TABLE,. 


To access the elementary items, specific CITY or TAX-RATE, or the group item 
GROUP-X, however, we must use a subscript. 


2. Accessing a WORK ING-STORAGE Area Defined by an OCCURS Clause 

Suppose 50 state population figures have been read and moved into an area of 
ORK ING-STORAGE called POPULATION-TOTALS. The array may be defined in 
ORK ING-STORAGE as follows: 


28 BR 36, 40. co 8 62 66. 6, co 8 7 


Problem 1 


Be | en] } | | 
ECuRS| BO. ERES.| PIE) BCApDLITEPCTECEEEHrEE 


The OCCURS clause may not be used on the 01 level. OCCURS clauses may 
be written only on the 02-49 levels, subordinate to a record or 01 level. 

The above area, in the WORK ING-STORAGE SECTION, defines 50 ten-position 
numeric fields. Thus, 500 storage positions are reserved for this array. 

To access any of the 50 figures, a subscript must be used in conjunction 
with the data-name STATE-POP. Since STATE-POP is a data-name defined by 
an OCCURS clause, it must always be accessed with a subscript. 

POPULATION-TOTALS is the record name for these 50 fields; it must be 
accessed in the PROCEDURE DIVISION as a group item without using a sub- 
script. The item containing the OCCURS clause or items subordinate to the 
OCCURS clause, however, if they exist, must be accessed in the PROCEDURE 
DIVISTON with a subscript. STATE-POP or any level item subordinate to STATE- 
POP, if one existed, uses a subscript to access an individual area within PoP- 
ULATION-TOTALS, 

The above entry defines the storage area for the totals. Data must be read 
from an input device and moved into this area. Later in this section, we will 
discuss the routines necessary for reading and storing the data in the array. 
Let us assume, at this point, that data is already stored in POPULATION-TO- 
TALS; that is, the data has been read and moved to this area. Thus, 50 figures 
have been stored in this array and are now available for processing. 


Write a routine to find the total population of all 50 states. The total population will 
be placed in a field called Usa~-PoP defined in WORK ING-STORAGE. Assume CTR, another 
WORK ING-STORAGE item, is the subscript. The main module of the program will simply 
Say: PERFORM TOTAL-USA-RTN. 

We wish to add STATE-POP (1 ), STATE-POP (2), ... STATE-POP (50) to USA- 
PoP. The most efficient method to accomplish this is to use some variation of the 
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PERFORM statement, preferably the PERFORM .+. YARYING. The following illustrates 
several methods used for determining USA-POP. 
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In all cases, CTR is a numeric item defined in the WORK ING-STORAGE SEC~ 


TION with a PICTURE of 99. MOVE 1 TO CTR in routines (b) and (c) could be 
replaced by a VALUE clause, where CTR is set equal to 1. 


= 


Problem 2 Suppose the population figures are in alphabetic order; that is, STATE-POP (1), the 
first entry in the array, refers to the population of ALABAMA, STATE-POP (2) corre- 
sponds to the population for ALASKA, ... STATE-POP (50) corresponds to WYOMING’s 
population. Write a routine to move CALIFORNIA’s population to an output area called 
poPi. To do this, note that CALIFORNIA is the fifth state in alphabetic order: 


7s iz 16 Fy 40 a 8 Ea 6 0 oa 
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Problem 3 Find the number of states that have population figures in excess of 1,000,000. Place 


his number in TOTAL. 
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Self-Evaluating Quiz 


10. 


1. An OCCURS clause is used to denote 

2. (T or F) An occurs clause may be used in either the FILE SECTION or the WORK ING- 
STORAGE SECTION of the DATA DIVISION. 

3. (T or F) If an item is defined with an OCCURS clause, the subscript used to access 
it could be an integer or a data-name. 


What is wrong with the following (Questions 4—7}? Treat each problem independently. 


4. 01 TOTALS OCCURS SO TIMES, 
05 SUB-TOT PIC 9(5)+ 
5. MOVE TOTAL (0) TO HOLD-IT+ 
6. 01 TOT. 
05 DAY-TOT OCCURS 31 TIMES 
DEPENDING ON MO-NO, 
7. 05 x5 PIC XX VALUE ‘01’. 


+ 
’ 


MOWE ITEM-Z (XS) TO HOLD-IT, 
8. Indicate the difference between the following: 


O1 TOTALI. 
05 STATE 
10 STATE-NAME OCCURS 50 TIMES PIC X(10). 
10 STATE-POP OCCURS 50 TIMES PIC 9(10). 
OL TOTALZ. 
05 STATE OCCURS 50 TIMES. 
10 STATE-NAME PIC X(10). 
10 STATE-POP PIC 9(10)+ 


9. For Question 8, how many positions are reserved for TOTAL1 and TOTAL2? 

Suppose we accumulate the following total area in WORKING-STORAGE. It stores 
the combination of the numbers of the two horses that won the daily double each 
day for the last year. The data is stored in sequence from January 1—-December 31. 


oL TOTALS: 
05 DAILY-DOUBLE OCCURS 365 TIMES Pic 99. 
Thus, if DAILY-DOUBLE (1) = 45, then horses 4 and 5 won the daily double 


on January 1. Print the combination of numbers that won the daily double on Feb- 
ruary 2. 
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11. For Question 10, indicate the number of times the winning combination was 25. 
12. Consider the following total area in WORK ING-STORAGE: 


O1 TOTALS, 
05 DOW-JONES OCCURS 365 TIMES PIC 9(4)¥9, 


This total area lists the Dow-Jones industrial average from January 1 through 
December 31 of a given year. Print the number of days on which the Dow-Jones 
industrial average fell below 1200. 


an array or the repeated occurrence of an item 

T 

. T—As long as the data-name has an integer value, 

. Cannot use OCCURS on the 01 level. 

. Cannot use a 0 subscript. 

. OCCURS ++. DEPENDING ON must specify two integers: a minimum value and a 
maximum value for the number of areas to be accessed. The data-name specified 
indicates the actual number of entries for this run: 


Solutions 


Anon e 


OL TOT, 
OS DAY-TOT OCCURS 28 TO 31 TIMES 
DEPENDING ON MO-NO, 
7. The data-name used as a subscript must be numeric. 
8. The first total area, TOTAL1, defines two arrays: 


[" STATE-NAME 4 [" STATE-POP | 


il 50 1 50 


The second total area defines a single array with two elementary items: 
STATE (1) STATE (50) 


Both total areas may be processed correctly. The first has a string of 50 state 
names followed by a string of 50 population figures. The second has each state 
name directly adjacent to its corresponding population figure. 

9. Each total has 1000 positions: TOTAL1 has 500 (50 x 10) + 500 (50 x 10); ToTAL2 
also has 1000 (50 x 20). 
10. MOVE DATLY-DOUBLE (33) TO NUM-OUT, 
WRITE PRINT-REC 
AFTER ADVANCING 2 LINES, 


Note: February 2 is the 33rd day of the year (81 days in January plus 2 in February). 


1. MOVE O TO WIN-25, 
PERFORM CHECK-RTN VARYING SUB 
FROM 1 BY 1 UNTIL SUB > 365, 
MOVE WIN-25 TO NUM-OUT OF PRINT-REC. 
WRITE PRINT-REC 
AFTER ADVANCING 2 LINES, 
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CHECK-RTN. 
IF DAILY-DOUBLE (SUB) = 25 
ADD 1 TO WIN-25. 
Td: MOVE © TO UNDER-1200, 
PERFORM LOW-DOW VARYING SUB 
FROM 1 BY 1 UNTIL SUB > 365, 
MOVE UNDER-1200 TO NUM-OUT OF PRINT-REC, 
WRITE PRINT-REC 
AFTER ADVANCING 2 LINES. 


+ 
+ 
‘ 


LOW-DOW. 
IF DOW-JONES < 1200 
ADD 1 TO UNDER-1200. 


cease Il. Processing Data Stored in an Area Defined 


with an OCCURS Clause 


A. Moving Data Into an Array and Processing It 


In the POPULATION-TOTALS examples above, we assumed that the data had 
already been read and accumulated in storage. Let us now consider the routine 
to read the data and store it in the array. 

Suppose we have 50 input records, each with a 10-position population fig- 
ure. We wish to store these 500 positions in WORKING-STORAGE for future 
processing; this is similar to the type of processing performed in the previous 
section. To do this effectively, we read and move the data to WORK ING-STOR- 
AGE before processing it. 

The format for the input records is as follows: 


O1 POP-IN-REC, 
05 POP PIC 9(10)% 
05 FILLER PIC X(70)5 


Since there is only one population figure on each input record, we perform 
a routine to read and move the data from 50 records into the following area: 


O1 POPULATION-TOTALS, 
O05 STATE-POP OCCURS 50 TIMES PIC 9(10). 


Note that the 01 entry for POP-IN-REC does not say OCCURS 50 TIMES. 
To indicate that the record itself has 50 occurrences, we perform a read routine 
in the PROCEDURE DIVISION 50 TIMES. The OCCURS clause is used to denote 
the repeated occurrence of fields within records, not of records themselves. 

Since we are reading precisely 50 records, we need not use an initial read 
in our main module: 


PROCEDURE DIVISION. 
MAIN-MODULE, 
OPEN INPUT POP-FILE 
OUTPUT PRINT-FILE+ 
PERFORM STORE-TABLE VARYING SUB 
FROM 1 BY 1 UNTIL SUB > 50 OR EOF = i. 


+ 
+ 


+ 

STORE-TABLE-+ 
READ POP-FILE AT END MOVE 1 TO EOF. 
MOVE POP TO STATE-POP (SUB). 
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The routine reads exactly 50 records and places the population figure of 
each record in the table. The only item to be subscripted in the array called 
POPULATION-TOTALS is STATE-POP, since this is the only item defined by an 
OCCURS clause. 

The POP-FILE should have precisely 50 records to be stored, if it has more, 
only 50 records will be processed; if it has fewer, EOF will be set equal to 1 
and control will return to the statement following the PERFORM. We could 
include the following after the PERFORM to ensure accuracy: 


IF SUB NOT = Si 
PERFORM ERR-RTN, 


Let us elaborate on the read routine, slightly, by altering the input format. 
Suppose each input record has five population figures instead of one. The first 
50 positions of the record contain five population figures, each 10 positions 
long. Thus only 10 READ instructions will be performed, since each record has 
five figures. The input format contains an OCCURS clause indicating that there 
are five population figures on each record. 


Jou | PopcREcL | TT TOT TH ToT 
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The routine to accumulate this incoming data in the WORK ING-STORAGE 
area, POPULATION-TOTALS, is coded here. 
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SUB1 and SUB2 are subscripts that are defined in WORKING-STORAGE. SUB1 
does not need to have a VALUE clause, since, for each input record that is read, 
it will vary from 1 to 5 under the control of the PERFORM » ++ VARYING. SUB2, 
which is to vary from 1 to 50, however, has an initial VALUE of 1. After the 


first input figure is moved to the STATE-POP array, we then add 1 to SUB2 so 
that the next figure read in will be moved to the next location in STATE-POP. 
We may also use different options of the PERFORM as well: 
mG 1% is 20 2 2 3 3 7 a ry 7 Ea oo a al 
PERFORM READ-RINULNTILL SUB2 = 5A an 
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B. Using OCCURS with REDEFINES and VALUE Clauses 
Note that once an entry has been defined by an OCCURS clause, it may not be 
redefined. Thus the following is invalid: 
Invalid 
8 12 16 20 24 28 32 36. 40 44 48 52 56 60 64 68 = 72 
i 06! LITEMEX| Occurs! 4) ir ‘c| ba 
L 0) | Ny IL = C| Ki orn a 
t | + | Cannot redefine | 
| | | au array 
| } + r | t | I rH TTT TTT 
Similarly, an item defined with an OCCURS clause may not have a VALUE associated 
with it unless you are using a 1985 COBOL compiler. 
Invalid for 1968 05 AMTS OCCURS 50 TIMES PIC 999 VALUE ZEROS. 


and 1974 compilers 
It is, however, always valid to define an entry and then redefine it with an 
occurs clause. In addition, the first entry may have a VALUE clause, used to 
establish a constant, if it is in the WORKING-STORAGE SECTION. 
The following example will illustrate the usefulness of defining an entry 
with a VALUE and then redefining it with an OCCURS clause: 


Example 01 MONTH-ARRAY+ 
05 ITEM-Z PIC X(36) VALUE 
+ JANFEBMARAPRMAY JUNJULAUGSEPOCTNOVDEC ‘s 
05 MONTH REDEFINES ITEM-Z OCCURS 12 TIMES PIC XXX. 


The first 05 field, 1TEM-2z, establishes a 36-position constant that contains 
a three-byte representation for each of the 12 months of the year. MONTH then 
redefines [TEM-z and allows each three-character code for months 1 through 
12 to be accessed independently using a subscript. If we move MONTH (4), for 
example, to an output area, APR would print, which is an abbreviation for the 
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fourth month. In this way, each abbreviation for a month can be accessed by 
using the corresponding subscript, as in the following: 


MONTH MONTH MONTH MONTH MONTH MONTH MONTH MONTH MONTH MONTH MONTH MONTH 
)) (2) (3) (4) (5) (6) 7) (8) (9) (10) 1) (12) 


To print the appropriate three-character abbreviation for each month, we 
may use the following routine: 
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C. Printing Data Stored in an Array 


At the beginning of this chapter, there was a problem that involved reading 
in 24 hourly temperatures for Los Angeles. The input record was defined as: 


0 TEMP-REC, 
08 EMPERATURE OCCURS 24 TIMES PIC 9(3), 


Suppose that we want to print out on one line the 24 temperature values 
in each input record. We can also use the OCCURS clause in an output record, 
as illustrated in the following program excerpt. 


DATA DIVISION, 

FILE SECTION, 

FD TEMP-FILE 

LABEL RECORDS ARE OMITTED. 

ie) TEMP-REC, 

93S TEMPERATURE OCCURS 24 TIMES PIC 9¢3), 
FD PRINT-FILE 

LABEL RECORDS ARE OMITTED, 

ce) OUT-RECORD, 


05 FILLER PIC xX. 

OS AMT-OUT OCCURS 24 TIMES, 
0 TEMP-OUT PIC 229. 
10 FILLER PIC X, 

05 FILLER PIC X(36). 


WORK ING-STORAGE, 


SINGLE-LEVEL OCCURS CLAUSES 479 


O1 WORK-AREAS. 
05 SUB PIC 99, 


* 


PROCEDURE DIVISION. 
MAIN-MODULE+ 


’ 
+ 


READ TEMP-FILE AT END MOVE 1 TO EOF. 
PERFORM RTN-1 UNTIL EOF = 1. 
’ 


’ 
’ 


RTN-1+ 
MOVE SPACES TO OUT-RECORD. 
PERFORM MOVE-RTN VARYING SUB FROM 1 BY 1 
UNTIL SUB > 24, 
WRITE QUT-RECORD 
AFTER ADVANCING 2 LINES, 
READ TEMP-FILE AT END MOVE 1 TO EOF. 
MOVE-RTN+ 
MOVE TEMPERATURE (SUB) TO TEMP-OUT (SUB). 


Notice that AMT-ODUT is a group item that consists of two elementary items: 
TEMP-OUT and a FILLER. The FILLER is necessary so that there is a single 
blank between each temperature for readability. The layout for the 133 posi- 
tions of OUT-RECORD is thus as follows: 


1 3.4 5 7 8 9 Ii. 12 


SS _ ~~ ~”«| 
CHAPTER SUMMARY 
1. occuRS clauses are used in the DATA DIVISION to specify the repeated oc- 
currence of items with the same format. 
2. The basic format for an OCCURS clause is: 


(level-number 02-49) data-name OCCURS integer TIMES 


3. An expanded format for an OCCURS clause is: 


(level-number 02-49) data-name-1 OCCURS 
integer-1 TO integer-2 TIMES 
DEPENDING ON data-name-2 


4, occuRS clauses may be written on any level except 01, 77, and 88. 

5. An OCCURS clause may specify an elementary or group item. 

6. An entry defined by an occurs clause may not be redefined and may not 
contain a VALUE. 
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7. Subscripts 

(a) Every item defined by an occurs clause in the DATA DIVISION or sub- 
ordinate to such an item must be accessed with a subscript. 

(b) A subscript may be a numeric literal with an integer value. 

(c) A subscript may be a numeric field with an integer value. 

(d) Subscripts are enclosed in parentheses when used in the PROCEDURE 
DIVISION, 

(e) Example: ADD TAX (5) TO TOTAL. 
5 is the subscript. The statement adds the fifth entry in the Tax table to 
TOTAL. 


CHAPTER SELF-EVALUATING QUIZ 


1. (T or F) An occurs clause may be used in WORKING-STORAGE but not in the FILE 
SECTION 

2. (T or F) An occurs clause may be used for defining an array or a table. 

3. The repeated occurrence of fields with the same format is best described with the 
use of a(n) _______ clause. 

4. (T or F) To print a WORKING-STORAGE area described with an occURS clause, we 
May use a PERFORM «++ VARYING statement. 


5. (T or F) The following are valid entries: 
FILE SECTION 
FD IN-FILE 


LABEL RECORDS ARE STANDARD. 
O1 IN-REC OCCURS 50 TIMES, 


6. (T or F) The following is a valid statement: 


ADD TEMP (SUB + 24) TO TOTAL, 


7, A ______ is used in the PROCEDURE DIYISION to indicate which item within 
an array we wish to access. 


8. (T or F) A subscript may be either a data-name or an integer. 
9. (T or F) We may use an OCCURS clause in WORK ING-STORAGE to store totals. 


10. If we store totals in WORK ING-STORAGE, they must always be _______ before we 
add to them. 


11, An OCCURS clause may only be used on levels 


12. If the number of occurrences of a field is variable, we may use an OCCURS ,.. 
clause. 


13. (T or F) An item defined by an occurs may be a group item that is further divided 
into elementary items. 


14. We can move data into an array or data into an array, 
15. (T or F) An output area may be defined with an array. 


Consider the following: 


OL EXd, 
OS DAYS-TOGETHER PIC X(21) 
VALUE ‘MONTUEWEDTHUFRISATSUN’, 
05 EACH-DAY REDEFINES DAYS-TOGETHER 
OCCURS 7 TIMES PIC X(3), 


16. (T or F) The above entries are valid. 
17. If, in the above, we DISPLAY EACH-DAY (3), —______ will “print, 
18. If we DISPLAY DAYS-TOGETHER, _____ will print. 


Solutions 
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Suppose ITEM is defined as follows: 
05 ITEMX OCCURS 5 TIMES. 
19, (T or F) To code MOVE ITEMX (SUB), where SUB is defined with a VALUE of 6, is 
correct. 
20. (T or F) To code MOVE ITEMX (SUB), where SUB has a value of 0, is correct. 
Page 


1, F—It may be used to define the repeated occurrence of input or output fields 463 
in the FILE SECTION as well as in WORKING-STORAGE. 


2. T 463 
3, OCCURS 463 
4. T—The PERFORM «++ VARYING is usually the best technique. 466 
5, F—The occurs clause may not be used on the 61 level. 469 
6. F—The subscript may not be an expression such as SUB + 24. 465 
7. subscript 464 
8. T 465 
9.5 467 
10. initialized (begin at zérp), 468 
ll. 02-49 469 
12. DEPENDING ON 470 
13. T 470 
14. add 468 
15,.'T. 478 
16. T 477 
17. WED 477 
18. MONTUEWEDTHUFRISATSUN 477 
19, F—SUB may only vary from | to 5. 465 
20. F—SUB may only vary from 1 to 5. 465 


PRACTICE PROGRAM 


The problem definition is illustrated in Figure 18.2. 


Notes 

1. Any number of sales records in customer number sequence for 1985 may be read as input. 
2. Twelve monthly totals will be printed. 

3. Assume all input records have year = 85 in the date-of-transaction field. 


The program with sample output is illustrated in Figure 18.3. 


KEY TERMS 

Array OCCURS .+» DEPENDING ON clause 
occurs clause Subscript 

REVIEW QUESTIONS 


I, True-False Questions 
1. (T or F) If an input record contained 10 group items, each with a three-digit ele- 
mentary item followed by a four-digit elementary item, then an OCCURS clause 
could be used to define the input fields. 


2. (T or F) occurs clauses may only be used to define numeric fields. 


482 ARRAY PROCESSING AND TABLE HANDLING 


Figure 18.2 — Systems Flowchart 
Problem definition for the 
Practice Program. 
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3. (T or F] We can refer to any item in an array with the use of a subscript along with 
the data-name that defines the OCCURS. 


4. (T or F) Subscripts are usually defined in WORKING-STORAGE to access entries 
within an array. 

5. (T or F) The PERFORM .. + YARYING is the most efficient instruction for processing 
all entries within an array. 

T or F} An input field may not be used as a subscript. 

T or F] An occurs clause may not be used on the 01 level. 

(T or F] An occuRS clause may only be used to define entries in the FILE SECTION. 
T or E) Data can be either moved or added to an array. 


10. (T or F) If fields to be printed are defined with an array, they include a FILLER as 
an item subordinate to the OCCURS specification for ease of reading. 


$9) 100: Sl (G8 


II. General Questions 


1. An input record consists of 15 group items, each with a 3-digit PART-NO and asso- 
ciated 3-digit QUANTITY-ON-HAND. Use an OCCURS clause to define the input. 


2, Assume a record has been read. Determine if the record contains the quantity on 
hand for PART-NO 126. If so, print the quantity. 

3. Find the average quantity on hand for the 15 parts. 

4. Assume there are 50 input records, each with fields described as in Question 1. 
Code the WORK ING-STORAGE entry to store these part numbers and their correspond- 
ing quantities on hand. 

5. Write a routine to load the 50 input records into the WORKING-STORAGE entry. 

6. Write a routine to find the average quantity for all parts stored in WORK ING-STOR- 
AGE. 


7, Write a routine to print an inventory report from the array, with three part numbers 
and their corresponding quantities on hand printed on each line. 


I. Validating Data 


Modify the Practice Program so that it includes coding to (1) test for all errors and (2) 
print a control listing of totals (records processed, errors encountered, hash total). 


DEBUGGING EXERCISES 


Consider the following: 


WORKING-STORAGE SECTION. 
01 STORED-AREAS. 
oS EOF PIc 9 VALUE 0+ 
o5 SUBI PIC 9. 
O1 TABLE-IN+ 
05 ENTRIES OCCURS 20 TIMES. 
10 CUST-NO PIc 999, 
10 DISCT PIC V9Oo. 
* 
PROCEDURE DIVISION. 
MAIN-MODULE. 
OPEN INPUT TABLE-FILE SALES-FILE 
OUTPUT PRINT-FILE. 
READ TABLE-FILE AT END MOVE 1 TO EOF. 
PERFORM TABLE-ENTRY VARYING SUB1 FROM 1 BY 1 
UNTIL SUB1 ? 20, 
PERFORM CALC-RTN UNTIL EOF = 1. 
CLOSE TABLE-FILE» SALES-FILE+ PRINT-FILE+ 
STOP RUN. 
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TABLE-ENTRY. 
MOVE T-CUST-NO TO CUST-NO (SUB1). 
MOVE T-DISCT TO DISCT (SUB1), 
READ TABLE-FILE AT END MOVE 1 TO EOF. 
CALC-RTNy 


’ 
’ 


There are two major logic errors in this program excerpt. 


1. After the table has been loaded, no CALC-RTN processing is performed. That is, the 
run is terminated after the table is loaded. Find the error and correct it. 
2. After receiving an obscure interrupt message, you DISPLAY TABLE-IN entries and 
find that only the last nine have been loaded. Find the error and correct it. 
PROGRAMMING ASSIGNMENTS 
1, Write a program to print total sales for each salesperson. The problem definition is 
shown in Figure 18.4. 
Notes 
a) There are 20 salespeople, numbered 1 to 20. 
(b} Each sale that is made is used to create one input tape record; thus, there may be numerous 
input records for each salesperson if he or she made more than one sale. 
c) Input records are not in sequence. (If they were, you could use a control break procedure.) 
(d) Print the total sales figure for each salesperson, thus, although the number of input records 
is variable, the output will consist of 20 totals. 
(ec) All total fields should be edited. 
2. Write a program to print total salaries for each territory in a company. The problem 
definition is shown in Figure 18.5, 
Notes 
{a) There are 3 territories, numbered 01, 02, and 03, 
(b] PAYROLL-MASTER is not in sequence by territory number. 
3, Write a program to print a transaction report. The problem definition is shown in 
Figure 18.6. 
Notes 
(a) The number of input records is variable. Print daily totals for each day of January 1985 
and a monthly total for January as well. 
(b} Input records are not in sequence, 
{c) All numeric fields are to be edited. 
(d) Month in Date of Transaction varies from 1 to 12, 
4. Write a program to print daily sales totals in sequence. The input consists of tape 


records with the following format: 


1-5 Amount of sales for Day X (XXX.XX) 
6-10 Amount of sales for Day X+1 (XXX.XX) 
11-80 Not used 
Records are blocked 25; standard labels are used. 


Notes 

{a) The first input record has amount of sales for days 29 and 30; the second for days 27 and 
28, and so on. There are 15 input records. 

{b) Print the sales figures in proper sequence from Day 1 to Day 30. On each line, print the 
Day number and the corresponding sales figure, 

{c) Include appropriate titles and the date on the output. 


Figure 18.3 
Solution to the Practice 
Program. 
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Figure 18.4 Systems Flowchart 


Problem definition for Pro- 
gramming Assignment 1. 
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Figure 18,5 Systems Flowchart 
Problem definition for Pro- 
gramming Assignment 2. 
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Figure 18.5 
SALARY-REPORT Printer Spacing Chart Continued 
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Figure 18.6 Systems Flowchart 
Problem definition for Pro- 
gramming Assignment 3. 
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Example 1 


OBJECTIVES 


To familiarize you with: 

1. How to use an OCCURS clause to store table data. 

2. The use of the SEARCH statement to perform a serial search. 

3. The use of the SEARCH ALL statement to perform a binary search. 
4. The differences between subscripts and indexes. 

5, Error control procedures to be used with table look-ups. 

6. How to avoid common logic errors in table handling routines. 


I. Using an OCCURS Clause for Table Handling 


A. Defining a Table 


Thus far, we have focused on the OCCURS clause to store arrays or total areas 
within WORK ING-STORAGE or to indicate the repeated occurrence of data fields 
within the FILE SECTION. In this chapter, we will focus on the use of an 
occuRS clause to store table data. As we will see, tables and arrays are stored 
in exactly the same way; they are, however, used for different purposes. 

‘A table is a list of data items that are referenced as needed by the program. 
Tables are used in conjunction with table look-ups, where a table look-up is 
a procedure that finds a specific entry in the table. 


Suppose that a mail-order company ships items to individuals throughout the United 
States. A program is required that [1] reads customer input data containing billing 
information and (2) produces output in the form of customer bills when the items are 
actually shipped. Since each county in the United States has a different tax structure, 
a procedure must be coded for calculating sales tax. Two techniques may be employed: 


1. The actual sales tax rate may be entered as part of each input record. 

Entering the sales tax rate in cach input record would be very inefficient. 
First, sales tax rates occasionally change; each time there is a change to a tax 
rate in a county, all input records pertaining to that county would need to be 
changed. Second, recording the sales tax rate for each input record means extra 
data entry and thus results in additional effort and more risk of input errors. 

2. The sales tax rates may be entered as a table and referenced as needed. 

This is a far more efficient and effective method for storing tax rate data than 
the first method. Input to the program would consist of two files. The table file 
with sales tax rates corresponding to cach county is entered first and stored in 
WORK ING-STORAGE. Then the input file is read; for each input record, we would 
use the table to “look up” the sales tax rate in the table that corresponds to the 
county specified in the input record. 


Suppose there are 1000 tax rates and 10,000 customer records. To include a sales 
tax rate in each input record would require 10,000 additional fields to be entered as 
input. It is far more efficient (1) to enter the 1000 sales tax rates as a table and (2) for 
each input record, to look up the appropriate rate in the table. 

To store a table, we must associate a tax rate with each specific tax district. We 
may use the zip code to specify each tax district. 

Assume that sales tax rate is stored using zip code. That is, corresponding to each 
zip code, we store in the table a sales tax rate. 
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SALES 
ZIPCODE TAX RATE 
@ XXXXX EXXX 
XXXXX _XXX 
XXXXX XXX 


TABLE-FILE 


56 1011 13 14 33 34 38 


CUSTOMER-DATA 


The table file is read first, with zip codes and tax rates stored in WORK ING-STORAGE. 
Then the input customer file is read. The zip code from each customer record is com- 
pared to the zip code in the table until a match is found. The sales tax rate correspond- 
ing to a specific zip code is used to calculate a total price to be printed as follows: 


aM APAARRE Ash lll 
ol 
2 | HH 
[3 
4 bf} 
5 baad 
f ) RORBERD (68) cH 
faerie et aC IST/-NO-lOUT) | | (UNITIT-IBR 
Rg 


B. Storing the Table in WORK ING-STORAGE 


Storing the sales tax data in a table is more efficient not only because it 
minimizes data entry operations, but also because the sales tax rates can be 
more easily maintained, or updated, in the table, as needed. That is, if there 
is a change to a specific tax rate, we need only alter the single table entry 
pertaining to that rate. If the sales tax data appeared in the input customer 
file, we would need to revise all customer records affected by the sales tax 
change. 

The COBOL program to achieve the desired customer bills may be divided 
into two modules: 


1. Reading and storing the table. 
2. Processing each input record which includes a table look-up. 


Suppose we have 1000 table entries with the following format: 


1 56 89 10 


TABLE-FILE : 
To-pesition records TABLE-FILE Record Layout 


20 records/block 
1000 records 
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The TABLE-FILE could be coded as follows: 


FD TABLE-FILE 
LABEL RECORDS ARE STANDARD 
BLOCK CONTAINS 20 RECORDS. 
O1 TABLE-REC,. 


05 T-ZIPCODE PIC 9¢5)5 
Oo5 T-TAK PIc v9aa,. 
05 FILLER PIC XXe 


Note that we do not indicate in the DATA DIVISION the number of table 
records that will be processed. Instead, in the PROCEDURE DIVISION we will 
perform a TABLE-ENTRY module 1000 times. 

Since table data must be stored before we begin processing the input cus- 
tomer file, we use WORKING-STORAGE to store the 1000 entries: 


WORKING-STORAGE SECTION, 
O1 SALES-TAK-TABLE. 
O05 STORED-ENTRIES OCCURS 1000 TIMES, 
10 ZIPCODE PIC 9(3)+ 
19 TAX PIc vagdg. 


Because the word ‘TABLE’ is a COBOL reserved word, it should not be 
used in a program as a data-name. 

The WORKING-STORAGE table would store the 1000 entries in the following 
manner: 


The main input file will contain customer billing data used to produce an 
output file of bills: 


FD CUST-FILE 
LABEL RECORDS ARE STANDARD. 
O1 CUST-REC, 


0S CUST-NO PIC 9(3)+ 
O5 UNIT-PRICE PIC 9(3)V99. 
oS OOTY PIC 9(3). 
05 ADDRESS-1 PIC X(20)4 
05 ZIP-IN PIC 9(5). 


FD CUST-BILL 

LABEL RECORDS ARE OMITTED. 
O1 PRINT-REC PIC X(133). 
WORKING-STORAGE SECTION. 


' 
’ 


O1 BILLING-REC, 


OS FILLER PIC X(20) VALUE SPACES, 
o5 CUST-NO-OUT PIC 9(5)+ 

05 FILLER PIC X(10) VALUE SPACES: 
oS UNIT-PRICE-OUT Pic 999.99. 

05 FILLER PIC xX(190) VALUE SPACES. 
o5 OTY-OUT PIc 229, 

05 FILLER PIC X(10) VALUE SPACES. 
o5 SALES-TAX PIC Z2(6).99. 


05 FILLER PIC X(19) VALUE SPACES. 
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03 TOTAL PIC Z2+2Z 
O35 FILLER PIC X(38 


2222.98, 
} 


VALUE SPACES, 


The MAIN-MODULE references both the TABLE-ENTRY and CALC-RTN mod- 
ules: 


PROCEDURE DIVISION. 


MAITN-MODULE 
OPEN INPUT TABLE-FILE 
CUST-FILE 
QUTPUT CUST-BILL. 
PERFORM TABLE-ENTRY VARYING SUB FROM i BY 1 
UNTIL SUB > 100d, 
READ CUST-FILE AT END MOVE 1 TO EOF, 
PERFORM CALC-RTN UNTIL EQF = 1, 
CLOSE TABLE-FILE» CUST-FILE, CUST-BILL,. 


STOP RUN. 


Consider the PERFORM TABLE-ENTRY statement. When SUB exceeds 1000, 
that is, when it is 1001, TABLE-ENTRY has been performed 1000 times and 
control returns to the main module. Since $uB will vary from 1 to 1001, it 
must be defined as a four-position numeric field: 


Ol STORED-AREAS, 
0S SUB PIC 9¢4). 


An initial READ is not necessary for processing the TABLE-FILE because 
we know precisely how many table records are to be read. Since 1000 table 
entries are to be read and stored, we execute the TABLE-ENTRY routine 1000 
times by varying the subscript from 1 to 1001. The TABLE-ENTRY module 
could be coded as follows: 


TABLE-ENTRY > 
READ TABLE-FILE AT END 
DISPLAY ‘NOT ENOUGH TABLE RECORDS’ 
CLOSE TABLE-FILE» CUST-FILE» CUST-BILL 
STOP RUN. 
T-ZIPCODE TO ZIPCODE (SUB), 
MOVE T-TAX TO TAX (SUB). 


We could also use an initial READ in the main module and code the READ 
within TABLE-ENTRY as the last instruction. 

The table entries ZIPCODE and TAX require subscripts to be referenced in 
the PROCEDURE DIVISION. The above module will read and store 1000 table 
entries. If there are fewer than 1000 table records, an error message will print 
and the program will terminate. The DISPLAY is used to print brief messages 
on a terminal or printer (see Chapter 24). 


C. Looking Up Data in a Table 


1, Finding a Match 

After the table data has been stored in WORK ING-STORAGE, we may read cus- 
tomer billing data and produce bills. To find the sales tax rate for each CUST- 
No, however, we must look up the zip code in the table until it matches the 
zip code in the customer record. When a match is found, the corresponding 
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sales tax rate, with the same subscript as the table’s zip code, will be used for 
calculating the sales tax: 


SALES-TAX-TABLE 


ZIPCODE TAX 
XXXXX XXX 


XXXXX XXX 


cla eenenreee aaa 


co errr 
| Corresponding 
| TAX RATE for 


4 
: | 
XXXXX XXX | ZIPCODE = 12311) 


Consider the following coding: 


CALC-RTN: 
MOVE CUST-NO TO CUST-NO-OUT. 
MOVE UNIT-PRICE TO UNIT-PRICE-OUT. 
MOVE QTY TO OTY-OUT, 
MOVE 1 TO SUB, 
PERFORM STEP-UP UNTIL ZIP-IN # ZIPCODE (SUB). 
COMPUTE SA@LES-TAX = TAX (SUB) * UNIT-PRICE * QTY, 
COMPUTE TOTAL = UNIT-PRICE * QTY + SALES-TAX, 
WRITE PRINT-REC FROM BILLING-REC 
AFTER ADVANCING 2 LINES. 
READ CUST-FILE AT END MOVE 1 TO EOF. 
STEP-UP, 
ADD 1 TO SUB. 


When the statement after PERFORM STEP-UP is executed, SUB will contain 
the value that produced a match between Z1P-IN on the customer file and 
ZIPCODE (SUB) on the table. Hence TAX (SUB) will be the corresponding 
tax rate we wish to use for computing SALES-TAX. 

If PERFORM STEP-UP were coded with a VARYING option, the statement 
MOVE 1 TO SUB would not be necessary and STEP-UP would simply have an 
EXIT, since there would be no operation required: 


CALC-RTN» 


PERFORM STEP-UP VARYING SUB FROM 1 BY 1 
UNTIL ZIP-IN = ZIPCODE (SUB). 


’ 
' 


STEP-UP. 
KIT. 


2. Error Control Procedures to Be Used with Table Look-Ups 

The above procedures will function properly if each customer record has a zip 
code that matches a zip code in the table file. But suppose a zip code is erro- 
neously coded in the CUST-FILE and there is no corresponding zip code in 
the TABLE-FILE. The subscript will continue to be incremented, even past 
1000, until the computer terminates the run. To avoid an abend condition, 
an error control procedure should be built into the program: 
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CALC-RTN. 
MOVE CUST-NO TO CUST-NO-OUT. 
MOVE UNIT-PRICE TO UNIT-PRICE-OUT, 
MOVE OTY TO OTY-OUT, 
PERFORM STEP-UP YARYING SUB FROM 1 BY 1 UNTIL 
SUB * 1000 OR ZIP-IN = ZIPCODE (SUB), 
IF SUB NOT ? 1oOoo 
COMPUTE SALES-TAX = TAX (SUB) * UNIT-PRICE * OTY 
BELGE 
OVE 0 TO SALES~TAX, 
Ce ee ee ee ed 
*** IF NO MATCH IS FOUND ON THE TABLE HEX 
HEX 0 IS MOVED TO SALES-TAX HEE 
CCL LESSEE EL eS ee ec Le Lee ee ee ee es 
COMPUTE TOTAL = UNIT-PRICE * QTY + SALES-TAX, 
WRITE PRINT-REC FROM BILLING-REG 
AFTER ADVANCING 2 LINES. 
READ CUST-FILE AT END MOVE 1 TO EOF, 
STEP-UP, 
EXIT. 


Sometimes arrays and tables are given the same definition. In this book, we have, 
however, made the following distinction: 


Array Used for totaling variable data—usually for accumulating amounts 
from groups of fields. 


Table Contains stored data used for look-up procedures. 


Both arrays and tables are stored in the same way with the use of OCCURS. Both 
may be accessed with the use of a subscript. 


nput consists of a tape file of approximately 10,000 records with the following format: 


1--5 ACCT-NO 
6-10 AMT-OF-SALE 


We wish to create an exception report indicating the ACCT-NO and ANT-OF-SALE 
or each account that has been de-activated because either the account is in arrears or 
the customer's credit card has been lost. For each run, a table file of 50 invalid acct- 
NOs is read in from another tape. 

The program that will perform the required operation and produce the desired results 
is illustrated in Figure 19.1. 

Note that SUB, as a subscript, may be used at two different points in the program. 
PERFORM TABLE-ENTRY varies SUB from 1, as does PERFORM STEP-UP. 


XXX.XX 


Self-Evaluating Quiz 


<= 


. A(n) —_____ contains constant data used for look-up procedures, a(n) 

is used for totaling variable data. 
2. (T or F) We use an OCCURS clause to define a table in WORK ING-STORAGE. 
A ________ is a procedure used to find a specific entry in the table. 
4. Suppose that cach customer in a CUST-FILE is entitled to a discount depending 
on the AMT-~OF-PURCHASE, an input field in the customer’s record. For AMT-OF- 
PURCHASE between 0 and $1000, a discount of 2% is allowed, for AMT-OF -PUR- 
CHASE between $1001 and $2200, a discount of 5% is allowed, and so on. There 
are more than 10,000 records in CUST-FILE. The discount percentages for the 
corresponding @MT-OF-PURCHASE figures are best stored in a table for two 
reasons; _____ and 


& 
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Figure 19.1 * 
Sample error control procedure DATA DIVISION. 
with a table look-up. FO TABLE-FILE 

LABEL RECORDS ARE STANDARD: 
Ol TABLE-REC. 

O85 BAD-ACCT-IN PIC StS )« 
FD ACCT-FILE 

LABEL RECORDS ARE STANDARD, 
ol ACCT-REC. 

o5 AcCCT-NO PLE 8052+ 

o5 AMT PIC 9(3)V99. 
FD EXCEPTION-REPORT 

LABEL RECORDS ARE OMITTED: 
O1  PRINT-REC PIC X(133). 
WORKING-STORAGE SECTION. 
O1 STORED-AREAS VALUE ZERO. 


05 EOF PIC 3. 
05 SUB PIC 99, 
Ol TABLEI: 
05 T-ACCT OCCURS 50 TIMES PIC (5). 
O1 EX-REC, 
0S FILLER PIC X(20) VALUE SPACES, 
05 AcCT-OUT PIC 9(5), 
05 FILLER PIC X(20) VALUE SPACES, 
O5 AMT-OUT PIc 999.99. 
05 FILLER PIC X(82) VALUE SPACES, 


* 
PROCEDURE DIVISION. 
MAIN-MODULE. 
OPEN INPUT TABLE-FILE 
ACCT-FILE 
OUTPUT EXCEPTION-REPORT. 
MOVE SPACES TO PRINT-REC. 
PERFORM TABLE-ENTRY VARYING SUB FROM 1 BY 1 
UNTIL SUB > 50+ 
READ ACCT-FILE AT END MOVE 1 TO EOF. 
PERFORM CALC-RTN UNTIL EOF = 1, 
CLOSE TABLE-FILE ACCT-FILE EXCEPTION-REPORT. 
STOP RUN, 
CALC-RTN+ 
PERFORM STEP-UP VARYING SUB FROM 1 BY 1 
UNTIL SUB } 50 OR 
ACCT-NO = T-ACCT (SUB). 
IF SUB } 50 
NEXT SENTENCE 
ELSE 
MOVE ACCT-NO TO ACCT-OUT 
MOVE AMT TO AMT-QUT 
WRITE PRINT-REC FROM EX-REC AFTER ADVANCING 2 
READ ACCT-FILE AT END MOVE 1 TO EOF. 
TABLE-ENTRY+ 
READ TABLE-FILE AT END DISPLAY ‘ERROR’ 
CLOSE TABLE-FILE» ACCT-FILE» EXCEPTION-REPORT 
STOP RUN+ 
MOVE BAD-ACCT-IN TO T-ACCT (SUB). 
STEP-UP. 
EXIT, 
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5. Consider the format for the following input discount records. 


45 89 10 


There are 20 discount records to be stored as follows: 


DISCOUNT-TABLE 


f 7 
{ 
| | 
| | 
| _LOWER-LIMIT UPPER- LIMIT DISCOUNT-PCT | 
| 0000 1000 .02 
| | 
| 1001 2200 .05 | 
| 
| 2201 3100 .06 | 
| | 
| ; ‘ i 
i . i 
| | | 
| 9100 9999 4 
| 


Code the WORK ING-STORAGE entries that describe the table. 
6. (T or F) To indicate that there will be 20 table records entered, we can code: 


O1 TABLE-REC-IN OCCURS 20 TIMES, 


Consider the following for Questions 7-10. (Review Questions 4—6 for background 
information.) 
Suppose the input and output files are defined as follows: 


FD TABLE-FILE 
LABEL RECORDS ARE STANDARD, 
OL TABLE-~REC~INy 


05 LOWER-LIMIT-IN PIC 9(4), 
OS UPPER-LIMIT=IN PIC 9(4), 
0S DISCT~PCT-IN PIC yoo, 


FD CUST-~FILE 
LABEL RECORDS ARE STANDARD, 
O1 CUST-REC, 
OS NAME PIC X(20), 
OS AMT-OF-PURCHASE PIC 9(4)ya9, 
FD CUST-BILL 
LABEL RECORDS ARE OMITTED, 
OL  PRINT-REC PIC (133), 
WORKING-STORAGE SECTION. 


’ 
+ 


OL BILL. 
OS FILLER PIC X(10), 
05 NAME-OUT PIC X(20), 
OS FILLER PIC X(10), 
OS  AMT-~OUT PIC Z2(4).99, 
OS FILLER PIC X(10), 
OS AMT-LESS-DISCOUNT PIC, 2(4),.99, 


OS FILLER PIC X(69). 


Solutions 
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7. Code the MAIN-MODULE for this program. 

Code the TABLE-ENTRY routine for this program. 

9. Code the CALC-RTN for this program. AMT-LESS-DISCOUNT is calculated by sub- 
tracting the discount amount from AMT-OF-PURCHASE. The discount amount is 
determined by multiplying aMT-OF - PURCHASE by the discount percentage, which 
is found from a table look-up. 


we 


10. Code the table look-up routine. 
11. The subscript should be (no.) positions long. 


1. table; array 

2. T 

3. table look-up 

4. (a) In case discount rates change, it is easier to revise table entries than input 
records. 
(b) It is more efficient to store a small discount rate table in storage as compared 
to entering the specific discount rate in each of several thousand input records. In 
addition to saving data entry time and file space, the possibility of input errors 
will be reduced. 

5. 01 DISCOUNT-TABLE,. 

05 TABLE-ENTRIES OCCURS 20 TIMES. 


10 LOWER-LIMIT PIC 9(4). 
10 UPPER-LIMIT PIC a(4). 
10 DISCOUNT-PCT PIc Vag. 


6. F—To indicate that there are 20 TABLE-REC-IN entries, we PERFORM a TABLE- 
ENTRY routine 20 times. An OCCURS clause cannot be used on the 01 level. 


7. PROCEDURE DIVISION. 
MAIN-MODULE. 
OPEN INPUT TABLE-FILE 
CUST-FILE 

OUTPUT CUST-BILL» 
PERFORM TABLE-ENTRY VARYING SUB 

FROM 1 BY 1 UNTIL SUB ® 20. 
READ CUST-FILE AT END MOVE 1 TO EOF. 
PERFORM CALC-RTN UNTIL EOF = 1, 
CLOSE TABLE-FILE CUST-FILE CUST-BILL. 
STOP RUN. 


8. TABLE-ENTRY. 
READ TABLE-FILE AT END DISPLAY "ERROR IN TABLE" 
CLOSE TABLE, CUST-FILE» CUST-BILL 
STOP RUN, 
MOVE LOWER-LIMIT-IN TO LOWER-LIMIT (SUB), 
MOVE UPPER-LIMIT-IN TO UPPER-LIMIT (SUB). 
MOVE DISCT-PCT-IN TO DISCOUNT-PCT (SUB). 


9, CALC-RTN. 
MOVE NAME TO NAME-OUT. 
MOYE AMT-OF-PURCHASE TO AMT-OUT. 
PERFORM STEP-UP VARYING SUB FROM 1 BY 1 
UNTIL SUB > 20 OR (AMT-OF-PURCHASE = 
LOWER-LIMIT (SUB) OR > LOWER-LIMIT (SUB) 
AND (AMT-OF-PURCHASE < UPPER-LIMIT (SUB) OR 
= UPPER-LIMIT (SUB)). 
IF SUB NOT } 20 
COMPUTE AMT-LESS-DISCOUNT = 
AMT-OF-PURCHASE - (AMT-OF-PURCHASE 
* DISCOUNT-PCT (SUB) ) 
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ELSE 

MOVE ZEROS TO AMT-LESS-DISCOUNT, 
WRITE PRINT-REC FROM BILL AFTER ADVANCING 2 LINES, 
READ CUST-FILE AT END MOVE 1 TO EOF, 


Note: AMT-OF-PURCHASE must be between the LOWER-LIMIT and the UPPER- 
LIMIT, inclusive of the endpoints. 


10. STEP-UP. 
EXIT. 
11, 2—It must accommodate numbers from | to 21. 


Il. Use of the SEARCH Statement for Table and Array Handling 


A. Format of the SEARCH Statement 


A more efficient method of performing a table look-up is with the use of a 

SEARCH statement. Using the SEARCH verb, it is not necessary to code a PER- 

FORM «+» VARYING to step through a table until a given condition exists. 
The format of the SEARCH is as follows: 


The AT END clause specifies what is to be done if the table has been com- 
pletely searched and the required condition (condition-1) has not been met. 
Although the AT END clause is only optional, we strongly recommend that 
you use it. There is always a possibility that the desired condition will not be 
met. For example, suppose an input field does not match a table entry; unless 
we instruct the computer what to do using an AT END clause with the SEARCH 
statement, the program will continue with the next sentence. This could pro- 
duce incorrect results or even an abend condition. The table-name used with 
ae Beinn verb is the data-name specified on the OCCURS Jevel, not on the 
01 level. 

The WHEN clause indicates what action is to be taken when the condition 
specified is actually met. Presumably, the condition will include a comparison 
of a field to a table entry. In addition to testing for a specific condition with 
a WHEN clause, additional WHEN clauses and corresponding actions may be 
specified if desired. 


B. The INDEXED BY Clause and the SEARCH Statement 


When using a SEARCH statement, table entries must be specified with the use 
of an index, rather than a subscript. When a SEARCH is coded, the occURS 
clause must be augmented so that the index is defined along with it: 


O1 SALES-TAX-TABLE,. 
05 STORED-ENTRIES OCCURS 1000 TIMES [INDEXED BY x1 
10 ZIPCODE PIC 9(5), 
10 TAX PIc voog, 


The index, X1 in this illustration, functions just like a subscript. Note, 
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however, that unlike a subscript, an index is not defined separately in WORK - 
ING-STORAGE. An INDEXED BY clause is required along with the OCCURS. The 
compiler automatically provides an appropriate PICTURE—in this case 9999, 
since there are 1000 entries in the table. 


C. Example of the SEARCH Statement 


You will recall that in the previous section the following was used to look up 
an entry in a table and then use the value that was found: 


PERFORM STEP-UP YARYING SUB i FROM 1 BY 1 
UNTIL SUB > 1000 OR 
ZIP-IN = ZIPCODE (SUB). 
IF SUB NOT > 1000 
COMPUTE SALES-TAX = TAX (SUB) * UNIT-PRICE * QTY 
ELSE 
, MOVE © TO SALES-TAX+ 


’ 
+ 


STEP-UP, 
EXIT. 


In the above, SUB would be a subscript typically defined in WORKING- 
STORAGE. 

If the DCCURS clause for STORED-ENTRIES is modified to include an IN- 
DEXED BY X1 clause, then the following SEARCH may be used to replace the 
PERFORM +++ VARYING, the STEP-UP paragraph, and the 1F statement above. 


SET Ki TO le 
SEARCH STORED-ENTRIES 
AT END MOVE 0 TO SALES-TAX 
WHEN ZIP-IN = ZIPCODE (x1) 
COMPUTE SALES-TAX = TAX (x1) * UNIT-PRICE * QTY. 


The SEARCH statement will perform a table look-up. Note that STORED- 
ENTRIES, the data name used with the OCCURS and INDEXED BY clauses, is 
the item designated with the SEARCH as well. The 01 level entry, SALES-TAX- 
TABLE, could not be used. 

The table will be searched and the index automatically incremented until 
the condition specified in the WHEN clause is satisfied or until an AT END 
condition is met. The AT END indicates that the look-up has exhausted the 
table without the condition being met; that is, no match has been found 
between an input field and a table entry. Frequently, we code the AT END as 
SEARCH «++ AT END PERFORM ERR-RTN. 


D. Modifying the Contents of an Index 


1. The SET Statement 
A subscript is a field typically defined in WORKI NG-STORAGE to access specific 
entries in a table or array. It may be modified with the use of a PERFORM +++ 
VARYING. Like any other field, it can also be modified with a MOVE, ADD, or 
SUBTRACT statement. 

‘As we have seen, an index, however, is defined with an INDEXED BY clause 
that follows a table’s occURS clause. It is used with a SEARCH statement to 
perform the table look-up. It can be modified with a PERFORM «++ VARYING, 
too. Thus, loading the table with a TABLE-ENTRY routine may be coded as in 
previous cases: 
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PERFORM TABLE-ENTRY VARYING X1 FROM 1 BY 1 
" UNTIL Ki > 1000, 


TABLE-ENTRY + 
READ TABLE-FILE 
AT END DISPLAY ‘NOT ENOUGH TABLE RECORDS’ 
CLOSE TABLE~FILE» CUST-FILE» CUST-BILL 
STOP RUN. 
MOVE T-ZIPCODE TO ZIPCODE (x1), 
MOVE T-TAX TO TAX (X41), 


Here we are using the name x1 in place of the name SUB to remind you 
that the former is an index defined as part of the table and not a subscript. 

Although a PERFORM ... YARYING may be used with an index, we may 
not modify the contents of this index with a MOVE, ADD, or SUBTRACT state- 
ment. Instead, we must use a SET statement to alter the contents of an index 
with any instruction other than the PERFORM «+. VARYING. 


Statement Meaning 
1. SET X1 To 1 Move 1 to the x1 index. 
2. SET X1 UP BY 1 Add 1 to the x1 index. 
8. SET X1 DOWN BY 1 Subtract 1 from the x1 index. 


2. Initializing an Index Before Using the SEARCH 

A SEARCH statement does not automatically initialize the index at 1. Initial- 
izing an index at 1 must be performed by a SET statement prior to the SEARCH 
to ensure that each table look-up begins with the first entry: 


SET X1 TO 1. 
SEARCH STORED-ENTRIES : 
AT END MOVE © TO SALES~TAX 
WHEN ZIP-IN = ZIPCODE (x1) 
COMPUTE SALES-TAX = TAX (X1) * UNIT-PRICE * QTY, 


3. Incrementing an Index When Loading a Table 
Instead of using the PERFORM... VARYING initially to load a table defined 
with an index, the following could be used: 


SET X1 TO 1, 


PERFORM TABLE-ENTRY 1000 TIMES, 


’ 


TABLE-ENTRY, 
READ TABLE-FILE 
AT END DISPLAY ‘NOT ENOUGH TABLE RECORDS’ 
CLOSE TABLE-FILE»s CUST-FILE, CUST-BILL 
STOP RUN, 
MOVE T-ZIPCODE TO ZIPCODE (x1), 
MOVE T-TAX TO TAX (X41), 


SET 31 UP BYcty 
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Note that it is necessary to increment the index with the SET ... UP state- 
ment. We cannot code ADD 1 TO Xt, since x1 has been defined as an index. 

If we use the PERFORM +++» VARYING to load a table, it would not be nec- 
essary to use the SET statement at all for table loading. It is, however, essential 
that we use the SET (index) TO 1 to initialize the index before we execute a 
SEARCH. If you fail to do this, the SEARCH will begin the table look-up where 
it left off after the previous execution of the SEARCH. 


E. Comparing Subscripts and Indexes 
The following table provides a comparison of subscripts and indexes: 


COMPARISON OF SUBSCRIPTS AND INDEXES 
Subscript Index 

1. Is defined as a separate item Is established in an INDEXED BY 

in WORK ING-STORAGE. clause along with the OCCURS. 
2. Initialized by a MOVE. Initialized by a SET. 
3. Incremented by an ADD. Incremented by a SET «++ UP. 
4. Used in table look-ups with Used in table look-ups with 

PERFORM loops. SEARCH statements. 


Figure 19.2 illustrates a flowchart of the SEARCH procedure. 


F. Avoiding Common Logic Errors 


A word of advice: Avoid the use of the NEXT SENTENCE with the WHEN clause 
of the SEARCH when only one statement is to be executed. Consider the fol- 
lowing statement, which could produce erroneous results: 


Invalid 


SET X1 TO i. 
SEARCH STORED-ENTRIES 
AT END MOVE 0 TO SALES-TAX 
WHEN ZIP-IN = ZIPCODE (x1) 
NEXT SENTENCE. 
COMPUTE SALES-TAX = TAX (Xi) * UNIT-PRICE * OTY 


This procedure will function properly only if each Z1P-IN is found equal to 
a ZIPCODE (X1). If an AT END condition is reached, when there is no ZIPCODE 
(1) equal to a specific Z1P-IN, 0 will be moved to SALES-TAX and process- 
ing will continue with the next sentence. Thus, after an AT END is reached an 
effort will be made to multiply TAX indexed by an undetermined x1 (the table 
has been exhausted). An abnormal termination of the program may occur. To 
remedy this situation, simply code the COMPUTE as the imperative statement 
following the WHEN, as we illustrated at the beginning of this section. The 
NEXT SENTENCE clause is thus avoided. 

Next, consider the following where an error routine is performed if the entry 
desired is not in the table: 


O1 TABLE-1i+ 
95 TABLE-ENTRIES OCCURS ses 


’ 
+ 
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Figure 19.2 [ SEARCH 
Flowchart of the SEARCH table-name] 
procedure. 
Next 
statement 
AT END 
imperative 
statement-1) 
Next 
statement 
WHEN condition-1 
{ Tberativesstateinent:2 i 
NEXT SENTENCE 
»y, Next 
* statement 


WHEN condition-2 
( imperative-statement-3 
NEXT SENTENCE 


CALC-RTN, 

MOVE NAME-IN TO NAME~OUT, 

BET Bl TO iy 

SEARCH TABLE-ENTRIES 
AT END PERFORM ERR-RTN 
WHEN IN-FLD = TABLE=-x (x1) 

MULTIPLY AMT-X (X1) BY IN-OTY GIVING 
TOTAL-OUT OF BILLING-REC, 

WRITE PRINT-REC FROM BILLING-REC 
AFTER ADVANCING 2 LINES, 

READ IN-FILE AT END MOVE 1 TO EOF, 


If an AT END condition is reached, there is no match between 1 N-FLO and 
any table entries. An error routine is performed, and control returns to the 
statement following the PERFORM, which writes the PRINT-REC and reads the 
next input record. 

If ERR-RTN does not zero out or reinitialize TOTAL-OUT OF BILLING-REC, 
the PRINT-REC that is written will contain incorrect results, 

To simply correct this error, ERR-RTN must clear out TOTAL-OUT. But sup- 
pose we do not want to print an output record at all if an error occurs. We 
could code the SEARCH as follows: 


CALC-RTN4 
MOVE NAME-IN TO NAME-OUT, 
SET X1 TO 1, | 
SEARCH TABLE-ENTRIES 
AT END PERFORM ERR-RTN 


TABLE HANDLING ROUTINES USING THE SEARCH STATEMENT 503 


WHEN IN-FLD = TABLE-X (x1) 
MULTIPLY AMT-K (X1) BY IN-QTY GIVING 
TOTAL-OUT OF BILLING-REC 
WRITE PRINT-REC FROM BILLING-REC 
AFTER ADVANCING 2 LINES, 
READ IN-FILE AT END MOVE 1 TO EOF. 


Be sure that the WHEN contains all statements to be executed only for valid 
data. After the SEARCH, the next statement is executed regardless of whether 
the AT END or WHEN clause was performed. 

A second way to avoid processing error records as valid records is with NEXT 
SENTENCE in conjunction with a switching technique: 


PERFORM CALC-RTN THRU CALC-RTN-EXIT. 


+ 
‘ 


CALC-RTNs 
MOVE NAME-IN TO NAME-OUT. 
MOVE © TO ERR-SWITCH. 

SET X1 TO ls 
SEARCH TABLE-ENTRIES 
AT END PERFORM ERR-RTN 
WHEN IN-FLD = TABLE-X (x1) 
NEXT SENTENCE. 
IF ERR-SWITCH = 0 


READ IN-FILE AT END MOVE 1 TO EOF 
ERR-RTNs 


+ 
+ 


MOVE 1 TO ERR-SWITCH, 


We could also use a PERFORM within the WHEN clause (e.g., WHEN «++ PERFORM 
OK-RTN] to avoid any AT END problems. 


= 


Self-Evaluating Quiz Suppose an entire table has been searched using a SEARCH statement and the spe- 


cific condition being tested has not been reached. What will happen? 
2. (T or F) A SEARCH statement is required for table look-ups. 


3, Ifa SEARCH statement is used in the PROCEDURE DIVISION, then the OCCURS clause 
entry must also include a(n) _______ clause. 


4. Suppose the following entry has been coded: 


O1 TABLE-X. 
O05 CTRS OCCURS 100 TIMES INDEXED BY Xl. 
10 FLDI PIC 999, 


Write a statement to initialize the index at 1. 


5. Write a SEARCH statement to look up the entries of CTRS until FLDi = 123, at 
which time RTN-1 is to be performed. 


6. (T or F) A condition must always follow the WHEN entry in a SEARCH statememt. 

7. (T or F) The condition coded in a WHEN clause usually tests a table entry for a 
particular value. 

8. A(n) ______ stores total data while a(n) _______is used for storing constants 
for look-up purposes. 
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Consider the following problem definition for Questions 9-12. 


Systems Flowchart 


TAB-WTS 
cscs 
BILLS 
cen 
BILLING-INFO 
TAB-WTS Record Layout (20 entries) BILLING-INFO Record Layout 


BILLS Printer Spacing Chart 


VP e aia tela fat ia fapalajaya 7 
Ja a4|5f/ofolo} /2/314{ 5) lalolola|2|a|« H 
i 
; | 
3 
a 3 HH 
5 TT 
6 
x 
b. SHH 1 k i Perr i HHL rH TH 
9. Code the WORKING-STORAGE table area. Assume that a SEARCH will be used, 


10. Code the MAIN-MODLLE for this program. 

11. Code the TABLE-ENTRY routine for this program. 

12. Code the CALC-RTN using a SEARCH for the table look-up. 
13. Indicate what is wrong with the following: 


OL TABLE-~1. 
95 ENTRY-% OCCURS 20 TIMES PIC 9(4) INDEXED BY X11, 


’ 
’ 


SEARCH TABLE~1 44. 


Solutions 1, The statement in the AT END clause will be executed if the clause has been in- 
cluded; if it has not, the next sentence will be executed. It is recommended that 
you always use an AT END clause with the SEARCH statement. 


2, F—The PERFORM statement may be used instead. 
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Gui 9) 


a 


10. 


oN 


INDEXED BY 


SET 


xi TO 1. 


SEARCH CTRS 


i 
ge 


AT END PERFORM ERR-RTN 
WHEN FLD1 (K1) = 123 PERFORM RTN-1, 


array; table 
WORKING-STORAGE SECTION, 


oL 


WEIGHT-TABLE,. 

O05 STORED-ENTRIES OCCURS 20 TIMES INDEXED BY Xi, 
10 T-WEIGHT-MAX PIC 9(3)V99, 
10 T-DELIVERY-CHARGE PIC 9(3)V99,. 


PROCEDURE DIVISION, 
MAIN-MODULE+ 


OPEN INPUT TAB-WTS 
BILLING-INFO 

OUTPUT BILLS, 
PERFORM TABLE-ENTRY VARYING X1 

FROM 1 BY 1 UNTIL Xi > 20, 
READ BILLING-INFO AT END MOVE 1 TO EOF. 
PERFORM CALC-RTN UNTIL EOF = 1. 
CLOSE TAB-WTS+; BILLING-INFO, BILLS, 
STOP RUN, 


1]. TABLE-ENTRY. 


READ TAB-WTS AT END 
DISPLAY ‘NOT ENOUGH TABLE RECORDS’ 
CLOSE TAB-WTS» BILLING-INFO, BILLS 
STOP RUN. 
MOVE WEIGHT-MAX TO T-WEIGHT-MAX (X11). 
MOVE DELIVERY-CHARGE TO T-DELIVERY-CHARGE (X1)+ 


12. CALC-RTN, 


MOVE CUST-NO TO CUST-NO-OUT, 
MOVE AMT TO AMT-OF-SALES. 
SET X1 TO 1, 
SEARCH STORED-ENTRIES 
AT END MOVE © TO DELIVERY-CHARGE-OUT MOVE AMT TO 
WHEN WEIGHT-MAILED < T-WEIGHT-MAX (x1) 
MOVE T-DELIVERY-CHARGE (X1) TO 
DELIVERY -CHARGE-OUT 
COMPUTE TOTAL = AMT + T-DELIVERY-CHARGE (X1). 
WRITE PRINT-REC FROM BILL-REC 
AFTER ADVANCING 2 LINES, 
READ BILLING-INFO AT END MOVE 1 TO EOF, 
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TOTAL 


13. SEARCH must be used in conjunction with the data-name ENTRY-% not TABLE-1. 


Ill. Finding a Table Entry by Its Relative Position in the Table 


In most table look-ups, the entries in the table contain a key field such as 
ITEM-NO or CUST-NO that is used for look-up purposes. The key fields may 
or may not be in sequence, but they are usually not consecutive. For example, 
ITEM-NOs might be 001, 005, 008, and so on. If the key field, however, is in 
consecutive sequence, then we can reduce the amount of coding necessary. 


Consider the following problem definition. 
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Systems Flowchart 


T-ITEM- PRICE 


ACCTS-REC-FILE 


(1) Store T-ITEM-PRICE as a table 
(2) For each ACCT-REC-FILE record, look up the item price in the table 
(3) Print customer bills for each record in ACCTS-REC-FILE 


There are 500 items in T-ITEM-PRICE 
with ITEM-NO varying from 1 to 500, 


Associated with each ITEM-NO 
is a unit price. ACCTS-REC-FILE Record Layout 


1 34 8 1 56 89 ll 


Since the unit price for each item fluctuates, it is placed on a table file that 
is (1) read and stored before accounts receivable data is read and (2) used in a 
look-up to find the price for each item purchased by a customer. 

The table would be established in WORK ING-STORAGE as follows: 


Ol TABLE-1, 
OS WS-GROUP OCCURS S00 TIMES INDEXED BY Xi. 
10 WS-ITEM PIC 9(3). 
10 WS-UNTT~PR PIC 9(3)V99, 


One method for performing the required procedure is the one used previ- 
ously: (1) the table is stored, (2) then a table look-up is performed for each 
input accounts receivable record read. A look-up is performed as follows: 


MAIN-MODULE s 

OPEN INPUT T-~ITEM~PRICE 
ACCTS-REC-FILE 
OUTPUT C-BILL. 
PERFORM TABLE-ENTRY YARYING X1 FROM 1 BY 4 
UNTIL Ki > S00, 

READ ACCTS-REC-FILE AT END MOVE 1 TO EOF, 

PERFORM CALC-RTN UNTIL EOF = 1, 

CLOSE T-ITEM-PRICEs ACCTS-REC-FILE+ C-BILL, 

STOP RUN, 
TABLE-ENTRY + 

READ T-ITEM-PRICE AT END PERFORM ERR-RTN. 

MOVE T-ITEM TO WS-ITEM (X11). 

MOVE T-PRICE TO WS-UNIT-PR (X1), 
CALC-RTN. 

MOVE M-CUST-NO TO CUST-NO-OUT. 

SET X1 TO 1, 

SEARCH WS-GROUP 
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AT END PERFORM ERR-RTN2 
WHEN M-ITEM-NO = WS-ITEM (Xi) 
COMPUTE PRICE = QTY * WS-UNIT-PR 
WRITE PRINT-REC FROM OUT-REC 
AFTER ADVANCING 2 LINES. 
READ ACCTS-REC-FILE AT END MOVE 1 TO EOF. 
ERR-RTN. 


(XL) 


DISPLAY ‘NOT ENOUGH TABLE ENTRIES’, 
CLOSE T-ITEM-PRICE» ACCTS-REC-FILE+ C-BILL,. 
STOP RUN. 
ERR-RTN2+ 
DISPLAY ‘ENTRY NOT IN TABLE’+ M-ITEM-NO, 


The table would actually appear in WORK ING-STORAGE as follows: 


[ WS-ITEM-NO WS-UNIT-PR | 
| 001 


XXX.XX 


In this example we know in advance that there are precisely 500 item 
numbers and that the item numbers vary consecutively from 1 to 500. 

Because the ITEM-NOs vary from 001 to 500, we know that the first entry 
in the table has a unit price for item number 001, the second entry has a unit 
price for item number 002, and so on. Hence, in this example, it is unnecessary 
even to store WS-ITEM. To find the WS-UNIT-PR for item number 006, for 
example, we may simply access the sixth entry in the table. 

To perform a SEARCH WHEN M-ITEM-NO = WS-ITEM-NO (X1) will take us 
correctly to the sixth entry if WS-1TEM-NOs are stored on the table. But as an 
alternative we may simply reference the WS-UNIT-PR corresponding to the 
item number on the master file, that is, M- ITEM-NO. We access WS-UNIT-PR 
subscripted by M-ITEM-NO, which we know to vary from 1 to 500. 


COMPUTE PRICE = QTY * WS-UNIT-PR (M-ITEM-NO) 

Thus, CALC-RTN can be simplified without the need for a SEARCH at all: 

MOVE M-CUST-NO TO CUST-NO-OUT. 

IF M-ITEM-NO > 0 AND ¢ 50 
COMPUTE PRICE = QTY * 


WRITE PRINT-REC FRO 
AFTER ADVANCING 2 


WS-UNIT-PR 
OUT-REC 
LINES 


(M-ITEM-NO) 


ELSE 


DISPLAY ‘ITEM NUMBER NOT QO 
READ ACCTS-REC-FILE AT END 


FILE’ +s M-ITEM-NO, 
OVE 1 TO EOF, 


This procedure to replace a look-up works if item numbers vary consecu- 
tively from 1 to 500. In this way, we know that the 300th entry, for example, 
precisely corresponds to an N- 1 TEM-NO of 300. Thus, there is no need to store 
'300’ as the item number. If 1TEM-NOs do not vary consecutively, however, a 
regular SEARCH would be used. 


Self-Evaluating Quiz 


1. (T or F) A table look-up is usually performed by comparing the entries in the table 
to an incoming record’s key field. 

2, Define a table in WORKING-STORAGE to hold the day’s high temperature and the 
day’s low temperature for each day of the year. The day number, which ranges from 
1 to 366, is not to be stored in the table. 
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3. Write a procedure to load the table defined in Question 1 and then read an input 
file, where each record contains a day number field. For each input record, print the 


day number and the corresponding high and low temperatures. 


4, Suppose we would like to establish a table to hold unit prices for 500 item numbers. 


The item numbers are consecutively numbered from 10 to 509. 


(a) Define a table in WORKING-STORAGE to hold the unit prices but not the item 


numbers. 


(b) Write the instructions that could be used in the PROCEDURE DIVISION to access 
the unit price corresponding to an item number that has been read in. 


1, T—If the key field is in consecutive sequence, however, a table entry can be found 


by its relative position in the table. 


2. O1 TEMPERATURE-TABLE, 
05 WS-GROUP OCCURS 366 TIMES, 
10 WS-HIGH-TEMP PIC sg9g, 
10 WS-LOW-TEMP PIC sggg, 
3. MAIN-MODULE. 
OPEN INPUT TEMP-TABLE 
DAY-FILE 
OUTPUT PRINT-FILE, 
PERFORM TABLE-LOAD VARYING SUB FROM 1 BY 1 
UNTIL SUB * 366, 
READ DAY-FILE AT END MOYE 1 TO EOF. 
PERFORM LOOK-UP-RTN UNTIL EOF = ty 
CLOSE TEMP~TABLE» DAY-FILE» PRINT-FILE, 
STOP RUN, 
TABLE~LOAD, 
READ TEMP-TABLE AT END PERFORM ERR-RTN, 
MOVE T-HIGH~TEMP TO WS-HIGH-TEMP (SUB), 
MOVE T-LOW-TEMP TO WS-LOW-TEMP (SUB), 
LOOK-UP RTN, 
IF DAY-NO > O AND « 387 
MOVE DAY-NO TO DAY-NO-OUT 
MOVE WS-HIGH-TEMP (DAY-NO) TO HIGH-~TEMP~OUT 
MOVE WS-LOW-TEMP (DAY-NO) TO LOW-TEMP-OUT 
WRITE PRINT-REC FROM PRINT-FILE 
AFTER ADVANCING 2 LINES, 
ELSE 
DISPLAY ‘ERROR IN DAY NUMBER’» DAY-NO, 
READ DAY-FILE AT END MOVE 1 TO EOF, 
ERR-RTNs 
DISPLAY ‘NOT ENOUGH TABLE ENTRIES’, 
CLOSE TEMP-TABLE» DAY-FILE+ PRINT-FILE, 
STOP RUN, 


4. (a) OL TABLE-1, 
05 WS-GROUP OCCURS 500 TIMES, 
10 WS-UNIT-~PR PIC 9(3)V99, 
(b) CALC-RTN, 
SUBTRACT 9 FROM M-ITEM-NO, 
IF M-ITEM-NO > 0 AND & 500 


COMPUTE PRICE = QTY * WS-UNIT-~PR (M-ITEM-NO) 


ELSE 


DISPLAY ‘ITEM NUMBER NOT ON FILE’s M-~ITEM-NO, 


Notice, for example, that if M-1TEM-NO is equal to 10, we want the first unit price 
stored in the table. By subtracting 9 from M-1TEM-NO, it becomes 1 and will be used 
as a subscript in the COMPUTE statement to access the first unit price correctly. 
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IV. The SEARCH ALL Statement 


A. Definition of a Serial SEARCH 


Let us return to our discussion of conventional table handling where entries 
in the table are not necessarily consecutive. This is by far a more typical 
procedure, since table entries rarely include consecutive numbers. Thus far, 
we have discussed two techniques for performing a table look-up. One method 
uses a PERFORM statement and the other uses a SEARCH statement. Both meth- 
ods perform the look-up in the following serial manner: 


SERIAL SEARCH 
1. The first entry in the table is searched. 
9. If the condition is met, the look-up is completed. 
3. If the condition is not met, the index or subscript is incremented by 
one, and the next entry is searched. 
4. This procedure is continued until a match is found or the table is 
exhausted. 


A sequential or serial search, as described above, is best used when the 
entries in a table are not in either ascending or descending sequence; that is, 
they are arranged randomly. Random organization of a table means that the 
table contains entries that do not have any order to them. In such a case, the 
best method for searching the table is to begin with the first entry, continue 
with the next, and so on. 

Sometimes, table entries are organized so that the first values are the ones 
encountered most frequently; in this way, access time is minimized. A serial 
search is the best technique to use when accessing such tables. 

In many instances, however, the table entries are arranged in some se- 
quence. In a DISCOUNT-TABLE, for example, 50 customer numbers may be 
arranged within the table in ascending sequence: 


DISCOUNT-TABLE 


T-CUSTOMER-NO DISCOUNT-PCT 
0100 2.0 
02.00 1.0 


0400 5.0 


The table contains the discount percentage to which each customer is en- 
titled, Note that although the customer numbers are in sequence, they are not 
necessarily consecutive. Hence, customer numbers must be included in the 
table. We could code the table as follows: 


O1 TABLE-1. 
05 DISCOUNT-TABLE OCCURS 50 TIMES INDEXED BY X1. 
10 T-CUSTOMER-NO PIc 9(4). 
10 DISCOUNT-PCT PIc yv9g9. 


Thus, a discount of 2.0% is stored as ,020 (, is an implied decimal point). 

In cases where the entries of a table are in sequence, a serial search may be 
inefficient. For example, it would be inefficient to begin at the first entry when 
searching for the DISCOUNT-PCT for customer number 9000. Since the table 
is in sequence, we know that 9000 is somewhere near the end of the table; 
hence, beginning with the first entry and proceeding in sequence would waste 
time. 
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B. Definition of a Binary SEARCH 


When table entries are arranged in sequence by some field, such as 
T-CUSTOMER-NO, the most efficient look-up performed is a binary search: 


ALTERNATIVE METHOD FOR TABLE LOOK-UP: BINARY SEARCH 


1. Begin by comparing CUST-NO of the input customer record to the 
middle table entry for T-CUSTOMER-NO. In this instance, that 
would be the 25th entry in the table. 

2. IF CUST-NO > T-CUSTOMER-NO (25) (which is the middle entry 
in our table}, we have eliminated the need for searching the first 
half of the table. 

In such a case, we compare CUST-NO to T-CUSTOMER-~NO (37), 
the middle entry of the second half of the table and continue our 
comparison in this way. ; 

3. If CUST-NO < T-CUSTOMER-NO (25 ), we compare CUST-NQ to 
T-CUSTOMER-NO (12), that is, we divide the top half of the table 
into two segments and continue our comparison in this way. 

4, The binary search is complete when a match has been made, that 
is, CUST-NO = T-CUSTOMER-NO, or the table has been exhausted. 


On the average, a binary search takes far fewer comparisons to find a match 
than a serial search. 


Example Suppose cust-nNo = 5000 


TABLE ENTRIES 


T-CUSTOMER-NO DISCOUNT~PCT 
i, 0100 2.0 
Qi 0200 1.0 
3. 0400 5:0 
4, 0500 3.1 
1. 1st compare 25. 4300 4.3 (> 
3. 3rd compare 31, 4890 8.4 (> 
4, 4th compare 34. 5000 5.6 {= 
2. 2nd compare 37. 5310 2.4 (< 
50. 9940 71 


A match of CusT-No with T-cUSTOMER-NO is found when the 34th entry of the 
table is compared. If a serial search were used, 34 comparisons would be required. 
Using the alternative method, however, only four comparisons were required. 
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This alternative method is called a binary search because each comparison 
eliminates one half the entries under consideration; that is, each comparison 
reduces the entries to be considered by a factor of two. 

A binary search is used in place of a serial search in the following instances: 


USES OF A BINARY SEARCH 


1. When table entries are arranged in some sequence—either ascending 
or descending. 

2. When tables with a large (e.g., 50 or more) number of sequential en- 
tries are to be looked up or searched. 


For small tables or those in which entries are not arranged in a sequence, 
the standard look-up methods previously described are to be used. For large 
tables in which entries are arranged in a specific sequence, the binary search 
is most efficient. It is difficult to define a “large” table explicitly, but let us 
say that any table containing more than 50 entries and with the entries in 
some sequence could benefit from the use of the binary search method. 


C. Format of the SEARCH ALL Statement 


In order to have the computer automatically perform a binary search, we use 
the SEARCH ALL statement. 
The format of the SEARCH ALL is very similar to that of the SEARCH. 


Format 


For the SEARCH ALL to be meaningful, the WHEN statement must test the 
indexed table entry to see if it meets a specified condition. 

Note that a SET statement is not necessary with the SEARCH ALL, since 
the index is set at the appropriate point when a binary search is being per- 
formed. 


Example SEARCH ALL DISCOUNT-TABLE 
AT END PERFORM ERR-RTN 
WHEN CUST-NO = T-CUSTOMER-NO (X1) 
MULTIPLY AMT-OF-PURCHASE BY DISCOUNT-PCT (x1) 
GIVING DISCOUNT-AMT. 


Although the SEARCH ALL is extremely efficient for performing a binary search, the 
ollowing limitations must be kept in mind: 


Mayor LIMITATIONS OF THE SEARCH ALL 
1. Condition-1 can only test an equal condition. 


Valid: WHEN CUST-NO = T-CUSTOMER-NO (x1) 
Invalid: WHEN WEIGHT-MAILED [&_] T-WEIGHT-MAX (x1) 


2, If condition-1 is a compound conditional, 
(a) Each part of the conditional can only consist of a relational test 
that involves an equal condition. 
(b] The only compound condition permitted as condition-1 is a 
compound condition with ANDs, not ORs. 
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Valid: WHEN AMT1 = S-AMT (X1) AND AMTZ = TAX-AMT Ged) 
Invalid: WHEN AMT3 = SA@LES-AMT (X1) [OR] AMT4 = amTs 


3. Only one WHEN clause can be used with a SEARCH ALL. 


D. ASCENDING or DESCENDING KEY with the SEARCH ALL Statement 


To use the SEARCH ALL statement, we must indicate the entry in the table 
that will serve as the key field. That is, we must specify which table entry 
appears in sequence so that the binary search can be used to compare against 
that field. We must also indicate whether that KEY is ASCENDING or DESCEND- 
ING: 


Key Fretp 


ASCENDING KEY—Entries are in sequence and increasing in value. 
DESCENDING KEY—Entries are in sequence and decreasing in value. 


The ASCENDING or DESCENDING KEY is specified along with the occurs and 
INDEXED BY clauses of a table entry when a SEARCH ALL is to be used, as 
shown in the following format: 


OL TABLE-~1, 
OS DISCOUNT-TABLE OCCURS SO TIMES 
ASCENDING KEY T-CUSTOMER-NO INDEXED BY Xi. 
10 T-CUSTOMER-NO PIC 9(4), 
10° DISCOUNT~PCT PIC vagg, 


The data-name used in the ASCENDING KEY clause must be an entry within the 
table. If entries in the table decrease in value, then DESCENDING KEY would be used. 
In either case, the ASCENDING or DESCENDING KEY clause must appear before the 
INDEXED BY clause. 


In the above Example only one field, that is, T-CUSTOMER-NO, increases in 
value as we move through the table; hence, T-CUSTOMER-NO must be used 
with an ASCENDING KEY clause. 

For best results, the KEY entries in the table should be unique; that is, there 
should be no duplicate KEY for any entry such as T-CUSTOMER-NO. If it hap- 
pens, however, that two KEY entries in the table have identical values and one 
of them is to be accessed, we cannot predict which one the computer will use 
for the look up. 


SUMMARY 
Statement: SEARCH ALL 
Purpose: To perform a binary search. 
Limitations: One of the table entries must be in sequence to use a 


binary search, there should be 50 or more table 
entries to benefit from a binary search. 

Requirements: ASCENDING or DESCENDING KEY must be used as 
part of the table entry specification. The 
specifications for the SEARCH are applicable to the 
SEARCH ALL as well except that a SET (index) To 1 
is not required. 
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Self-Evaluating Quiz 


Solutions 


iw) 


_ The SEARCH statement is used for a ________ search and the SEARCH ALL statement 


for 4 —______. search. 


_ A binary search is used for (large, small) tables that are _____. 


Each look-up in a binary search reduces the number of entries to be searched by 
approximately a factor of (no.). 


| When entries are not arranged in any specific sequence, then the (SEARCH, SEARCH 


ALL} statement may be used. 

The SEARCH ALL statement requires the programmer to use the ____— and 
clauses along with the oCcURS. When these are used, the —_____ must 

appear first. 


. (T or F) The key field in a table specifies an entry that must actually be defined 


within the table. 


If the entries are arranged so that they increase in value, then the —_____ KEY is 
used with the occurs clause. 
A ______ statement is used to initialize an index before a _______ statement 


is executed. 


serial 5. INDEXED BY 
binary ASCENDING or DESCENDING KEY 
large ASCENDING or DESCENDING KEY 
arranged in some sequence 6. T 
v) 7. ASCENDING 

. SEARCH 8. SET; SEARCH 


CHAPTER SUMMARY 
I, Using an occurs Clause for Table Handling 
A. Definitions 
1. Table: A list of data items that are referenced as needed. 
2. Array: Areas used for totaling variable data. 
3. Table look-up: A procedure used to find a specific entry in the table. 
B. Reasons for storing tables in WORK ING-STORAGE 
1. Data entry operations are minimized. 
2, Table data can be easily maintained, or updated, in the table. 
Il. Use of the SEARCH Statement for Table Handling 
A. Format of the SEARCH 


SEARCH table-name 
[AT END imperative-statement-1 


NEXT SENTENCE 


rt im) tive-state. Ue 
WHEN condition | peta tiv esta ieraeh | 


[WHEN condition-2 ee e-statement | J... 


NEXT SENTENCE 


1. The at END clause specifies what is to be done if the table has been 
searched and the required condition has not been met. 

2. The table-name is the data-name specified on the occurs level. 

3. The WHEN clause indicates the action to be taken when the condi- 
tion is met. 

B. Use of an index 

1. When using a SEARCH statement, table entries are specified with the 

use of an index, rather than a subscript. 
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B. 


2. The index is defined along with the occurs. For example: 


OL UNIT-PRICE-TABLE, 
OS STORED-ENTRIES OCCURS 500 TIMES INDEXED BY x1, 


3. Unlike a subscript, an index is not defined separately in WORK ING- 
STORAGE; it is part of the OCCURS definition itself. 

4, An index cannot be modified with a MOVE, ADD, or SUBTRACT state- 
ment. Use a SET statement when altering the contents of an index 
with any command other than the PERFORM ... VARYING: 


SET index-name 4 UP BY integer 


5. SET the index to | before using a SEARCH. 
6. Increment the index when loading a table defined with an index. For 
example: 


MATN~MODULE « 


' 
' 


SET X1 TO 1, 
PERFORM TABLE-ENTRY SO TIMES, 


‘ 
' 


TABLE~ENTRY s 
READ TABLE-FILE ++. 
MOVE ree 


’ 
' 


SET X1 UP BY 1, 


III. Finding a Table Entry by Its Relative Position in the Table 
A. If the key field varies consecutively from 1 to n, then it is not neces- 


sary to store the key field in the table. 
To do a table look-up, use the key field from an input record as the 


subscript referencing the item sought in the table. For example: 


COMPUTE PRICE = OTY * WS-UNIT-PR (ITEM-NO-IN), 


IV. The SEARCH ALL Statement 
A. Format of the SEARCH ALL 


SEARCH ALL table-name 
[AT END imperative-statement-1] 


WHEN condition-1 ale 


NEXT SENTENCE 


B. Uses and limitations 
1. Used to perform a binary search. 
2. Condition-1 can only test an equal condition. 
3. If condition-1 is a compound conditional, 


(a) Each part can only test an equal condition. 
(b) Only ANDs are permitted. 


4. Only one WHEN clause can be used. 
5. The ASCENDING or DESCENDING KEY is specified along with the oc- 


CURS and INDEXED BY clauses of a table entry, 
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| CHAPTER SELF-EVALUATING QUIZ 


Solutions 


i 


$6) 200 


10. 


ii. 
12. 
13. 
14. 


15. 


NDS W 


(T or F) Using the SEARCH verb, it is not necessary to use a PERFORM «+. VARYING 


to step through a table until a given condition is met. 


when there are no more input records to be processed. 


. (T or F) The AT END clause in a SEARCH statement indicates what is to be done 


(T or F) The table-name used with the SEARCH verb is the data-name specified on 


the 01 level. 


a(n) _______, rather than a subscript. 
(T or F) A SEARCH statement automatically initializes the index at 1. 


_ When using a SEARCH statement, table entries must be specified with the use of 


(T or F) The SET ..+ UP statement is necessary when loading a table defined with 


an index if a PERFORM ».+ VARYING has not been used. 
The SEARCH statement is used to perform a (binary/serial) search. 
The SEARCH ALL statement is used to perform a (binary/serial search. 


. (T or F) The programmer must indicate the right PIC clause for an index. 


What, if anything, is wrong with the following SEARCH? 


SEARCH STORED-ENTRIES 
AT END DISPLAY ‘NO ENTRY FOUND‘ 
WHEN ITEM-NO-IN = WS-ITEM-NO (X1) 
NEXT SENTENCE, 
COMPUTE PRICE = QTY * WS-UNIT-PR (X1)+ 


A serial search of a table begins with the (first/middle/last) entry in the table. 
A binary search of a table begins with the (first/middle/last) entry in the table. 


(T or F) A SET statement is not necessary with the SEARCH ALL statement. 
(T or EF] The following is a valid SEARCH ALL statement. 


SEARCH ALL WEIGHT-TABLE 
AT END PERFORM ERR-RTN 
WHEN WEIGHT-IN « WS-MAX-WEIGHT (x1) 
MULTIPLY WEIGHT-IN BY WS-RATE (Xt) 
GIVING SHIPPING-COST. 


The SEARCH ALL statement requires that a(n) ___—__ KEY clause be specified 


along with the occURS and INDEXED BY clauses of a table entry. 


T 


_ F--It indicates what is to be done if the table has been completely searched 


and the required condition has not been met. 


_ F-It is the data-name specified on the occurs level. 
. index 
| B_The index must be initialized with a SET statement prior to the SEARCH. 


ah 


. serial 


Page 
498 
498 


499 
498 
500 
500 
509 
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8. binary 
9. F—This is one of the few exceptions in COBOL where the compiler supplies 
the specifications. 


10. This procedure will not function properly if an AT END condition is reached. 
In that case, an error message will be displayed and processing will continue 
with the next sentence—the COMPUTE. To remedy this situation, we could 
code the COMPUTE as the imperative statement specified with the WHEN clause. 

11. first 

12. middle 


13, T—The index is automatically set at the appropriate point when a binary 
search is performed. 


14. F—The SEARCH ALL can only test an equal condition. 
15. ASCENDING or DESCENDING 
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509 
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PRACTICE PROGRAM 


Figure 19,3 
Problem definition for the 
Practice Program. 


Consider the problem definition in Figure 19.3. 


Systems Flowchart 


LOAD-FILE (TABLE) 


PRINT-FILE 


BALANCE-DUE-FILE 


LOAD-FILE Record Layout 


BALANCE-DUE-FILE Record Layout 
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PRINT-FILE Printer Spacing Chart 


AAAARAARAA RAR AARAN FREAEERCR 
ql 
: 
4 it 
: 
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HT 
‘ 
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> 
12| T 
a Ht HH 
i 1 f 
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Figure 19.3 
Continued Sample Input Data 
QOOOSJOHN WAYNE 0087625 


OO125SALLY FIELDS 8998800 
OO171CHRIS PLUMMER 0056450 
00179MARK ILL 785660 
OO1B2BILL_ DeWILLIAMS0098900 
OO157CHRISTY FISHER 7999990 
OO15SHARRISON FOR le) © 
OOZO1HARPO MARXS 0009778 
00207B0! OPE 231400 
OOZ17DOROTHY LAMOUR 0675500 
00222BING CROSB 0000450 
00237BILL COS 987998 


OOSiSEDDIE MURPHY 0898800 
OO555NICK NOLTE 0566300 
00565W.C. FIELDS 0005000 
OO4600D0N MEREDITH 0089750 
00009BAB UT! 0005000 
OOOO2HENRY AARON 6215200 
OO451ALAN ALD: 1036900 
00499ALAN ARKIN 0927760 
O0404R0Y ROGERS 0060000 
00572DALE EVA 0876774 
00231JACK KLUGMAN 0200910 
OOLIOTONY RANDALL 090897900 
OO313ART CARNEY 0977870 
Notes 


1. Write a program that will read in 35 table records from a disk. These indicate for the 35 
customers the discount to which each is entitled. 

2. After the 35 table records have been read, read a customer balance due disk file. These disk 
records are not in sequence. 

3. For each customer balance due disk record read, find the corresponding table data. Using the 
appropriate discount percent, print the new customer balance. 

4. Use the SEARCH to find customer data in the table. 

5. If there is no corresponding table entry for a particular customer, print the customer number, 
the message ‘BAD DATA—RUN TERMINATED’, and abort the run. 


See Figure 19.4 for a solution with sample output. 


KEY TERMS 


Array SEARCH 
ASCENDING KEY SEARCH ALL 
Binary search Serial search 
DESCENDING KEY SET 

Index Table 


INDEXED BY Table look-up 
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Figure 19.4 


BS SRE SCaTION or RIVES TON: 
Solution to the Practice 3 AUTHOR. CHRISTOPHER D HAMMEL. 
a PENT arttter ean carntaetatierareeort er aamEne! 
Program. 5 x THIS PROGRAM USES THE SEARCH COMMAND. TO 
6 * FIND CUSTOMER NUMBER AND USES CORRESPONDING : 
ff * BiSCouNT PERCENTAGE TO DETERMINE BALANCE z 
i 

9 Ld eerue mu mec anernusis Pree rrr 

10 ENVIRONMENT DIVISION 

ii INPUT cane SECTION. 

12 FILE-CONTR' 

13 SeLeGr BAL ANCE-DUE~ FILE ASSIGN TO paTag 

14 SELECT LOA! ASSIGN TO DA’ 

15 SELECT PRINTS PILE ASSIGN TO B¥aeautpur, 

14 DATA DIVISIO! 

17 FILE SECTION, 

18 BALANCE-DUE-F I 

19 LABEL RECORDS nARE OMITTED, 

20 OL BaLanges DUE-RI 

al oS eNSTaMeR-NOSIN PIC 97¢S). 

22 OS CUSTOMER-NAME~IN PIC x(i5) 

23 OS BAL-DUE- PIC 9(5)V99. 

24 OS F PIC X(5a) 

25 FD LOAD-FILE 

26 LABEL RECORDS ARE OMITTED. 

27 O41 LOAD-REC. 

28 05 CUSTOMER PIC (3), 

2? 05 DISCOUNT-! PER EENT= L, PIC Y99. 

30 OS FILLER PIC X(73). 

ce FD PRINT-FILE 

g2 LABEL, RECORDS ARE OMITTED, 

33 O1  PRINT-RECOR PIC X(133) 

34 WORKING-STORAGE SECTION. 

35 OL WORK=AREA, 

36 OS Eo Pre % VALUE ZERO 
37 OS CT PIC 999 VALUE ZERO 
38 O05 PAGE-CTR PIC 999 VALUE ZERO, 
39 OS LINE-CTR PIC 99 VALUE ZERO. 
40 OS T=DATE, 

41 10 YR PIC XX VALUE SPACES. 
42 10 MO PIC XX VALUE SPACES, 
43 10 DA PIC XX VALUE SPACES 
44 10 FILLER PIC XX VALUE SPACES, 
4s O1 ERROR-REC 

46 OS FILLER PIC x(20) VALUE SPACES. 
47 OS ERR-CUST-NO PIC 9(5), A 
48 OS FILLER PIC X(@0) VALUE SPACES. 
4a? OS FILLER, PIC X(@4) 

50 VALUE ‘BAD DATA~-RUN TERMINATED ‘, 

Si OS FILLER PIC xX(64) VALUE SPACES, 
Se O1 BALANCE-TaAB . 

53 05 TABLE ENTRIES aoe 35 TIMES INDEXED BY SUBL 

54 10 CUSTOMER PIC 9(5), 

5S 10 DISCOUNT~| PERCENT~ = PIC V99 

56 O1 HEADER. 

57 OS FILLER PIC X(45) VALUE SPACES, 
58 05 FILLER PIC X(42) 

5? VALVE ‘CUSTOMER SALES REPORT *, 

60 OS FILLER PIC xX(33) VALUE SPACES. 
61 OS FILLER PIC X(5) 

62 VALUE ‘PAGE * 

63 OS PAGE-OU' PIC 229, 

64 OS FILLER PIC X(5) VALUE SPACES, 
6S O1 HEADER? 

66 OS FILLER PIC X(59) VALUE SPACES. 
67 OS FILLER PIC xX(7) 

68 VALUE /F OR & 

69 OS TODAYS-DATE. 

70 10 MO-OUT PIC Xx, 

a. 10 FILLER PIC x 

72 VALUE "7", 

73 10 DA-OUT PIC XX. 

“4 10 FILLER PIC Xx 

75 VALUE *//, 

7 10 YR-OUT PIC XX. 

id O5 FILLER PIC X(S9) VALUE SPACES. 
78 O1 HEADERS. 

79 05 FILLER PIC X(40) VALUE SPACES, 
80 O05 FILLER PIC X(15) 

B1 VALUE ‘CUSTOMER NUMBER’. 

82 OS FILLER PIC x(¢S) VALUE SPACES 
83 OS FILLER PIC X(15) 

84 VALUE SCV STOMeR NAME‘, 

BS OS FILLE! PIC X(5) VALUE SPACES: 
86 OS FILLER PIC X(15) 

87 VALUE ‘NET BALANCE DUE’. 

88 OS FILLER PIC x(ae> VALUE SPACES. 
89 O1 HEADER-FINAL, 

90 05 Steer PIC xX¢(10) VALUE SPACES, 
OL OS FILLI PIC X(13) 

92 VALUE TEND OF REPORT’. 

93 OS FILLER PIC x(110) VALVE SPACES. 
24 O1 BALANCE-| eR Tne: 

95 OS FILL PIC xX(4$) VALUE SPACES, 
96 OS COSTOMER | NO-OUT PIC 95) 

97 05 FILLER PIC xX(B) VALUE SPACES. 
98 05 CUSTOMER-NAME-OUT PIC X(4S) 

bk OS FILLER PIC x(7) VALUE SPACES, 
100 OS NET-BAL~OUT PIC $H, SHH, $$$, 99. 
101 OS FILLER PIC xX(40) VALUE SPACES. 
102 PROCEDURE DIVISION. 
103 MAIN. 
ios OPEN INPUT fitereceeey 
106 ouTpUTe PRINTS rete 
107 PERFORM DATE-ACCEPT—ROUTINE. 
108 RIERA EH ESE EAE HE EHEC ALL FE SEF SEES Hea ge at ae tak ab ak 
109 * ACCEPT DATE ROUTINE IS USED TO PRINT ¥% 
110 * OUT TODAY'S DATE ON REPORT HEADING. # 
111 TAH AEE HERE SEE EEE IE EE Sh TE SE HE HE HE AE SE SE IIE HEH EAE EAE ab FEE EEE 
die READ LOAD-FILE AT END MOVE 1 TO EOF. 
113 MOVE ZEROS. ae Balance TABLE. 
114 MOVE ZERO TO 
115 PERFORM HEADER -ROU 
116 PERFORM oneal Rgurine” GNTTL EOF IS EQUAL TO 1 
aay MOVE ZERO 
118 HUA NEREE EE. DEERE CamioReMRannNR 
119 # ZERQ IS MOVED TO EOF SO THAT * 
120 * IT CAN BE USED IN SEARCH * 
121 # ROUTINE WHEN A STOP IS REQUIRED # 
122 TET TAD HALANCE RUS ee ae aN a 
123 Rea BALANCE=DUE-FILE AT END Mi 
124 PERFORM SEARCH- RON UNTIL Eee® 18 Feual To 1 
125 eect EQF—ROUT I. 
126 CLOSE Ete Bue NPILE 
127 PRINT~ 


TABLE HANDLING ROUTINES USING THE SEARCH STATEMENT 519 


Figure 19.4 LOAD-FILE. 
Continued LonD=AGUTINE: 
D1 TO CTR 


ROVE CUSTOMER-NO-L_TO CUSTOMER-NO-T (CTR) 
MOVE BISCOUNT-PERCENT-L TO DISCOUNT-PERCENT~T (CTR). 
READ LOAD-FILE AT END MOVE 1 TO EOF. 
SEARCH-ROUT INE 
JORGE EEE BIE EE FEET EEES ISERIES AOE a aE SESE TER TERE aE AEE 
# THE SEARCH COMMAND 1S USED TO FIND A MATCH FOR INPUT * 
#% RECORD. IF NO MATCH IS FOUND, AN OR HAS OCCURRED * 
% IN INPUT RECORD. ERROR MESSAGE Tot DISPLAYED AND 
# RUN IS TERMINATED. 
Teel th TENS to ennaaneannonennenansexernenenrenena® 
SET SUB1 
SEARCH TABLE-ENTRIES AT END PERFORM ERROR-ROUT INE 
WHEN CUSTOMER-NO~IN = CUSTOMER-NO-T (SUB1) 
PERFORM WRITE-ROVT INE. 
BALANCE-DUE-FILE AT END MOVE 1 TO EOF 
wR ITE ROUTINE. 
COMPUTE NET-BAL-OUT = BAL~DUE-IN + (DIGCOUNT-PERCENT-T (SUB1) 


BAL-DUE-IN) 
MOVE CUSTOMER-NO-T (SUB1) TO CUSTOMER-NO-OUT. 
Deve CUSTOMER-NAME-IN TO CUSTOMER-NAME-OUT. 
LINE-CTR IS GREATER THAN 45 
BERFORM HEADER™ ROUTE 

WRITE PRINT-RECORD FROM BALANCE-LINE AFTER ADVANCING 1 LINES 

ADD_1 TO LINE-CTR. 
EOF-ROUT ING 

IF LINE-GTR IS GREATER THAN 40 
PERFORM HEADER-ROUT INE 
ITE PRINT-RECORD FROM HEADER-FINAL AFTER ADVANCING 5 LINES: 
HEADER-ROUTING 
ADD_1 TO _PAGE- 

MOVE PAGE-CTR FO. Pace-ouT 

MOVE 1 TO LINE~CTR 

WRITE ERINT~| RECORD FROM HEADER! AFTER ADVANCING PAGE. 

WRITE PRINT-RECORD FROM HEADER AFTER ADVANCING 2 LINES: 

RITE. PRINT -RECORD FROM HEADERS AFTER ADVANCING 2 LINES 

ERROREROU JUT INE. 

MOVE CUSTOMER-NO-IN TO ERR~CUST =| 

WRITE PRINT-RECORD FROM ERROR-| SREC AFTER ADVANCING 5 LINES. 

CLOSE Be ATceT Ree ace 


aoe PILE. 


Dae “AgcER T= ROUTE NE. 
EPT T-DATE coon DATE, 
Rove Mo" TO Mo-ol 
MOVE YR TO YR- Bur 
MOVE DA TO DA-OUT 


SIONS GaONHOIO 


BESSA SSASSOUOVULUHOUNN 


TARO OCONSUSUNEOOONTO SOU 


POSE eOTTUTGUAGAGG: 


SSN Noo 
DNeasHyHo0DN 


CUSTOMER SALES REPORT Page 1 
FOR o1/12/84 
CUSTOMER NUMBER CUSTOMER NAME NET BALANCE DUE 
00005 JOHN WAY $963. 87 
00007 BURT. REYNOLDS $8, 664. 21 
90100 GEORGE BURNS $977. 46 
oot STEVE McQUEEN $884. 23 
00125 SALLY FIELDS, $98, 986. BO 
oo171 CHRIS PLUMMER $49 
00179 MARK HAMILL $11, 532. B2 
o0182 BILL DeWILLIAMS $1, 137, 35 
00157 CHRISTY FISHER $119, 999, BB 
60155 HARRISON FORD $9, 610. 00 
00201 HARPO MARXS $107. 55 
00307 BOB HOPE $3, 008. 20 
00217 DOROTHY LAMOUR $7, 430. 50 
00} BING CROSBY $4.72 
60! BILL COSBY $11,361. 97 
60; BURT LANCASTER #1, 043. 03 
00! DOUG FAIRBANKS $9, 492) 41 
fileh EDDIE MURPHY $9, B86. BO 
00) NICK NOLTE $6, 512. 45 
00545 WoC) FIELDS $52. 50 
DON MEREDITH $1, 032. 12 
00009 BABE RUTH $40. 60 
HENRY AARON $68, 367. 20 
90451 ALAN ALDA $442. 80 
00499 ALAN ARKIN $10, 205, 36 
00404 OY ROGERS 0: 00 
00572 DALE EVANS $10, 082. 90 
00231 JACK KLUGMAN $2, 410, 92 
00110 TONY RANDALL $1, 078. BO 
00313 ART CARNCY $12) 223. 37 


REVIEW QUESTIONS 


I, True-False Exercises 

1. (T or F) After a WHEN condition has been met in a SEARCH, the index contains the 
number of the element that resulted in a match. 
2. (T or F) The KEY option of the occurs clause is used with both the SEARCH and 
the SEARCH ALL statements. 


3. (T or F) When the SEARCH ALL statement is used, the table must be in either 
ASCENDING or DESCENDING sequence. 


4. (T or FE) The WHEN clause is an optional part of the SEARCH statement. 
5. (T or F) SEARCH ALL is used for a binary search. 

6. (Tor EF) An index used in a SEARCH is initialized by a MOVE statement. 
7. (T or F) A subscript of zero is permissible. 
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8. (T or F) The SEARCH ALL statement can test for a compound or simple condition. 

9. (T or F) An index, like a subscript, must be defined as an elementary item in 
WORK ING-STORAGE 

10. (T or F) The SET statement must be used with indexes. 


II. General Questions 

1. Indicate the uses of the following. 
(a) ASCENDING KEY clause, - 
(b) WHEN clause. 
(c) SET statement. 
{d) INDEXED BY clause, 

2. Indicate when a SEARCH statement would normally be used and when a SEARCH 
ALL would normally be used. 

3, A _________ statement must be used to initialize an index before a_______ can 
be executed. 

4, Indicate the main differences between a binary and a serial search, 

5. Consider the following table in storage: 
O1 POPULATION-TABLE, 

OS STATE OCCURS 50 TIMES PIC 9(8), 

Use a SEARCH statement to find both the largest and the smallest state population 
figures. 
Note: You will need to perform a sarc routine repeatedly until all the entries 
have been searched. Initialize the index to 1 only once at the beginning. 

6. Using the table in Question 5, write a routine (with the SEARCH) to print the total 
number of states that have populations smaller than 250,000. 


7. For Question 6, also print the number of each of these states with populations in 
excess of 250,000 people. 


Ill. Validating Data 
Modify the Practice Program so that it includes coding to (1) test for all errors and (2) 
print a control listing of totals (records processed, errors encountered, hash total). 


DEBUGGING EXERCISES 


Consider the following: 


LINE NO 
4 PROCEDURE DIVISION, 
2 MATN=MODULE. 
3 OPEN INPUT TABLE-FILE+ INVENTORY-FILE 
4 OUTPUT PRINT~FILE, 
5 READ TABLE-FILE AT END MOVE 1 TO EOF, 
G PERFORM TABLE-ENTRY 
% 30 TIMES, 
8 MOVE 0 TO EOF, 
9 READ INVENTORY-FILE AT END MOVE 1 TO EOF, 
10 PERFORM CALC-RTN UNTIL EOF = 1, 
li CLOSE TABLE-FILE+ INVENTORY-FILE+, PRINT-FILE, 
1Z STOP RUN, 
13 TABLE-~ENTRY. 
14 MOVE PART-NO TO T-PART-NO (X1), 
15 MOVE QTY-ON-HAND TO T-QTY-ON-HAND (x1). 
16 ADD 1 TO Xi, 
17 READ TABLE-FILE AT END 


18 DISPLAY "NOT ENOUGH TABLE ENTRIES" 
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19 CLOSE TABLE-FILE, INVENTORY-FILE» PRINT-FILE 
20 STOP RUN. 

21 CALC-RTN. 

22 SEARCH INV-ENTRIES 

23 AT END MOVE 0 TO QTY-OUT 


WHEN PART-NO-IN = T-PART-NO (X1) 
NEXT SENTENCE. 


ro ora bo oh 
ga 


6 MOVE T-QTY-ON-HAND (X1) TO QTY-QUT. 

7 MOVE PART-NO-IN TO PART-OUT, 

28 WRITE PRINT-REC FROM DETAIL-REC, 

29 READ INVENTORY-FILE AT END MOVE 1 TO EOF. 


1. An abend condition will occur the first time through CALC-RTN. Find and correct 
the error. 
2. An abend condition will occur if there is no match between PART-NO-IN and 
T-PART-NO. Find and correct the error. 
3. Suppose INV-ENTRIES is defined as follows: 
OL INV-ENTRIES) 
05 TABL OCCURS 30 TIMES, 
10 T-PART-NO PIC O(3)6 
10 T-QTY-ON-HAND PIC 9(4), 


This will cause two syntax errors on lines 22 and 23. Find and correct these errors. 


| PROGRAMMING ASSIGNMENTS 


1. Consider the problem definition in Figure 19.5. 


Notes 

(a) There are 150 table entries. (Vehicle class is an alphanumeric field.) 

(b] After the table is read and stored, read in the transaction file. 

(c) For each transaction record, the vehicle class must be found in the table to obtain the 
corresponding registration rate. 

(d) Registration Fee = Vehicle Weight x Registration Rate (from the table). 


2. Consider the problem definition in Figure 19.6. 


Notes 
(a) Monthly take-home pay is to be computed for each employee of Company ABC. A tax 
table must be read into main storage from 20 input disk records. 


Example 
Taxable Income Federal State 
Tax Tax 
009800 040 O10 
012000 +080 +020 


The state tax is 1% and the federal tax is 4% for taxable income less than or equal to 

9800; for a taxable income between 9801 and 12000 (inclusive), the state tax is 2% and 

the federal tax is 8%, and so on. 

‘After the table is read and stored, read a salary file. Monthly take-home pay is computed 

as follows: 

(1} Standard deduction = 10% of the first $10,000 of annual salary 

(2) Dependent deduction = 1000 x number of dependents 

(3) FICA (Social Security tax) = 7.05% of the first $37,800 of annual salary 

(4) Taxable income = Annual salary — standard deduction — dependent deduction 

(5) Find the tax on the taxable income in the tax table. 

(6) Annual take home pay = Annual salary — (state tax % x taxable income) — (federal 
tax % x taxable income) - FICA 

(7) Monthly take home pay = Annual take home pay /12 

(8] Print each employee’s name and the corresponding monthly take home pay (edited). 


(b 
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Figure 19.5 Systems Flowchart 


REGISTRATION-TRANS 
60-position records 
standard labels monte 
25 records/block 
cal Soe REGISTRATION-REPORT 


REGISTRATION-TABLE 
20-position records 
standard labels 

20 records/block 


REGISTRATION-TABLE Record Layout 


REGISTRATION-TRANS Record Layout 


1 2x3 22 23 27 28 40 41 60 


REGISTRATION-REPORT Printer Spacing Chart 


3}4]6|6 


alia 
a/4]s]6| 


1} }2)2}2]212}2] 3}3]]3, 
lo} }2]3]4|5]6 a 


Slo}e|sfor|or|afes|ns|— 


| 


3. Consider the problem definition in Figure 19.7. 


Notes 

[a] Input table entries are entered first. There are 250 of these table entries, 

{b) Create an output tape containing product number, unit price, quantity, total amount, and 
customer name for each transaction record. Total amount = Unit price X quantity. 

{c) For each transaction inventory record, the product number must be found in the table to 
obtain the corresponding unit price. 


Figure 19.6 
Problem definition for Pro- 
gramming Assignment 2. 
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4. Read in a group of 100 tape records, each with a customer number and amount. 
Store the information in a table and then sort it into ascending sequence by cus- 
tomer number without first sorting the file. Print the sorted table. 


The records have the following format: 


1-5 Customer number 
6-10 Amount (XXX.XX) 
11-80 Not used 
The blocking factor is 25; standard labels are used. 


Hint; There are several ways to perform this. One is by comparing groups of two adjacent 
table entries and placing the one with lower value before the higher one. Continuing to do 
this for the entire table will result in entries from low to high. Another way to do this is to 
find the lowest value entry and swap it with the first entry in the table; then ignore the first 
entry and do the same for entries 2-100, and so on. 


Systems Flowchart 


TAX-TABLE 
25-position records 
standard labels 

20 records/block 


SALARY-FILE 
80-position records 
standard labels 

20 records/block 


SALARY- REPORT 


TAX-TABLE Record Layout 


SALARY-FILE Record Layout 


25 26 29 30 3536 4445 


Continued on the next page. 
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SALARY-REPORT Printer Spacing Chart 


Figure 19.6 continued 


8}] 8] 8}3] || 
}4] 5/6] 


a} 3}9}9|9| 
8|9]o}1|2|3| 


sfala}afalnta|i{a}a}2}2/2}2}2}2} 2/2] 2/2/3]3/3}3|3|3]3]3|a/3}4}4)4}4]4/4|414|4{4]5|5|5| 5/5] 5|8|5/5|5}6) 6|6)6|6\.) 6] 6/a/6| 7) 7|7| 
1|2/3}4]5}6|7/a/9/0] 1]2/3/4]5|6| 7|8]9] 0] 1}2/3]4]5|6)7|8]9/0]1|2]314|5|6|7/a]9] 0] 1|2]3/4]5/6|7/a/9/0]1|2/3]4|5]6|7|8| 9/0] 1| 213] 4|5| 6|7|9| 9/0] 1|2| 
1 
2 
3 
4 
5 
6 
7 
8 
7 + 
10 
WV 
42 


Figure 19.7 
Problem definition for Pro- 
gramming Assignment 3. 


Systems Flowchart 


WH-TABLE 
50-position records 
standard labels 

40 records/block 


MASTER-INV 


TRANS-INVENTORY 
100-position records 
standard labels 

20 records/block 


WH-TABLE Record Layout 


12 13 21 22 


20 
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1, DOUBLE-LEVEL occURS CLAUSE 
A. Defining a Double-Level Array 
B. Accessing a Double-Level Array 
Self-Evaluating Quiz 
C. Using a Double-Level Array for Accumulating Totals 
D. Loading Input Data Into a Double-Level Array 
E. Performing a Look-Up Using a Double-Level OCCURS 
1, Searching Elements in an Array 
2. Performing a Table Look-Up 
3. Loading Data into a Table or Array 
F, Searching Only Part of a Table 
I. TRIPLE-LEVEL OCCURS CLAUSE AND MORE 
CHAPTER SUMMARY 
CHAPTER SELF-EVALUATING QUIZ 
PRACTICE PROGRAM 
REVIEW QUESTIONS 
DEBUGGING EXERCISES 
PROGRAM ASSIGNMENTS 
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 OBECTIVES 


To familiarize you with: 

1. How to establish a series of items in row and column format, using a double- 
level OCCURS clause. 

2. How to accumulate data stored in a double-level array. 

3. How to look-up data stored in a double-level table. 

4. How to access and manipulate data defined with a triple-level OCCURS clause. 


Petciae GeeTier can I. Double-Level OCCURS Clause 


When describing an area of storage, more than one level of OCCURS may be 
used. Both double- and triple-level OCCURS are permitted with all COBOL 
compilers. The 1985 has greatly expanded the number of levels to 7, but we 
will focus only on double and triple levels. 

Like a single-level OCCURS, multiple levels of OCCURS may be used for 
(1) storing and accumulating totals in an array or (2) storing a table and per- 
forming a “look-up” from the table. 

We will look first at double- and triple-level arrays and then consider table 
handling with multiple-level occurs clauses. 


A. Defining a Double-Level Array 


Suppose we wish to establish in storage an array of hourly temperature read- 
ings for Los Angeles during a given week. Once the array is established, we 
will use it to determine various statistics. 

The array consists of 7 x 24 temperature readings; that is, there are 24 
hourly temperature readings for each of 7 days. The array could be represented 
in storage as follows: 


TEMPERATURE-ARRAY-1 


To define this array in WORK ING-STORAGE with a single-level OCCURS would 
require the following coding: 


OL TEMPERATURE-ARRAY-1, 
935 DAY-OF-WEEK OCCURS 7 TIMES, 


10 1-AM-TEMP PIC 9(3). 
10 2-AM-TEMP PIC 9(3), 
: 
10) 11-PM-TEMP PIC 9(3),. 
10 MIDNIGHT PIC 9(3), 
The dots |...) indicate that 24 elementary items would be required, which 


would be rather cumbersome to code. 
Instead, we could use a double-level OCCURS to define the array as follows: 


Ol TEMPERATURE-ARRAY. 
93 DAY-OF-WEEK OCCURS 7 TIMES, 
10 HOUR OCCURS 24 TIMES. 
15 MEAN-TEMP PIC 9(3), 
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The following illustration shows how this array can be visualized in storage: 


Hour 


Temperature-Array 


Day-of-Week-} lam. 2AM. 3A4.M. 4AM. oe llpm. 12 mp. 


Day 1 (Sun) 


Day 2 (Mon) 


Day 3 (Tue) 


Day 4 (Wed) 


TOWS 


Day 5 (Thu) 


Day 6 (Fri) 


Day 7 (Sat) 


24 Columns 


This array defines a storage area of 504 positions (7 x 24 x 3). For each 
DAY-OF-WEEK, we have 24 HOUR figures, each of which will consist of a MEAN~- 
TEMP (average or mean temperature for that hour) that is three characters long. 

Note the following about a double-level OCCURS: 


1. The data-name with the second OCCURS is on a level subordinate to the 
data-name with the first OCCURS. In this example, HOUR is on the 10 

level, while DAY-OF-WEEK is on the 05 level. 

2. Because of this relationship among level numbers, a two-dimensional 

array is established, which, in this example, can be visualized as follows: 

a) The array will have 7 rows as indicated by the first OCCURS clause: 


OS DAY-OF-WEEK OCCURS 7 TIMES, 


b) Within this array, each row will have 24 columns, as indicated by 
the second occurs clause: 


10 HOUR OCCURS 24 TIMES. 


c) Each of the elements in this 7 x 24 array will be large enough to 
hold three integers, as indicated by the subordinate entry with a 
PICTURE clause: 


15) MEAN-TEMP PIC 9(3), 


This conforms precisely to the illustration of the array described above. 

To access any of the temperature figures, we use the data-name on the 
lowest occurs level, or any field subordinate to it. MEAN-TEMP could be used 
to access the fields, as well as HOUR. This is because HOUR contains only one 
elementary item, MEAN-TEMP; hence, the two data-names refer to the same 
area. Thus, the array could also have been defined as follows: 
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Ol TEMPERATURE-ARRAY. 
OS DAY-OF-WEEK OCCURS 7 TIMES. 
10 HOUR OCCURS 24 TIMES PIC 9(3). 


In this case, we have added the PICTURE clause to the second data-name with 
an OCCURS, thereby eliminating the reference to the data-name MEAN-TEMP. 
We will use the entry MEAN-TEMP throughout since it is clearer. Note, 
however, that we could not use DAY-OF-WEEK for accessing a single field in 
the array, since DAY-OF-WEEK actually refers to 24 separate temperatures. 
Since MEAN-TEMP is defined with two OCCURS, we must use two subscripts 
to access any temperature. The first subscript specified refers to the first or 
major-level OCCURS clause, which, in this example, defines the DAY-OF -WEEK. 
The second subscript refers to the second or minor OCCURS level, which, in 
this example, defines the HOUR. Thus, MEAN-TEMP (1+ 6) refers to the average 
or mean temperature for Sunday (the first row) at 6 a.m. (the 6th column in 
the array). Assuming there is data in the array, we can display the mean 
temperature for Tuesday at noon with the following instruction: 


DISPLAY ‘MEAN TEMPERATURE FOR TUESDAY AT NOON I8’+ 
MEAN-TEMP (3» 12), 


Recall that DISPLAY is used to print messages and will be discussed thor- 
oughly in Chapter 24. 

The first subscript, then, may vary from | to 7, since there are seven rows, 
one for each day. The second subscript varies from 1 to 24, since there are 24 
columns, one for each hour of the day. 

The following are not valid: 


Invalid Subscripts 


MEAN-TEMP (8, 4) The first subscript can vary from | to 7. 
MEAN~TEMP (G+ 25) The second subscript can vary from 1 to 24. 


A pictorial representation of the table with its subscripts follows: 


‘Temperature-Array 
Hour 
Day-of-Week-) LAM. 2AM. 3AM. 4AM. «wd 11pm. 12 mip. 
Day 1 (Sun) (1,1) (1,2) (1,3) (1,4) sit (1,23) | (1,24) 
Day 2 (Mon) | (2,1) | (2,2) | (2,3) 2,4 st (2,23) | (2,24) 
Day 3 (Tue) 3,1) (3,2) (3,3) 3,4 she (3,23) (3,24) 
Day 4 (Wed) | (4,1) | (4,2) | (4,3) | (4,4 a (4,23) | (4,24) 
Day 5 (Thu) | (5,1) | (5,2) | (5,3) | (5,4 ott (5,23) | (5,24] 
Day 6 (Fri) 6,1) (6,2) (6,3) 6,4 (6,23) (6,24) 
Day 7 (Sat) Fyll} (7,2) (7,3) 7,4 ial (7,23) (7,24) 


Example of Invalid Coding 
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The following are rules for using a double-level occuRS: 


RULES FOR USING A DOUBLE-LEVEL OCCURS 
1. If an item is defined by a double-level OCCURS clause, it must be 
accessed by two subscripts. 
2. The first subscript refers to the highest level occurs. 
3. The subscripts must be enclosed in parentheses. 


4. On most systems, the left parenthesis must be preceded by at least 
one space; the right parenthesis must be followed by a period, if it 
is the end of a sentence, or at least one space. 

5. The first subscript within the parentheses is typically followed by a 
comma and a space. 

6. Subscripts may consist of positive integers or data-names with posi- 


tive integer contents. 


Invalid Coding 


REASON FOR INVALIDITY 
(on some systems) 


|_|_There is no space before left 
parenthesis, and there is a 
space after left parenthesis | t | 
ter peraahe es 


coy 48 52 56 60 64 68 72) 
oe ae et | 
There is no space after the comma | | , | 


Example 1 


Example 2 


B. Accessing a Double-Level Array 


Suppose we wish to print an average temperature for the entire week. We need to add 
all the array entries to a total and divide by 168 (7 x 24). We use two levels of PERFORM 
statements for this purpose. The first level varies the major subscript, which we call 
$UB1, and the second level varies the minor subscript, which we call 5uB2. 


AVYERAGE-RTN. 
MOVE © TO TOTAL. 
PERFORM MAJOR-LOOP 
VARYING SUB1 FROM 1 BY 1 UNTIL SUB1 » 7, 
COMPUTE WEEKLY-AVERAGE = TOTAL / 168. 
WRITE PRINT-REC FROM OUT-REC 
AFTER ADVANCING 2 LINES, 
MAJOR-LOOP, 
PERFORM MINOR-LOOP 
VARYING SUBZ FROM 1 BY 1 UNTIL SUB2 
MINOR-LOOP,. 
ADD MEAN-TEMP (SUBi+ SUBZ) TO TOTAL, 


24, 


a 


Suppose we establish in storage an array of population totals to be used for determining 
various statistics. The array consists of six population totals for each of the 50 states. 
The six population totals for each state contain historical data for every decade begin- 
ning with 1920-1929 and ending with 1970-1979. Thus, each state has six population 
totals, one for the population for the decade 1920-1929, one for the population for 
1930-1939, and so on. A pictorial representation of the array follows: 
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Population-Array 


Decade 
State 1920-1929 1930-1939 1940-1949 1950-1959 1960-1969 1970-1979 
1 (Alabama) (1,1) (1,2) (1,3) (1,4) (1,5) (1,6) 
2, (Alaska) (2,1) (2,2) (2,3) (2,4) (2,5) (2,6) 
50 (Wyoming) (50,1) (50,2) (50,3) (50,4) (50,5) (50,6} 


Note: The numbers in parentheses represent the subscripts for each entry. 


The array can be defined in WORK ING-STORAGE as follows: 


EA 36 


w a wo —7| 
| eae 


0). 


In this way, each state is subdivided into six decade figures. There are 300 decade 
fields in POPULATION-ARRAY, each 10 positions long. 

To access any of these areas, the lowest level data-name must be used. We use the 
data-name DECADE, not STATE, to access any of the above areas. 

DECADE is defined by two OCCURS clauses. Thus, two subscripts must be used to 
access any of the decades within a state. The first subscript refers to the major level 
occurs clause, defining stATe—that is, the row in the array. The second subscript 
refers to the minor level, defining the DECADE—that is, the column in the array. Thus, 
DECADE (5» 2) isa population figure for STATE 5, California, and DECADE 2, 1930-1939. 
To access the population figure for Arizona, the third state, for 1960-1969, we use 
DECADE (3+ 5). The first subscript, 3, refers to the major level item, STATE. The 
second subscript, 5, refers to the minor level item, DECADE. 

The first subscript, then, may vary from 1 to 50, since there are 50 STATE figures. 
The second subscript may vary from 1 to 6, since there are six DECADE figures within 
each state. To say MOVE DECADE (80+ 7) is not valid, since the second subscript may 
not exceed 6. 

Note that we may not access population figures for Alabama, for example, by using 
STATE (1). STATE (1) refers to six figures. Only the lowest level item, therefore, 
should be accessed. The data-name STATE may not be used in the PROCEDURE DIVISION 
for accessing individual fields. The data-name DECADE, or any item subordinate to 
DECADE (if one existed), must be employed. 


MULTIPLE-LEVEL OCCURS CLAUSES 531 


Example 3 Let us consider the following illustration of a double-level occuRS clause. Assume an 
array has been established in WORK ING-STORAGE and data has been read into it. The 
WORK ING-STORAGE entry is as follows: 
: |! H i 
| 


“OL p ARRAWLLIT LLL LLL LLL LL : | 
PEE AO PRST SRS eet oer HT 


This array defines 500 fields of data; each of 50 states is subdivided into 10 counties. 
Let us write a routine to find the sum of all 500 fields. That is, we wish to accu- 

mulate a total U.S. population. We will add all 10 counties for each of 50 states. To 

accumulate all 500 fields, we will use subscripts with PERFORM statements. 

We access a field by using the lowest level item, COUNTY. COUNTY must be described 
by two subscripts. The first defines the major level, STATE, and the second defines the 
minor level, COUNTY. COUNTY (5+ 10) refers to the population for STATE 5, COUNTY 
10. The first subscript varies from 1 to 50; the second varies from 1 to 10. 

To perform the required addition, we first accumulate all COUNTY figures for STATE 
1. Thus, the second subscript varies from 1 to 10. After 10 additions are performed, 
the 10 COUNTY figures for STATE 2 are accumulated. In this way, we add COUNTY (2+ 
1), COUNTY (2+ 2),... COUNTY (2+ 10) before we add the figures for STATE 3. 

Note that two loops are used in this routine. The minor loop will increment the 
minor subscript, (SUB2), from 1 to 10. The major loop will increment the major 
subscript, (SUB1), from 1 to 50, A PERFORM statement within a PERFORM statement 
may be used to accumulate the TOTAL population: 


2 ES |) 
nae 


nae 


OW. | 
PERFOR' 
RFDRM 


Using this routine, we vary the minor subscript first, holding the major subscript 
constant. That is, when the major subscript is equal to 1, denoting STATE 1, all counties 
within that STATE are summed. We set SUB1 equal to 1 and vary SUB2 from | to 10. 
5UB1 is then set to 2, and we again vary SUB2 from | to 10, and so on. 

Note that the sequence of additions may also be performed as follows: COUNTY (1+ 
1), COUNTY (2+ 1),... COUNTY (50+ 1); COUNTY (1.2), COUNTY (2) 2),... COUNTY 
(50) 2),... COUNTY (50, 10). That is, we can add the population figures for all 50 
states, first COUNTY. We can vary the major subscript, holding the minor subscript 
constant. We set SUB2 equal to 1 and vary SUBi from 1 to 50; we then set SUB2 equal 
to 2. and vary SUB1 again from 1 to 50, and so on. The following coding illustrates how 
this procedure can be performed: 


532 ARRAY PROCESSING AND TABLE HANDLING 


7. 8 16 20 24 28 ae 36. 40 44 48 52 56 60 64 68 72) 

| le li 

| . | 
Li TTT IPEIREIOIRIM |USA\-ITOT; ih | 

ie 

ancl 

USAI-(TIOT] . 

ERE: FG aOR QO MARYIIING [SUB FROM [4 IBY] I UNTIL Sule | [ald 

| AR R OR INT TOT Al af L 

| = i 

ME AA FOR INOR-OOP MARVING [SUB IFRIOM {4 IBY [i] UNTIL |SuBII > (5d. 

= A iE 
LFF onan idsua. Sue) fro moan 
Both sequences result in the same accumulated population figure. 

Example 4 An array has been established that will contain 12 monthly figures for each salesperson 
in Company X. Each figure represents the monthly sales amount credited to the sales- 
person. Thus, the first column will be the sales amount for January, the second for 
February, and so on. Company X has 25 salespeople, each having 12 monthly sales 
figures. The salespeople are numbered from 1 to 25 consecutively. 

The WORKING-STORAGE SECTION entry is as follows: 
(zt [iz 16 0 24 28 @ 36 0 a aa i 3 i) B HH) 
CL | COMPA YESALES-ARRI I Po 
|| K Li a Boe RIS] [el5| [TLMEIS|. | | | 
I | ra {40 0 TANT OICICURIS| fe TEMEB!.| Pilc AICADL| H ! Reker 


The major level OCCURS clause denotes that amounts for 25 salespeople are repre- 
sented in the array. Each of the 25 salespeople has 12 monthly figures. Thus there are 
300 fields, each four positions long, in the array. 

Assume that there is data in the array. We wish to print 12 lines of monthly totals. 
Each line will contain 25 separate figures, one for each salesperson. Line 1 will denote 
January data and contain 25 sales figures for January; line 2 will contain February data 
and also have 25 sales figures; and so on. 

The record to be printed is described in WORKING-STORAGE as follows: 


WORKING-STORAGE SECTION, 
OL SALES-LINE, 
O83 FILLER PIC X4 
05 ITEMX OCCURS 25 TIMES, 
160 SALES-ITEM PIC gggg, 
10 FILLER PIC xX. 
OS FILLER PIC X(7)4 


Note that we use a single-level OCCURS clause to describe SALES-LINE. Each line 
will contain 25 figures. Thus, only one level OGCURS clause is necessary. The fact that 
there will be 12 lines is not denoted by an OccURS clause, but by repeating the print 
routine 12 times. As defined in the above illustration, we say ITEMX OCCURS 25 TIMES, 
Each of these 25 items consists of two fields, SALES-1TEM and a FILLER. That is, a 
one-position FILLER will separate each amount field to make the line more “readable.” 
If each sales item appeared next to another, it would be difficult to read the line. 

The PROCEDURE DIVISION routine necessary to perform the required operation is: 


PERFORM WRITE-RTN VARYING SUB2 FROM 
1 BY 1 UNTIL SUBZ.% v2, 
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’ 
+ 
+ 


WRITE-RTNs 
MOVE SPACES TO SALES-LINE. 
PERFORM MOVE-RTN VARYING SUB1 FROM 1 BY 1 
UNTIL SUB1 * 25, 
WRITE PRINT-REC FROM SALES-LINE 
AFTER ADVANCING 2 LINES, 
MOVE-RTN. 
MOVE MONTH-AMT (SUBi» SUBZ) TO SALES-ITEM (SUB1),. 


What we have done is to take an array that consists of 12 columns and 25 rows and 
print it out in an order different from the one in which it is stored: 


MONTH COMPANY-SALES-ARRAY 


7 & 9 10 AL 32 


SALESPERSON > 5 6 
1 


MONTH 1 


Self-Evaluating Quiz Use the TEMPERATURE-ARRAY defined in this chapter to answer the questions below: 


O1 TEMPERATURE-ARRAY. 
05 DAY-OF-WEEK OCCURS 7 TIMES, 
10 HOUR OCCURS 24 TIMES, 
15° MEAN-TEMP PIC 9(3), 


Find the average temperature for Sunday (Day 1). 

2. Find the average weekly temperature for 2 A.M. (the second column). 

3. Find the day of the week and the hour when the temperature was highest. Also 
indicate what the highest temperature was. 

Find the day of the week and the hour when the temperature was lowest. 

Find the number of days when the temperature fell below 32° at any hour. 

6. Print the mean temperatures for each day of the week. 


os 
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Solutions 1. MOVE O TO TOTAL. 
PERFORM SUNDAY-AVERAGE YARYING X2 FROM 1 BY 1 
UNTIL X2 > 24, 
COMPUTE AVERAGE = TOTAL / 24, 
DISPLAY ‘AVERAGE TEMPERATURE FOR SUNDAY WAS ‘+ AVERAGE. 


SUNDAY-AVERAGE. 
ADD MEAN-~TEMP (1+ X2) TO TOTAL. 


2 MOVE © TO TOTAL, 
PERFORM 2-AM-AVERAGE VARYING X1 FROM 1 BY 1 
UNTIL X1 > 7. 
COMPUTE AVERAGE = TOTAL / 7, 
DISPLAY ‘THE AVERAGE TEMPERATURE AT 2 AM WAS ‘+ AVERAGE, 


2-AM-AVERAGEs 
ADD MEAN-~TEMP (X1+ 2) TO TOTAL, 


3. MOVE 0 TO HOLD-IT, STOREL, STORE2, 
PERFORM MAJOR-LOOP VARYING X1 FROM 1 BY 1 
UNTIL Xl * 7, 


DISPLAY ‘HIGHEST TEMPERATURE WAS ‘» HOLD-IT, 
DISPLAY ‘DAY OF WEEK OF HIGHEST TEMPERATURE WAS ‘» STOREL, 
IF STORE2 < 13 E 

DISPLAY “HOUR OF HIGHEST TEMPERATURE WAS ‘, 

STOREZ+ ‘AM’. 
IF STORE2 + 12 

SUBTRACT 12 FROM STORE2 

DISPLAY ‘HOUR OF HIGHEST TEMPERATURE WAS ‘4 

: STOREZ, ‘PM’, 


MAJOR-LOOP, 
PERFORM MINOR~LOOP VARYING X2 FROM 1 BY 1 
UNTIL K2 > 24, 
MINOR-LOOP. 
IF MEAN-TEMP (X1» X2) » HOLD-IT 
MOVE TEMP (Xi+ X2) TO HOLD-IT 
MOVE X1 TO STOREI 
MOVE XZ TO STORE2, 


In WORK ING-STORAGE, we could code: 


O1 DAYS, 
OS DAY-VALUE PIC X(21) 
VALUE ‘SUNMONTUEWEDTHUFRISAT’, 
OS DAY-OF-THE-WEEK REDEFINES DAY-VALUE 
r QCCURS 7 TIMES PIC X(3). 


' 
+ 


The second DISPLAY would then change as follows: 


DISPLAY ‘DAY OF WEEK OF HIGHEST TEMPERATURE WAS ‘, 
DAY-OF-THE-WEEK (STORE1), 
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4. Change appropriate literals in the DISPLAY statements in the above to read ‘LOW- 
EST’ temperature, MOVE 999 TO HOLD-IT rather than zero, and change MINOR- 
Loop as follows: 


MINOR-LOOP, 
IF MEAN-TEMP (Xi+ K2) &_] HOLD-IT 
MOVE TEMP (X1+ X2) TO HOLD-IT 
MOVE X1 TO STOREI 
MOVE X2 TO STORE2. 


53 MOVE 0 TO COUNTER, 
PERFORM MAJOR-LOOP VARYING Xt 
FROM 1 BY 1 UNTIL X1 > 7) 
DISPLAY ‘NUMBER OF DAYS WHEN TEMPERATURE < 32 WAS ‘4 
COUNTER, 


‘ 


MAJOR-LOOP, 
MOVE O TO SWITCH. 
PERFORM MINOR-LOOP VARYING X2 FROM 1 BY 1 
UNTIL XZ > 24 OR 
SWITCH = 1. 
MINOR-LOOP. 
IF TEMP (Xi+ XZ) & 32 
ADD 1 TO COUNTER 
MOVE 1 TO SWITCH, 


6. Note: Use 01 pays established for Question 3 if an abbreviation for the day 
(SUN..,.SAT) is to print rather than the day number. 


PERFORM PRINT-RTN VARYING X1 
FROM 1 BY 1 UNTIL X1 > 7% 


’ 
’ 


PRINT-RTN+ 
MOVE © TO TOTAL+ 
PERFORM MINOR-LOOP VARYING X2 FROM 1 BY 1 
UNTIL XZ > 24, 
MOVE DAY-OF-WEEK (X1) TO DAY-OUT. 
COMPUTE AVERAGE-OUT = TOTAL / 24, 
WRITE PRINT-REC FROM OUT-REC 
AFTER ADVANCING 2 LINES, 
MINOR-LOOP, 
ADD MEAN-TEMP (Xi» X2) TO TOTAL. 


C. Using a Double-Level Array for Accumulating Totals 


Suppose a company has 10 departments and five salespeople (numbered 1-5) 
within each department. We wish to accumulate the total amount of sales for 
each salesperson within each department: 


O01 DEPT-TOTALS, 
05 DEPT OCCURS 10 TIMES. 
10 SALESPERSON OCCURS 5S TIMES, 
15 TOTAL-SALES PIc 9(5)¥99. 


Before adding any data to a total area, we must ensure that the total area 
is initialized at zero. On some computers, to initialize an entire array at zero, 
we could code the following: 


MOVE ZEROS TO DEPT-TOTALS:s 


On other computers, it is necessary to code a full initializing routine prior 
to adding to TOTAL-SALES: 
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PERFORM INITIALIZE-RTN VARYING 
Xi FROM £BY 1 UNTIL K > 105 


’ 


INITIALIZE-RTN. 
PERFORM ZERO-IT YARYING K2 
FROM 1 BY 1 UNTIL XZ > &, 
ZERO-IT. 
MOVE © TO TOTAL-SALES (X1+ X2), 


The above routine initializing each TOTAL-SALES field will run on all com- 
puters; only some computers will allow you to code MOVE ZEROS TO DEPT- 
TOTALS. 

Each time a salesperson makes a sale, an input record is created. Each input 
record contains a department number called DEPT-IN, a salesperson number 
called SALESPERSON-NO-IN, and an amount of sales called AMT-1N. There 
may be numerous input records for a salesperson if he or she made more than 
one sale. The coding to accumulate the totals is as follows: 


OVE 0 TO DEPT-TOTALS,. 
READ SALES-FILE AT END MOVE 1 TO EOF. 
PERFORM ADD-RTN UNTIL EOF = 1, 


+ 
’ 


ADD-RTN. 
ADD AMT-IN TO TOTAL-SALES (DEPT-IN» SALESPERSON-NO-IN), 
READ SALES-FILE AT END MOVE 1 TO EOF. 


As indicated previously, input fields may be used as subscripts. For correct 
processing, a validation procedure could be used to ensure that (1) DEPT-IN 
is an integer between | and 10 and that (2) SALESPERSON~-NO~IN is an integer 
between | and 5. 

At the end of the job, we wish to print 10 pages of output. Each page will 
contain the five salesperson totals for a given department. The full PROCEDURE 
DIVISION is as follows: 


PROCEDURE DIVISION, 

MATN-MODULE. 

OPEN INPUT SALES-FILE 

OUTPUT PRINT-FILE, 

OVE © TO DEPT-TOTALS,. 

READ SALES-FILE AT END MOVE 1 TO EOF, 
R 


PERF () ADD-RTN UNTIL EQF = 1, 
PERFORM PRINT-RTN VARYING Xt 
FROM 1 BY UNTIL Kl * 104 
CLOSE SALES~FILE» PRINT-FILE, 
STOP RUN, 
ADD-RTN, 


ADD AMT-IN TO TOTAL~SALES (DEPT-~IN+ SALESPERSON-NO-IN), 
RRR REI I ER RR ROR IEEE RRR EIT IEE 
* NOTE: AMT-INy DEPT-~IN+ SALESPERSON-NO-IN ARE INPUT FIELDS * 
HRTEM RR HR TITER TEARS TR RR RR RRR II IIE ER RR IEE a ae 
READ SALES-~FILE AT END MOVE 1 TO EOF. 

PRINT-RTN« 
QUE Xi TO DEPT-NO-ON-HDG-LINE, 

RITE PRINT-REC FROM HDG AFTER ADVANCING PAGE, 
PERFORM LINE-~PRINT VARYING X2 FROM 1 BY 1 
UNTIL KZ > 3, 
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LINE-PRINT; 
MOVE X2 TO SALESPERSON-NO-OUT. 
MOVE TOTAL-SALES (Xi» XZ) TO TOTAL-OUT- 
WRITE PRINT-REC FROM SALES-LINE-REC 
AFTER ADVANCING 2 LINES: 


D. Loading Input Data into a Double-Level Array 


If an array is to be loaded with data such as temperatures or populations 
entered from an input file, we must use a READ statement and then move the 
data to the array. 

Consider again our TEMPERATURE-ARRAY from the beginning of this chap- 
ter: 


O1 TEMPERATURE-ARRAY. 
O5 DAY-OF-WEEK OCCURS 7 TIMES. 
10 HOUR OCCURS 24 TIMES, 
15. MEAN-TEMP PIC 9(3). 


Suppose we have seven input records, each with 24 three-position mean 
temperatures in them. The first input record to be loaded into the array is for 
Day 1 or Sunday, the second is for Day 2 or Monday, and so on: 


FD TEMP-FILE 
LABEL RECORDS ARE OMITTED. 
QO1 IN-REC; 
05 HOURLY-TEMP OCCURS 24 TIMES PIC 9(3). 


The ARRAY-LOAD routine would be executed as follows: 


PERFORM ARRAY-LOAD 
P VARYING X1 FROM 1 BY 2 UNTIL Xi 3 7, 
+ 


ARRAY-LOAD. 
READ TEMP-FILE 
AT END PERFORM ERR-RTN. 
PERFORM MINOR-LOAD VARYING 
MZ FROM 1 BY 1 UNTIL XZ > 24, 
MINOR-LOAD. 
MOVE HOURLY-TEMP (X2) TO 
MEAN-TEMP (Kil»+ KE). 


If there are fewer than seven records in TEMP-FILE, an ERR-RTN will be 
executed that terminates the job. 


E. Performing a Look-Up Using a Double-Level OCCURS 


1. Searching Elements in an Array 
A SEARCH can also be used with a multiple-level array for finding specific 
values. Consider the following double-level array: 


O1 ARRAYI. 
05 STATE OCCURS 50 TIMES INDEXED BY Xi. 
10 DISTRICT OCCURS 10 TIMES INDEXED BY ke, 
15 POPULATION PIC 9(10), 


We always use the lowest level OCCURS item with the SEARCH. Thus, to 
look up any element in the array, we would code SEARCH DISTRICT +++ 

In the above, there are 10 districts per state. Each state, then, has 10 district- 
wide population figures. 
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Suppose there is only one district within the United States with a popula- 
tion of 123,000 and we want to print its state and district number. To do this, 
we must search the entire array until a match is found. This requires a PER- 
FORM to control the search. 

The statement SEARCH DISTRICT .+. varies X2 from 1 by | until x2 ex- 
ceeds 10. That is, X1 remains constant in the SEARCH, at whatever value it 
was initially set to. Thus, to SEARCH the table until a “hit” or match is found, 
we would have: 


MOVE © TO HIT-IT,. 
PERFORM SEARCH-RTN 
VARYING X1 FROM 1 BY 1 
UNTIL X1 > 50 
OR 
HIT-IT = 1s 
IF HIT-IT NOT = i 
DISPLAY ‘NO MATCH’, 
SEARCH-RTN; 
SET X2 TO l, 
SEARCH DISTRICT 
WHEN POPULATION (X1+ X2) = 123000 
DISPLAY Kl» X2 
MOVE 1 TO HIT-IT, 


Each time through SEARCH-RTN, X1 is set by the PERFORM, first to 1, then 
to 2, and so on. Then, in-SEARCH-RTN itself, X2 is set to 1 before the array is 
actually searched. Thus, the first execution of SEARCH-RTN will search the 
entries (1, 1), (1, 2),... (1, 10). If no match is found, the entries (2, 1), (2, 2), 
... (2, 10) will be searched the second time through SEARCH-RTN. This con- 
tinues until a match occurs (that is, a district population = 123000) or the 
table is completely exhausted. 

To search the entire array for specific conditions even after a “hit” is found 
is somewhat more cumbersome. Suppose we wish to find the number of dis- 
tricts within the United States that have populations in excess of 100,000. We 
could code the following: 


PERFORM COUNT-THEM 
VARYING X1 FROM 1 BY 1 
UNTIL X1 > 50, 
DISPLAY CTR. 
COUNT-THEM, 
SET K2 TO i. 
MOVE © TO END-TABLE, 
PERFORM SEARCH-ARRAY 
UNTIL END-TABLE = 1, 
SEARCH-ARRAY,. 
SEARCH DISTRICT 
AT END MOVE 1 TO END-TABLE 
WHEN POPULATION (X1» X2) > 100000 
ADD 1 TO CTR. 


Suppose we wish to find the total number of districts in STATE 3 with 
populations less than 50,000. In this case, we want to keep the STATE index, 
X1, constant at 3. To do this, we SEARCH DISTRICT as follows: 


SET X1 TO 3, 

SET X2 TO 1, 

PERFORM SEARCH-RTN UNTIL END-OF-STATE-3 = 1. 
DISPLAY CTR2, 


‘ 
’ 


Example 1 
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SEARCH-RTN-+ 
SEARCH DISTRICT 
AT END MOVE 1 TO END-OF-STATE-3 
WHEN POPULATION (Xi+ X2) € So000 
ADD i TO CTR2. 


2. Performing a Table Look-Up 
We could also use a double-level OCCURS entry to define a table and then use 
a SEARCH for performing a table look-up. 


Suppose we have a program that reads payroll records as input. The salary for each 
employee at the company is dependent on the employee’s level and years in rank, that 
is, years at that level. All employees at a given level and with the same number of 
years in rank will all have the same salary. Since these salaries are fixed, we may store 
them in a table rather than in each payroll record. The advantages of storing these 
fixed salaries in a table are: 


1. We save six storage positions for each employee record. (We assume salaries may 
exceed 99,999 someday; thus we need to set aside six positions for each salary.) 
If there are tens of thousands of employees, for example, this savings of storage 
could be considerable. 


2. Salary changes can be more easily made to table entries than to a high volume 
of input employee records. 


When a salary is increased for a specific level and years-in-rank, only one change 
would be required: a change to the corresponding table entry. If salaries appeared in 
the payroll records, we would need to change every payroll record with that salary 
level. 

The major category within the table is level number, which varies from 1 to 7. 
Within each level, there are five categories for years-in-rank. If an individual is at a 
given level with years-in-rank equal to 1, we use the first entry for that level; if an 
individual is at a given level with years-in-rank equal to 2, we use the second entry, 
and so on. It is company policy that no employee be at any given level for more than 
5 years; after 5 years, an employee is moved to the next level. Thus five occurrences 
for years-in-rank is sufficient. 


Figure 20,1 illustrates the table with sample entries. If an employee, for 
example, is at a level number of 3 and is 2 years in rank, his or her salary 
would be 24,000. 

The table would be stored as follows: 


O1 SALARY-TABLE. 
o5 LEVEL OCCURS 7 TIMES. 
10 YEARS-IN-RANK OCCURS 3 TIMES, 
15 SALARY PIC 9(6), 


We need to look up each employee’s salary by using the employee’s level 
and years-in-rank. The easiest method for obtaining the salary entry from the 
table would be as follows: 


MOVE SALARY (LEYEL-IN+ YEARS-IN-RANK-IN) TO SALARY-OUT. 


LEVEL-IN and YEARS-IN-RANK-IN are fields within the input payroll record. 
As long as they are valid, with LEVEL-IN varying from 1 to 7 and YEARS-IN- 
RANK-IN varying from 1 to 5, we may use these input fields as subscripts to 
find each employee’s salary. 

Suppose, instead, we read different payroll records that contain salary but 
do not contain level and years-in-rank. For this program, we want to determine 
the corresponding level and years-in-rank for each employee. That is, we wish 
to match a salary read as input to a salary stored in the table; the corresponding 
subscripts for that table entry will give us the employee’s level and years-in- 
rank. 
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Figure 20.1 Salary-Table 


Salary table for Example 1. 
Years-in-Rank 


1 3 3 4 5 

1 008420 | 09000 | 10380 | 011280 | 012300 

2 | 015280 | 17000 | o1ssoo | 020000 | 021950 

Level__3 022310 025100 026300 027000 
4 | o2sooo | osoo00 | osiiso | 34000 | 035700 | 

5 | 037050 | 039000 | 41000 | 042500 | 044300 

6 | 046200 | 48000 | 050000 | 052000 | 053000 

7 | 054000 | 060000 | 065000 | 072000 | 080000 


Salary 

for 
Level 3 
Years-in-Rank 2 


In this instance, the SEARCH is the most efficient method of accessing the 
table. We would use INDEXED BY clauses to define the table: 


Ol SALARY-TABLE, 
OS LEVEL OCCURS 7 TIMES INDEXED BY Xl, 
10 YEARS-IN-RANK OCCURS S TIMES INDEXED BY X2, 
15 SALARY PIC X(G)4 


Each input record has a SALARY~IN field. To find the corresponding level 
and years-in-rank for that salary, we would code: 


MATCH~SWITCH PIC 9 YALUE O. 


’ 


MOVE © TO MATCH~SWITCH. 
PERFORM SEARCH~TABLE 
VARYING X1 FROM 1 BY 1 
UNTIL Xt > 7 OR MATCH-SWITCH = 1. 


’ 
’ 


SEARCH-~TABLE, 
SET X2 TO 1. 
SEARCH YEARS-IN-RANK 
WHEN SALARY-~IN = SALARY (X1ly XZ) 
MOVE 1 TO MATCH-SWITCH, 


The SEARCH uses the lowest level OCCURS entry as the data-name. If the 
highest level OCCURS entry, LEVEL in this case, is to remain constant, a simple 
SEARCH will suffice. On the other hand, if the entire table is to be searched, 
a PERFORM is required where the paragraph to be performed sets the lower 
index before searching the table. 

The indexes themselves specify the corresponding level and years-in-rank. 
To move the index values to the output fields, LEYEL-OUT and YEARS~IN- 
RANK-OUT, we must use a SET statement. Suppose an input employee payroll 
record has a salary of 10,380. Using the above table and the SEARCH, a match 
is found when Xi = 1 and x2 = 3, Thus, employees with a salary of 10,380 
are on level 1 with a years-in-rank code of 3. 
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3. Loading Data into a Table or Array 
These program excerpts assume that data is already stored in the table. To 
store the data in the table, we could (1) use VALUE clauses or (2) load data into 
the table from some input device. 

Since VALUE clauses cannot be used directly with occURS clauses, we might 
use a series of VALUEs in conjunction with a REDEF INES: 


O1 SALARY-TABLE. 
O35 ENTRY-1x+ 
© FELLER PICTURE K(30). 
VALUE ‘OOB42000900001L 038001 1LZ80012300%, 
Oo FILLER PICTURE K(30). 
VALUE ‘OLSZ28001L700001B50002Z0000021950", 
0 FILLER PICTURE X(30)+ 
VALUE ‘OZZ31L00Z24000025100026300027000%, 
® FILLER PICTURE X(30), 
VALUE /028000030000031150034000035700", 
0 FILLER PICTURE X(30), 
VALUE ‘O37050039000041000042500044300", 
0 FICLER PICTURE X(30). 
VALUE ‘O462000480000500000520000539000", 
O FILLER PICTURE K(30). 
VALUE ‘O540000800000B500007Z000080000", 
O5 ENTRY-2X REDEFINES ENTRY-1xk, 
0 LEVEL OCCURS 7 TIMES. 


15 YEARS-IN-RANK OCCURS 5S TIMES, 
20 SALARY PIC 9(G), 


With the VALUE clauses indicated, the data would be stored in the table as 
already illustrated in Figure 20.1. 

Using VALUE clauses to store table data is only performed if the contents 
of a table do not change with any frequency. If there is a good chance that 
VALUES will need to be altered, data is usually loaded into a table rather than 
stored with VALUES. Making changes to existing programs by altering VALUE 
clauses is to be avoided. Any change could inadvertently produce an error. 
Hence, if there is some likelihood that the contents of a field or fields will 
change, do not use VALUE clauses; instead, load the table values into storage 
as variable items. Most often, table values are loaded from an input file and 
are not stored with VALUE clauses. 

Suppose we use input records with the format below to load the table: 


RECORD 7 
for 
LEVEL 7 


RECORD 1 
or 
LEVEL 1 


The first record pertains to LEVEL 1, the second record to LEVEL 2, and so on. 
Thus, each record contains salary fields for a given level—one for each year- 
in-rank. 
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The input file containing table data would have the following format: 


FD TABLE-FILE 
LABEL RECORDS ARE OMITTED, 
Ol IN-REC, 
OS TABLE-~ENTRY OCCURS 5 


The WORKING-STORAGE entries for EOF, subscripts, and the table would 
appear as follows: 


WORKING-STORAGE SECTION, 
Ol STORED-AREAS, 


TIMES PIC 9(6). 


03 EOF PIC 9 VALUE O, 
OS SUBL PIc 9 VALUE Oy 
03 SuB2 PIC 9 VALUE 04 


O1 SALARY-TABLE, 
OS LEVEL OCCURS 7 TIMES, 
10 YEARS-IN-RANK OCCURS 5 
15 SALARY 


TIMES, 
PIC 9(6). 


The load routine would be as follows: 


PROCEDURE DIVISION, 
MAIN-MODULE » 
OPEN see 
PERFORM TABLE-LOAD YWARYING SUB1 FROM 1 BY 1 
UNTIL SUBL > 7. 


TABLE-LOAD, 

READ TABLE-FILE AT END 
PERFORM ERR-RTN, 
PERFORM RTN1 VARYING 
UNTIL SUBZ > 3, 


SUBZ FROM 1 BY 1 


RTNI, 
(SUBZ) 


a 


VE TABLE-ENTRY TO SALARY (SUB1» SUBZ), 
would display an error message and terminate the job. 


ERR-RT 


Assume that the following table is to be loaded into storage: 


OL INVENTORY-TABLE, 
OS WAREHOUSE OCCURS 50 TIMES, 
10 ITEM-X OCCURS 100 TIMES, 
15) PART-NO PIC 9(4), 
15 UNIT-PRICE PIC gggvag, 


Each warehouse stores 100 items. These 100 items are unique to each warehouse, so 
that a specific PART-NO will appear only once in the table. There are 5000 table records, 
each with a warehouse number, part number, and unit price. The first table record 
refers to warehouse 1, part number 1; the next to warehouse 2, part number 2, and so 
on. 

Suppose that input transaction records have the following format: 


1-4 
5-6 


PART-NO-IN 
OTY-ORDERED 


For each PART-NO-IN in a transaction record, we need to look up the corresponding 
PART-NO in the table and find its UNIT-PRICE. The output will be a printed report 
listing the PART-NO and the TOTAL-AMT, where TOTAL-AMT = QTY=~ORDERED (from 
the transaction record) x UNIT-PRICE (from the table). 
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We could use a double-level PERFORM to obtain the results required, or a PERFORM 
with a SEARCH. To use a SEARCH, the table described above would need to be altered 
to include the appropriate INDEXED BY clauses: 


O1 INVENTORY-TABLE+ 
05 WAREHOUSE OCCURS 50 TIMES INDEXED BY Xl. 
10 ITEM-X OCCURS 100 TIMES INDEXED BY X2,. 
15) PART-NO PIC 3(4). 
15° UNIT-PRICE PIc g99gvag, 


The routine would then appear as follows: 


MOVE 1 TO ERR-SWITCH+ 

PERFORM SEARCH-IT VARYING X1 FROM 1 BY 1 
UNTIL X1 > 50 OR ERR-SWITCH = 0+ 

IF ERR-SWITCH = 0 
WRITE QUT-REC FROM TRANS-REC-OUT 

AFTER ADVANCING 2 LINES» 

ELSE 

PERFORM NO-MATCH-ERR. 


’ 
‘ 


SEARCH-IT. 
SET X2 TO 1, 
SEARCH ITEM-x 
WHEN PART-NO-IN = PART-NO (X1+ X2) 
MULTIPLY UNIT-PRICE (X1» K2) BY QTY-ORDERED 
GIVING TOTAL-AMT 
MOVE O TO ERR-SWITCH. 


NO-MATCH-ERR would be executed if no match existed between the PART-NO-IN 
and a table entry. 
The full program for this example appears in Figure 20.2. 


F. Searching Only Part of a Table 


Suppose we wish to find the UNIT-PRICE for an input PART-NO-IN stored at 
WAREHOUSE 5. There is no need to search the entire table, just those entries 
within WAREHOUSE 5. Using the above INVENTORY-TABLE, we could code the 
SEARCH as follows: 


m1 48 82 86 


We use ITEM-X here.| 
The major index X1 
is fixed at 5 and we 
go not want it 0 var} 


We always SEARCH ITEM-X not WAREHOUSE, because we are looking for an 
item within a specific row, row 5 in this instance. 


EE 1. triple-Level occurs Clause and More 


We have seen that OCCURS clauses may be written on one or two levels. We 
may also employ triple-level OCCURS clauses. A maximum of three levels of 
OCCURS clauses may be used in a COBOL program unless you are using the 
1985 standard, which permits more (7 dimensions or levels). 
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Suppose we have a population table consisting of 50 state groups. Each state 
is further subdivided into 10 counties, Each county has precisely five district 


figures. The following array may be established in the WORK ING-STORAGE 
SECTION: 

Oi | POPULATION TABLED TTL TTT TT. [ Po 
[TTT 105 | ISTIAMTE! [O\ciCURIS| Si6) TITMElS.. [| | | 
| || IO | ICOUNTN (OCICURIS! \40 ITITME'S!. Tite | | | 
| 4/5) DISTRICT OcicluR'S 5 TITME'S|,| PIL | 4 | | 

In this way, we have defined 2500 fields (50 x 10 x 5) in storage, each 10 

positions long. To access any field defined by several OCCURS clauses, we use 


the Jowest level data-name. In this illustration, the data-name DISTRICT must 
be used to access any of the 2500 fields of data. 

Since DISTRICT is defined by a triple-level OCCURS clause, three subscripts 
must be used to access the specific field desired. The first subscript refers to 
the major level item, STATE. The second subscript refers to the intermediate 
level item, COUNTY. The third subscript refers to the minor level, DISTRICT. 
Subscripts are always enclosed within parentheses. Each subscript is separated 
from the next by a comma and a space. Consider the following coding: 


EEEFFEC DiSrpIncn Kaas Br co 


The DISTRICT specified refers to the population figure for: 


STATE 5 
COUNTY 4 
DISTRICT 3 


An item defined by a triple-level OCCURS clause is accessed by using three 
subscripts. 


Example Write a routine to find the smallest population figure in the above array. (We assume 
that data has already been placed in the array.) Store this smallest figure in HELD. 


Using PERFORM «.. YARYING statements to achieve the above looping, we have: 
z a tz 16 20 24 28 2 36 0 a %B 7 36 co mH om —7l 
CELBEREDRHY BEACH AGRUENEF BoBe/ ERORy aL Brat ERI H 
Ci - FROM 1! BYI HI UNTIL! SUBH! b| 66). 
CTPPERFORM NEXT -RITN. | [|| i Pee 
nae PERFOR OL RIN. CO if 

sin 

| LUPERFIORM RTN-2l VARNIING! SUB2 FROM 1! BI 4) UNTIL! SUB! >| KO. 


lee 
Fas 
Fic 
(sz) 


Figure 20.2 
Program for Example 2. 
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* 
IDENTIFICATION DIVISION, 


PROGRAM-ID. SEARCH, 
¥ 
ENVIRONMENT DIVISION, 
INPUT-OUTPUT SECTION, 
FILE-CONTROL,. 
SELECT INVENTORY-TABLE-IN ASSIGN TO DISKIi, 
SELECT TRANSACTION-FILE ASSIGN TO DISK2,. 
SELECT REPORT-OUT ASSIGN TO SYSLST- 
* 
DATA DIVISION, 
FILE SECTION. 
FD INVENTORY-TABLE-IN 
LABEL RECORDS ARE STANDARD. 
O1 INVENTORY-TABLE-REC, 
eke) -WAREHOUSE-NO Pic 99, 
O05 -PART-NO PIc 9999, 
05 -UNIT-PRICE PIC s9gvag. 
FD TRANSACTION-FILE 
LABEL RECORDS ARE STANDARD: 
O1 TRANSACTION-REC, 
05 PART-NO-IN PIc 9999, 
05 OTY-ORDERED PIC 99, 
O35 FILLER PIC X(14),4 
FD REPORT-OUT 
LABEL RECORDS ARE OMITTED, 
O1 OUT-REC PIC K(133), 
WORKING-STORAGE SECTION. 
O1 WS-AREAS: 
0S EOF PIc 9 VALUE 0, 
05 ERR-SWITCH PIC 9 VALUE O, 
O1 INVENTORY-TABLE. 
O5 WAREHOUSE OCCURS 50 TIMES INDEXED BY Xl. 
10 ITEM-xX OCCURS 100 TIMES INDEXED BY X2-y 
15 PART-NO PIC Q(4), 
15 UNIT-PRICE PIC ggguag, 
O1 TRANS-REC-OUT. 
0S FILLER PIC K(10) VALUE SPACES, 
05 PART-NO-OUT PIC 9(4), 
05S FILLER PIC K(S) VALUE SPACES, 
oS OTY-OUT Pic 99, 
OS FILLER PIC X(6) VALUE SPACES, 
05 TOTAL-AMT PIC $222,222.99. 
05 FILLER PIC K(95) VALUE SPACES, 
O1 ERR-REC. 
05 FILLER PIC X(10) VALUE SPACES, 
05 ERR-PART PIc (4), 
05 FILLER PIC X(5) VALUE SPACES, 
05 FILLER PIC x(1i4) 
YALUE ‘PART NUMBER IS NOT IN TABLE’, 
O1 HEADING-1, 
0S FILLER PIC K(13) VALUE SPACES, 
QoS FILLER PIC K(120) 
VALUE ‘INVENTORY REPORT’, 
O1 HEADING-2, 
05 FILLER PIC K(19) 
VALUE ‘PART NO ’ JUSTIFIED RIGHT. 
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Figure 20.2 
Continued 


Os 
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* 
PROCEDURE DI 
MAIN-~MODULE, 

OPEN INP 


OUT 
RITE OU 
RITE OU 
READ INY 
PERFOR 
Kl > 
oT 
TRA 


OVE 
READ 
PERFO 
CLOSE 
STOP 
TABLE-LOA 
PERFO 
LOAD-~IT, 
IF 


1 
D 
Cc 


MOVE 
MOVE 
READ 
CALC-RTN. 
MOVE PAR 
MOVE QTY 
MOVE 7 
PERFORM 


T-P 
T-U 
NY 


IF ERR-S 
WRIT 


ELSE 
PERE 
READ TRA 
NO-MATCH-ERR 
MOVE PAR 
WRITE OU 
AFTE 
SEARCH-IT, 
SET 
SEARCH I 
WHEN 


yn 
Re 


FILLER 
PELE 
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PIC X(8) VALUE ‘OOTY’, 
PIC X(106) 


VALUE ‘TOTAL AMT’. 


VISION. 


UT INVENTO 
TRANSAC 
PUT REPORT 
T-REC FROM 
T-REC FROM 
ENTORY-TAB 
TABLE-LOAD 
SO. 
0 EOF. 
SACTION-F 
CALC-RTN U 
VENTORY=-TA 


RY-TABLE-IN 

TION-FILE 

~OUT. 

HEADING-1 AFTER PAGE. 
HEADING-2 AFTER ADVANCING 
LE-IN AT END MOVE 1 TO EOF, 
VARYING X1 FROM 1 BY 1 UNTIL 


va 


LINES. 


AT END MOVE 1 TO EOF. 
Ee BO ls 
~IN TRANSACTION-FILE REPORT-OUT. 


TLE 
uae 
BLE 


x2 FROM 1 BY 1 UNTIL X2 100, 


AD-IT VARYING > 
HOUSE-NO NOT EQUAL TO X1 

LAY ‘TABLE IS NOT IN SEQUENCE’ 

INVENTORY -TABLE-~IN 

TRANSACTION-FILE 

REPORT-OUT 

STOP RUN. 

ART-NO TO PART=-NO (X1l+ X2)4 

IT-PRICE TO UNIT-PRICE (X1+ KZ), 


ENTORY-TABLE-IN AT END MOVE 1 TO EOF, 


-~IN TO PART-NO-OUT, 
ERED TO QTY-OUT. 

R- SWITCH, 
CH-IT YARYING X1 FROM 1 BY 
50 OR ERR-SWITCH oO. 

H 0 
T-REC FRO 
CING Z LI 


T-NO 
~ORD 
0 ER 
SEAR 
KL > 
DTG 
E OU 
ADVA 


1 UNTIL 


4 


TRANS-REC-OUT AFTER 
ES 


OR O-MATCH-E 
SACTION-FILE 


RRs 
AT END MOVE 1 TO EOF. 


~PART + 
-REC 
LINES. 


O-IN TO ERR 
EC FROM ERR 
DVANCING 2 
O: 2 
TE 
PART-NO-IN 
ULTIPLY UNIT-PRICE 

GIVING TOTAL-~AMT 
OVE 0 TO ERR-SWITCH. 


‘ 


ye 
oh 


PART=-NO (Kiy X2) 


(Mls X2) BY OTY-ORDERED 
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CHAPTER SUMMARY 
I. Double-level occurs 
A. May be used for an array or a table. 
B. Lowest level OccuURS data-name or item subordinate to it is used to ac- 
cess an entry in the array or table. 


Example 


Ey 36 40 cy 


=n 
om 


[ 
UR 
0! 


ES 
WEop 


. Refers. 7 Refers to LEVEL-2 subscript 


T r im) 


FEF 


C. Can use a SEARCH for accessing a double-level table. 
INDEXED BY must be used on both occurs levels, 
Il. Triple-level occURS 
A. May be used for an array or a table. 
B. Lowest level occurs data-item or item subordinate to it is used to ac- 
cess an entry in the array or table. 
C. Can use a SEARCH for accessing a triple-level table. 
INDEXED BY must be used on all three OCCURS levels. 
Ill. 1985 compilers have greatly expanded the number of levels of OCCURS to 
7, the 1968 and 1974 compilers allow a maximum of three levels. 


| CHAPTER SELF-EVALUATING QUIZ 


1. To access areas defined by double- or triple-level occuRS clauses, we must use 
the _______ level item defined by an occurs clause. 
2. If MOVE ITEMM (SUB1» SUBZ) TO HELD is a statement in the PROCEDURE DIVISION, 
then suB1 refers to the _______ level occurs clause and SUB2 refers to the 
level occurs clause. 


3. Consider the following DATA DIVISION entry: 


O1 HELD. 
05 FIELDX OCCURS 20 TIMES, 
10 FIELDXX OCCURS 50 TIMES. 
15 ITEMX .PICTURE S99, 


The number of storage positions reserved for this area is ______. The data-name 
that may be used to access a field in the PROCEDURE DIVISION is _____.. If 
ITEMX (CTRA+ CTRB) is used in the PROCEDURE DIVISION, then CTRA may vary 
from —_______ to _______ and C TRB may vary from ________ to 


4. A maximum of ________ levels of occurs clauses may be used in the DATA 
DIVISION for 1968 and 1974 compilers. 
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5. If three levels of OCCURS clauses are used, then (no.) subscripts must be used to 


access the specific field desired. 
6. If three subscripts are used to access an item, the first refers to the 


level, the second to the _______ level, and the third to the —— level. 
7. Each subscript within the parentheses is separated from the next by a 
and a 
8. A_________ clause may not be used in conjunction with an OcCuRS clause in the 
DATA DIVISION, 
9. If a SEARCH is used for accessing a double-level table, a(n) ______ clause must 
be used on both occurs levels. 
10. An item with an ocCuRS clause (may, may not] redefine another entry. 
Page 
1. lowest 527 
2. major; minor 528 
3. 2000 (20 x 50 x 2); ITEMX (or FIELDXx), 1 to 20; 1 to 50 527 
4. three 526 
5. three 544 
6. major; intermediate; minor 544 
7. comma, space 544. 
8. VALUE 541 
9, INDEXED BY 537 
10. may 541 


PRACTICE PROGRAM 


Write a program to tabulate the number of employees by area within department. 
problem definition appears in Figure 20.3. 


Notes 

(a) There are 10 areas within each department, there are 20 departments. 
(b) Records are not in sequence. 

(c) All totals should be edited to suppress high-order zeros. 


See Figure 20.4 for a solution with sample output. 


The 


REVIEW QUESTIONS 


I. True or False 


1. (T or F) If a data item is defined with a double-level occurs clause, the first 


subscript refers to the lower level occurs. 


2. (T or F) Triple-level subscripting is the maximum that may be coded for 1968 and 


1974 compilers. 


3. (T or F) To initialize entries referenced by an OCCURS clause, we can YALUE the 


item that is defined with the occurs. 

4. (T or F) Subscripts must always be numeric. 

5. (T or F) The following entries define 5000 positions of storage: 
OL TABLE-1, 


OS ITEM-1 OCCURS 50 TIMES, 
10 ITEM-2 OCCURS 10 TIMES PIC S9(10). 


6. (T or F) An entry in TABLE-1 in Question 5 can be referenced by using cither 


ITEM-1 or ITEM-2 in the PROCEDURE DIVISION. 
7. (T or F) For the above, a reference to ITEM-2 (9+ 43) is permissible. 
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Figure 20.3 Systems Flowchart 
Problem definition for the 
Practice Program. 


PRINT-FILE 


EMP-FILE 
80-position records 
standard labels 


EMP-FILE Record Layout 


PRINT-FILE Printer Spacing Chart 


2}a}3}afa|a 
| H 


EJ 
=I 


7 a TTT root 


8. (T or F) For the above, a reference to ITEM-2 (43, 9) is permissible. 
9. (T or F) Data may be accessed from table areas in sequence only. 
10. (T or F} Fields defined by double- or triple-level occurs clauses that are used to 
store totals need not be initialized. 


II, General Questions 
1. There are 50 classes in College X. Each class has exactly 40 students. Each student 
has taken six exams. Write a double-level occuRS clause to define an area of 
storage that will hold these scores. 
2. Write a triple-level occurs clause for Question 1. 
How many storage positions are reserved for the above? 
4. Write the file and record description entries for a file of input records that will 
contain the students’ test scores. Each record will contain six scores in the first 


o 


18 positions. The first record is for the first student in class 1, .. . the 40th record 
is for the 40th student in class 1, the 41st record is for the first student in class 2, 
and so on. 


5. Using the solutions to Questions 2 and 4, write the PROCEDURE DIVISION routines 
to read the exam records and to accumulate the data in the table area. 
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1 IDENTIFICATION DIVISION. ure 20.4 
5 AUTHOR, NANCY STERN CHRISTOPHER HAMMEL, ‘ Fig 
a ENVIRONMENT DIVISION, Solution to the Practice 
é SOURCE-COMPUTER. “IBM~4391. Program. 
7 OBJECT—COMPUT! TBM-4331 

8 INPUT-OUTPUT SECTION. 

9 FILE-CONTROL, 
10 SELECT EMP-FILE SSIGN TO DATAS 

it SELECT PRINT-FILE ASSIGN To SvescuTPUT 

12 DATA DIVISION 

13 FILE SECTION. 

14 FD” EMP-FILE 

15 LABEL RECORDS ARE STANDARD, 

16 O1 EMP-REC. 

17 05 DEPT PIC 99. 

18 05 AREAL PIC 99) 

19 05 OTHER-EMP-DATA PIC x(76) 
20 FD PRINT~FI 
Bi LABEL RECORDS ARE OMITTED 
Fy OL PRINT-REC PIC xX(193) 
33 WORKING STORAGE SECTION 
25 05 EOF PIC VALUE ZERO. 
Ba 05 CTRI PIC 99 VALUE 1 
27 05 CTRE PIC 99 VALUE 
2B o1 TOTALS: 
29 05 DEPTX OCCURS 20 TIMES: 
30 10 AREAX OCCURS 10 TIMES PIC 999, 

BL 01 HEADER! 

32 05 FILLER PIC x(44) VALUE SPACES 
33 05 FILLER PIC X(47) 

34 VALUE ‘TOTAL NO OF EMPLOYEES BY AREA WITHIN DEPARTMENT’ 

39 05 FILLER PIC X(42) VALUE SPACES. 
3a 01 HEADERS: 

37 05 FILLER PIC X(30) VALUE SPACES. 
3a 05 FILLER pre x¢50) 

39 VALUE 7 AREAL AREA AREAS AREAS AREAS’. 
40 05 FILLER PIC X(50) 

aL VALUE 7 AREAS AREA AREAS AREAQ 0’, 
42 05 FILLER PIC XXX QaLue SPACES” 
43 01 DETAIL-LINE 
44 05 FILLER PIC X(10) VALUE SPACES 
45 05 FILLE! PIG x(12) 
46 VALUE DEPARTMENT 
47 OS DEPT-N PIC 99. 
43 05 FILLER PIC X(@) VALUE SPACES 
49 OB TTENA OCCURS 10 TIMES 

50 10 FILLE! PIC XX 

51 10 AREAV. PIC 279, 

52 10 FILLER PIG X(5) 

53 05 FILLER PIé X VALUE SPACES. 
54 PROCEDURE DIVISION 

55 MAINY 

7 OPEN INPUT EMP-FILE 

57 OUTPUT PRINT-FILE 

58 MOVE ZEROS TO TOTALS. 

59 PERFORM SPACE-MOVE VARYING CTR1 GRO" 1 BY 1 UNTIL CTRI IS GREATER THAN 10. 
60 READ EMP-FILE AT END MOVE 1 TO 
tL PERFORM READ-RTN UNTIL EOF = 1 
62 PERFORM HEADING-RTN 
63 PERFORM TOTAL-UP VARYING CTR1 FROM 1 BY 1 UNTIL CTR1 IS GREATER THAN 20. 
64 CLOSE EMP=FILE 
65 PRINT-FILE. 
64 STOP RUN. 
67 SPACE~MOVE. 
68 MOVE SPACES TO ITEMX (CTRL) 
62 READ“RTN 
70 ADD 1 TO AREAX (DEPT, AREAL) 

71 READ EMP-FILE AT END MOVE 1 TO EOF, 

72 TOTAL UP 

73 DB 1 TO DEPT-NO 
74 PERFORM MOVE-RTN VARYING CTR@ FROM 1 BY 1 UNTIL CTR2 IS GREATER THAN 10, 
28 WRITE PRINT-REC FROM DETAIL-LINE AFTER ADVANCING 2 LINES, 
78 MOVE=RTN. 
77 MOVE AREAX (CTRi, CTR2) TO AREAY (CTR2) 
78 HEADING=RTN. 
79 WRITE PRINT-REC FROM HEADER! AFTER ADVANCING PAGE. 
80 WRITE PRINT-REC FROM HEADER® AFTER ADVANCING 2 LINES, 


TOTAL NO OF EMPLOYEES BY AREA WITHIN DEPARTMENT 


AREAL AREA2 AREAS AREA4 AREAS AREAS AREA7 AREAS AREA® AREALO 
DEPARTMENT— O1 ° o te) 0 0 i) t) ° Oo io) 
DEPARTMENT~ 02 ce} °o oO 0 te) ie) ° i) 0 
DEPARTMENT~ 03 1) 1 0 ie) 1) f°) oO te) te) oO 
DEPARTMENT 04 0 0 0 1) i) ie) °O 0 0 ° 
DEPARTMENT~ OS 2 i) io) o 1 ie) 1 1 ce Oo 
DEPARTMENT O06 1 i) ie] 1 ° 0 0 ie) 0 fo} 
DEPARTMENT~ 07 :: ° oO 2 io) 0 i) i) 0 0 
DEPARTMENT= 08 0 0 0 ie) 0 ° 0 ° ° ° 
DEPARTMENT~ O9 4 i) 0 ° i) oO 0 °O ° oO 
DEPARTMENT— 10 1 ° 1 ° ° ° i) 3 1 2 
DEPARTMENT= 11 fe} ie} 0 0 ° 0 ° ° 0 ° 
DEPARTMENT= 12 oO 0 Oo 0 0 ie) oO i) 1 0 
DEPARTMENT~ 13 0 ie) 0 oO 0 te) 0 1°) i) 1 
DEPARTMENT 14 ° ° ° ° ° ° ° ° ° ° 
DEPARTMENT~ 15 ie) 0 te) oO 0 ie) ie) ° 0 ° 
DEPARTMENT= 16 0 o ° Oo ie) 0 0 1 0 1) 
DEPARTMENT= 17 oO o i) 0 i) o Oo o i) 1) 
DEPARTMENT= 18 0 o ie) ° 0 ° 0 1°) ° 0 
DEPARTMENT= 19 1 ie) i) i) i) 1) 1°) ce) 1 0 
DEPARTMENT~ 20 0 1 ° 1 O° ° ae Oo oO 2 
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6. Write a routine to find the class with the highest class average. 

7. Write a routine to find the student with the highest average. 

8. If the following is a WORK ING-STORAGE entry, write a routine to initialize the fields. 
Note that all areas to be used in arithmetic operations must first be cleared or set 
to zero. Assume that you cannot code MOVE 0 TO TOTALS. 


O1 TOTALS. 
05 MAJOR-TOTAL OCCURS 100 TIMES, 
10 INTERMEDIATE-TOTAL OCCURS 45 TIMES. 
15 MINOR-TOTAL OCCURS 25 TIMES PICTURE S9(5). 


Make necessary corrections to each of the following (Questions 9 and 10). 
9, O1 ITEMX OCCURS 20 TIMESs VALUE ZEROS, 
O5 MINOR-ITEM OCCURS 15 TIMES; PICTURE Sd. 


10, 01 TABLE-A. 
05 FIELDX OCCURS 10 TIMES, PICTURE S99. 
05 FIELDY REDEFINES FIELDX PICTURE X(20), 


III. Validating Data 
Modify the Practice Program so that it includes coding to (1) test for all errors and (2) 
print a control listing of totals (records processed, errors encountered, hash total}. 


ER DEBUGGING EXERCISES 


Consider the following: 


WORKING-STORAGE SECTION, 
O1 TABLE-1. 
05 WAREHOUSE OCCURS 5S TIMES, 
10 STOCK-ITEMS OCCURS 150 TIMES, 
15) ITEM-NO PIC 9(3),. 
15 PRICE PIC 9(4). 
PROCEDURE DIVISION, 
MAIN-MODULE. 
OPEN INPUT TABLE-FILE 
TRANS-FILE 
OUTPUT PRINT-FILE,. 
READ TABLE-FILE AT END MOVE 1 TO EOF1, 
PERFORM TABLE-ENTRY VARYING X1 FROM 
1 BY 1 UNTIL X1 % 5, 
READ TRANS-FILE AT END MOVE 1 TO EOF2, 
PERFORM CALC-RTN UNTIL EOF2 = ty 
CLOSE TABLE-FILE+ TRANS-FILEs PRINT-FILE, 
STOP RUN. 
TABLE-ENTRY,. 
PERFORM ENTER-IT VARYING X2 
FROM 1 BY 1 UNTIL XZ > 150. 
ENTER-IT+ 
MOVE T-ITEM-NO TO ITEM-NO (X1+ XZ). 
MOVE T-PRICE TO PRICE (X1+ X2)+ 
CALC-RTN. 
MOVE ACCT-NO TO ACCT-OUT, 
MOVE ACCT-NAME TO NAME-OUT. 
MOVE 0 TO FOUND-IT, 
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PERFORM SEARCH-TABLE 
VARYING K1 FROM i BY i 
UNTIL Ki # 5 OR FOUND-IT = iy 
WRITE PRINT-REC FROM DETAIL-REC 
AFTER ADVANCING 2 LINES. 
READ TRANS-FILE AT END MOVE 1 TO EOF2, 
SEARCH~TABLE. 
SET X2 TO i. 
SEARCH STOCK-ITEMS 
WHEN ITEM-IN = ITEM-NO (X1y X2) 
MULTIPLY OTY-IN BY PRICE (Xl) Xz) 
GIVING GROSS-OUT 
MOVE 1 TO FOUND-IT+ 


1. Two syntax errors occur on the lines associated with the SET and the SEARCH. Both 
errors are the result of an omission within TABLE-1. Find and correct the errors. 

2. An abend condition occurs during execution of ENTER-1T. Determine why and fix 
the error. 

3. Suppose two warehouses have the same ITEM-NQ; for example, 127. How will this 
affect processing? Would this processing be correct? If not, explain how you would 
modify the program. 

4. Suppose the company has decided to increase the price of each item by 10% but 
has not yet made the appropriate changes to the table entries. Make the necessary 
changes to CALC-RTN so that GROSS-OUT is correct. 

5. There is another way to make the 10% price increases. You can make them to the 
table entries as the table is entered. Recode the table entry routine so that prices 
are increased by 10%. 

6. Which method of making price increases—(4) or (5) above—is more efficient? 
Explain your answer. 


| PROGRAMMING ASSIGNMENTS 


1. Write a program to print two sales reports. The first report is a daily report giving 
seven daily figures, edited. The second report is a salesperson report giving 25 sales- 
person figures, edited. The problem definition is shown in Figure 20.5. 


Notes 

(a) For the first report, each daily figure consists of the addition of 25 salesperson figures for 
the corresponding day. For the second report, each salesperson figure consists of the ad- 
dition of seven daily figures for the corresponding salesperson. 

b) Records are not in sequence. 


2. Write a program to tabulate the number of employees by office within territory. 
The problem definition is shown in Figure 20.6, 


Notes 
a) There are two offices within each territory, there are three territories. 
b) Records are not in sequence. 


3. Redo Programming Assignment 2 to tabulate the number of employees by job clas- 
sification within office within territory. Figure 20.7 shows the Printer Spacing Chart 
or this problem. 


Notes 
a) Job classification codes are 01, 02, and 03. 
b) Records are not in sequence. 


4. Redo Programming Assignment | assuming the 25 salespeople have unique numbers 
that can be anything from 001 to 999, 


Problem definition for Pro- 
gramming Assignment 1. 


MULTIPLE-LEVEL OCCURS CLAUSES 553 


Systems Flowchart 


DAILY-SALES 


SALES-FILE Bvmeacuscnmcnamnianaseena 
25-position records 

standard labels 

30 records/block 


SALESPERSON-REPORT 


SALES-FILE Record Layout 


DAILY-SALES Printer Spacing Chart 
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ala 


SALESPERSON-REPORT Printer Spacing Chart 
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Figure 20.6 — Systems Flowchart 
Problem definition for Pro- 
gramming Assignment 2. 
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PAYROLL-MASTER Record Layout 
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EMPLOYEE-REPORT Printer Spacing Chart 
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Figure 20.7 
Printer Spacing Chart for Pro- 
gramming Assignment 3. 
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OBJECTIVES 


To familiarize you with: 

1. Sequential update procedures using tape or disk as a master file. 

2. Other types of sequential file maintenance including merging and matching. 
3. How sequential disk files are updated in place with.a REWRITE statement. 


I. Systems Overview of Sequential File Processing 


In this section we will focus on concepts that will be applicable to this entire 
unit on file maintenance. 


A. What Is a Master File? 


This unit will focus on master file processing. A master file is the major 
collection of data pertaining to a specific application. Typically, companies 
have master files in application areas such as Payroll, Accounts receivable, 
Accounts payable, Production, Sales, and Inventory. 

In most installations, a master file will be stored on either a magnetic tape 
or a magnetic disk. Several features of tape and disk make them ideally suited 
or storing master file data: 


FEATURES OF TAPE AND DISK 
1. Can store hundreds of thousands of records or more on a single tape 
or disk unit. 
Can process records at very high speeds. 
Can store records of any size. 
4. Tape and disk drives can either read or record data. 


Se 


B. Tape and Disk Master Files 


Whether a master file is stored on tape or on disk depends on the needs of the 
company and on the ways in which the master file is to be accessed. There 
are two main reasons why a disk might be the primary storage medium for a 
master file: 


REASONS WHy Disks ARE PREFERRED FOR MASTER FILES 


1. When records must be processed randomly, that is, in some 
sequence other than the one in which they are stored, disk files are 
used. Tapes can only be processed sequentially. 

2. When immediate or direct access of records is required, as with a 
reservation system, disk files are used. 


When records are processed in sequence, and direct accessing is not re- 
quired, the master file can be stored sequentially on either tape or disk. Thus, 
a disk can be used for either random or direct access or for sequential access, 
but a tape is used almost exclusively for files that are processed sequentially. 
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We divide our discussion of file maintenance into several chapters: 


1. Sequential file processing 
Sequential files may be stored on tape or disk. This chapter focuses on 
sequential file processing. 

2. Sorting files 
When tape or disk is used for storing the file, but a different sequence 
is required for processing or reporting purposes, sorting is required, Chapter 
2,2, focuses on the SORT procedure. 

3. Random processing 
Disk files must be used for random processing, since tapes can only be 
processed sequentially. Chapter 23 includes a discussion of the ways in 
which a disk file can be organized and processed using the most common 
random access techniques. Appendix I focuses on other random access 
techniques. 

4, Interactive processing 
Chapter 24 focuses on methods of interacting with a computer at a 
terminal for updating files. 


Sequential file processing and sorting, discussed in this and the next chap- 
ters, apply to either tape or disk, because both can be processed sequentially 
and sorted. Card files are also processed sequentially, and print files are created 
sequentially as well. Random processing applies to disk only. 


C. Typical Master File Procedures 


Throughout this text, we have illustrated numerous techniques that required 
processing of master files. In this unit, we will focus on procedures typically 
used for handling master files, regardless of whether they are stored on tape 
or disk, These procedures include: 


1, Creating a Master File 
When a new system is implemented or is used for the first time, a master file 


must be initially created. This procedure can be performed by entering all 
master file data from a terminal or other data entry device. The data is then 
recorded on a tape or disk and becomes the master file. This creation of a 
master file is a one-time procedure. That is, once the master file is created, 
changes to it are made by using a different procedure. 

The primary objective of a program that creates a master file is ensuring 
data integrity. That is, a master file is only useful if it contains valid and 
reliable data; hence, a creation program must be designed so that it minimizes 
input errors. Chapter 15 focused on some data validation techniques typically 
used when creating a master file to minimize the risk of errors. You should 
use these validating procedures when creating a master file. A control listing 
should also be produced indicating the data contained in the new master file 
as well as whatever control totals are deemed necessary. The control listing 
is checked by users as an additional verification technique. 


2. Creating a Transaction File of Change Records 
After a master file is created, a procedure must be developed to make changes 


to it. Typically, change records are created in a separate file referred to as a 
transaction file. Changes to an accounts receivable master file, for example, 
may consist of sales records and credit records. Changes to a payroll master 
file may consist of name changes, salary changes, and so on. Such change 
records would be stored in a transaction file. The transaction file is typically 
edited first to ensure data integrity. Just as with master file creation, validating 
transaction data will minimize the risk of errors. 


3, Updating a Master File 
The process of making a master file current is referred to as updating. The 


master file is updated or made current by incorporating changes specified in 
the transaction records. This chapter will emphasize techniques used for per- 


SEQUENTIAL FILE PROCESSING 559 


forming sequential updates for master files on tape or disk; Chapter 23 will 
focus on techniques used for performing random access updates, where the 
master file must be on disk. 


4. Reporting from the Master File 

The purpose of maintaining a master file is to store data that is used to provide 
meaningful output to both management and the operating staff. This is re- 
ferred to as reporting. Reports or output can be scheduled so that they are 
prepared on a regular basis. Sales reports, bills, and payroll checks are examples 
of output from master files that are prepared on a regularly scheduled basis. 

Reports can also be prepared on demand. That is, when they are needed, 
they are simply requested. Such reports tend to be more varied in output 
requirements. Indeed, it is sometimes difficult to predict the needs of a user 
for an on-demand output report. Hence, usually such reports are provided 
through terminal access. Chapter 24 provides some illustrations of commands 
that are used for interactive processing using a terminal. 

The preparation of regularly scheduled reports using detail printing, excep- 
tion printing, and group printing techniques have already been considered in 
Unit 3. Chapter 24 will focus on “demand” output, which is easily provided 
by files that are designed to be accessed randomly. 

Throughout this text, but most specifically in Chapter 15, we focused on 
file creation where validity checking was a component. You should be able to 
write programs to create a master file and a transaction file from input data 
and to validate data according to the system’s specifications. The discussion 
on file updating in this chapter is applicable to master tape files as well as to 
master disk files that are organized sequentially. 

If you need a review of tape handling concepts, see Appendix B. 


[RSE I. Sequential File Updating 


A. The Files Used 


As previously noted, this chapter will focus on sequential file updating and 
other sequential file procedures. Both tape and disk can be used for storing 
sequential master files. The only difference in a COBOL program between 
specifying a sequential file using disks as opposed to tapes is in the SELECT 
statement. Later on, we will see that sequential disks can also be updated a 
different way. 

Recall that an update procedure is one used to make a file current. To update 
a sequential master file—tape or disk—we require three files. A fourth print 
file that includes control listings is frequently required as well. 


1. Input Master File 

This is the master file that is current through the previous updating period. 
That is, if updates are performed weekly, the input master file is the file that 
was created as the master during the previous week. We will call this file oLD- 
MASTER because it does not contain current changes. 


2. Input Transaction File 

The transaction file is the file that contains data to be used for updating the 
master file called OLD-MASTER. That is, the input transaction file contains all 
changes that have occurred as a result of transacting business since OLD- 
MASTER was created. We will call this file TRANS-FILE and use it to update 
the OLD-MASTER file. 


3. Output Master File 

The output master file is the file that becomes the new master as a result of 
the updating procedure. The output master file will integrate data from the 
OLD-MASTER and the TRANS-FILE. We will call this file NEW-MASTER. Note 
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Figure 21.1 
Systems flowchart of a sequen- 
tial update procedure. 
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that for the next week’s update run, this NEW-MASTER will become 0LD-MAS- 
TER. 

For purposes of illustration, we will assume that the input and output mas- 
ter files are on tape. The transaction file could be stored on floppy disk, cas- 
sette tape, punched cards, magnetic disk, or magnetic tape. 

For purposes of illustration, we will assume that the transaction file is on 
tape, too. The systems flowchart in Figure 21.1, then, summarizes the files 
used in an update procedure. 


Contains changes to 
the master - must be 
the same sequence 
as the master file 


Contains master 
records current 
through the 
previous update 
cycle 


OLD-MASTER | 


(Sequential TRANS-FILE 
i (Could be any 
tape file) Yovieg) 


Contains master information 
that has been updated with 
changes that have occurred 
since the previous 

update cycle 


NEW-MASTER 
(Sequential 
tape file) 


A print file may also be created during a sequential file update. This print 
file would list (1) changes made to the master file, (2) errors encountered during 
processing, and (3) totals to be used for control and checking purposes. Since 
you are already familiar with the routines for creating this type of file, we will 
omit them from our sequential update illustrations. 


B. The Sequence of Records for Sequential Updates 
Thus, OLD-MASTER contains all master information that was complete and 


current through the previous updating cycle. The TRANS-FILE contains all 
transactions or changes that have occurred since the previous updating cycle. 
These transactions or changes must be incorporated into the master file to 
make it current. The TRANS+FII.E can be on any computer medium including 
tape, cards, or floppy disk. The NEW-MASTER will include all OLD-MASTER data 
in addition to the changes in the TRANS-FILE that have been generated: since 
the last update. The NEW-MASTER will always be on the same medium as the 
OLD-MASTER, since the current NEW-MASTER becomes the OLD-MASTER during 
the next update cycle. 

In a sequential master file, all records are in sequence by a specific key field 
such as account number, Social Security number, or part number, depending 
on the type of master file. This key field uniquely identifies each master 
record. To update records in a sequential master file, the transaction file con- 
taining the change records must also be in sequence by the same key field. 
Thus, a change record must also be identified with a key field such as account 
number or Social Security number. 


C. The Procedures to Use for Sequential Updates 
Let us consider the updating of a sequential master accounts receivable file. 
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The key field used to identify records in the master file is account number, 
identified as M-ACCT-NO, for master account number. All records on the OLD- 
MASTER accounts receivable file are in sequence by M-ACCT-NO. 

The transaction file contains all transactions to be posted to each master 
account; these transactions have all occurred since the previous update. This 
transaction file also has an account number as a key field, called T-AaccT-No 
for transaction account number. Records in the TRANS-FILE are in sequence 
by T-ACCT-NO. 

The formats for the two input files are: 


OLD-MASTER-REC 
(In sequence by M-ACCT-NO) 


1-5 M-ACCT-NO 
6-11 AMOUNT-DUE XXXK+ xx 
12-100 FILLER 


TRANS-REC 
(In sequence by T-ACCT-NO) 


1-5 T-ACCT-NO 
G-11 AMT-TRANS-IN-CURRENT-PER XXKX+KX 
12-80 FILLER 


NEW-MASTER becomes the current master accounts receivable file after the 
update procedure. It must, therefore, have the same format as the OLD-MAS- 
TER. The fields are described as follows: 


NEW-MASTER-REC 


1-5 ACCT-NO-OUT 
G-11 AMOUNT-DUE-OUT 
12-100 FILLER 


At the end of the next updating cycle, the NEW-MASTER becomes the OLD- 
MASTER and is updated with transactions that have occurred during that cycle. 

Keep in mind that records within 0LD-MASTER are in sequence by M-ACCT- 
No and that records within TRANS-FILE are in sequence by T-ACCT-NO. The 
NEW-MASTER file, then, will also be created in account number sequence. 

Figure 21.2 illustrates a flowchart of the procedures to be coded in this 
update program. We will consider each procedure in detail. Figure 21.3 shows 
the pseudocode for this program; Figure 21.4 shows the full program. 


1. The Main Module 

The main module opens all files, reads a record from both the master and the 
transaction file, performs a COMP-RTN until all records are processed, closes 
the files, and stops the run. The significance of the COBOL reserved word 
HIGH-VALUES will be discussed later in this section. 


2. The Comparison Routine (COMP -RTN) 

A record has been obtained from both the OLD-MASTER and the TRANS-FILE 
in the main module. COMP-RTN compares the account numbers, N-ACCT-NO 
of OLD-MASTER-REC and T-ACCT-NO of TRANS-REC. Since both files are in 
sequence by their respective account numbers, a comparison of M-ACCT-NO 
to T-ACCT-NO will determine the next procedure to be performed. Three pos- 
sible conditions may occur when comparing M-ACCT-NO and T-ACCT-NO. 


(a) T-ACCT-NO IS EQUAL TO M-ACCT-NO. This means that a transaction 
record exists with the same account number that is on the master file. If this 
condition is met, we perform a procedure called REGULAR-UPDATE. In this 
instance, the OLD-MASTER-REC is to be updated; that is, the transaction data 
is to be posted to the master record and the NEW-MASTER-REC is to contain 
the previous AMOUNT-DUE plus the AMT-TRANS-IN-CURRENT-PER of the 
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Figure 21.2 

Flowchart of procedures to be 
used in a sample update 
program. 


COMP-RTN 


Figure 21.3 Oren the files 
Pseudocode for sample Read master file 
update program. Read transaction file 
If there are input records 
PERFORM until no more input 
IF T-ACCT-NO = M-ACCT-~NO 
update the record 
read master file 
read transaction file 
ELSE 
IF T-ACCT-NO ¢ M-ACCT-NO 
add a new record 
tread transaction file 
ELSE 
write new master from old master 
read master file 
ENDIF 
ENDIF 
ENDPERFORM 
Close the files 
Stor run 


Figure 21.4 
Sample update program. 
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IDENTIFICATION DIVISION: 


PROGRAM-ID. 
* 
ENVIRONMENT DIVISION. 
INPUT-OUTPUT SECTION. 
FILE-CONTROL,. 
SELECT OLD-MASTER 
SELECT TRANS-FILE 
SELECT NEW-MASTER 


SAMPLE. 


ASSIGN TO UT-S-SYSO04, 
ASSIGN TO UT-S-SYS005, 
ASSIGN TO UT-S-SYSOOG, 


DATA DIVISION, 
¥ 
FILE SECTION: 
FD OLD-MASTER 

LABEL RECORDS ARE STANDARD 

BLOCK CONTAINS 20 RECORDS 
01 OLD-MASTER-REC. 

05 M-ACCT-NO 

05  AMOUNT-DUE 

05 FILLER 
FD TRANS-FILE 

LABEL RECORDS ARE STANDARD: 
O1 TRANS-REC, 

0S T-ACCT-NO 

05 AMT-TRANS-IN-CURRENT-PER 

05 FILLER 
FD NEW-~MASTER 

LABEL RECORDS ARE STANDARD 

BLOCK CONTAINS 20 RECORDS 
O1 NEW-MASTER-REC. 

05 ACCT-NO-OUT 

05 AMOUNT-DUE-OUT 

05 FILLER 


* 
PROCEDURE DIVISION. 
MAIN-MODULE, 

OPEN INPUT OLD-MASTER 
TRANS-FILE 
QUTPUT NEW-MASTER- 
PERFORM READ-MASTER+ 
PERFORM READ-TRANS: 
PERFORM COMP-RTN UNTIL 
M-ACCT-NO = HIGH-VALUES 
AND 
T-ACCT-NO = HIGH-VALUES,. 
CLOSE OLD-MASTER 
TRANS-FILE 
NEW-MASTER: 
STOP RUN, 


KEKE EEE EEE EE EEE EKER KEE ERE EERE REE KE EERE EERE RE RE RE REE RR ERE 


¥#* NOTE THAT NESTED CONDITIONALS ARE USED IN COMP-RTN 
PTET PCC C TT ITOCOCOICOS OOS CTT Te 


COMP-RTN, 
IF T-ACCT-NO = M-ACCT-NO 
PERFORM REGULAR-UPDATE 
ELSE 
IF T-ACCT-NO «= M-ACCT-NO 
PERFORM NEW-ACCT 
ELSE 
PERFORM NO-UPDATE:s 


PIC 
PIC 
PIC 


PIC 
PIC 
PIC 


PIC 
PIC 
PIC 


K(S)+ 
9(4)va9, 
K(B9), 


K(S)4 
§(4)va9, 
K(B9), 


K(S), 
9(4)v99, 
X(B9), 
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Figure 21.4 
Continued 
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REGULAR-UPDATEs 

OVE SPACES TO NEW-MASTER-REC. 

OVE M-ACCT-NO TO ACCT-~NO-OUT. 

ADD AMT-TRANS-IN-CURRENT-PER» AMOQUNT-DUE 

GIVING AMOUNT-DUE-OUT. 

RITE NEW-MASTER~REC+ 

PERFORM READ-MASTER: 
E 


PERFORM READ-TRANS+ 
NEW-ACCT. 
OVE SPACES TO NEW-MASTER-REC 
OVE AMT-TRANS-IN-CURRENT-PER TO AMOUNT-DUE-OUT, 
OVE T-ACCT-NO TO ACCT-NO-OUT. 
RITE NEW-~MASTER-~REC. 


PERFORM READ-TRANS. 

NO-UPDATE. 

RITE NEW-~MASTER-REC FROM OLD-MASTER-REC, 

PERFORM READ-MASTERs 

READ-MASTER+ 

RRO RR RRR RRO EE IETHER OR RR RORGRGR RGR RRR RR RRR RRR HE ee 

#** NOTE THAT HIGH-VALUES ON AT END CONDITION WILL ENSURE 

¥** THAT RECORDS FROM THE TRANS-FILE WILL STILL BE 

HEH PROCESSED. 

ROR RE ETE RET EUR EER RRR GR OR ROR ETRE ae 

READ OLD-MASTER AT END 

OVE HIGH-VALUES TO M-ACCT-NO, 

READ~TRANS + 
READ TRANS-FILE AT END 

MOVE HIGH-VALUES TO T-ACCT~NO. 


transaction record. After a NEW~MASTER-REC is written, another record from 
both OLD-MASTER and TRANS-FILE is read. 


(b) T-ACCT-NO IS GREATER THAN M-ACCT-NO. This means that there is 
a master record with an account number lower than the account number on 
the transaction file. Since both files are in sequence by account number, this 
condition indicates that a master record exists for which there is no corre- 
sponding transaction record. That is, the master record has had no activity or 
changes occurring during the current update cycle and should be written onto 
the NEW-MASTER file as is. We call this procedure NO-UPDATE. At NO-UPDATE, 
we write the NEW-MASTER-REC from the OLD-MASTER-REC and read another 
record from OLD-MASTER. Since we have not yet processed the transaction 
record that caused T-ACCT-NO to compare greater than the M-ACCT-NO of the 
OLD-MASTER, there is no need to read another transaction record at the NO- 
UPDATE procedure. Consider the following example, which illustrates the 
processing to be performed if T-ACCT-NO is >» M-ACCT-NO, 


M-ACCT-NO T-ACCT-NO 


QOOOL OOOO1L <—— Update master-rec 

00002 00003 <—— 00002 is put on the NEW-MASTER as 
is; the next master record is read, 
T-ACCT-NO 00003 has not yet been 
processed 


(c) T-ACCT-NO IS LESS THAN M-ACCT-NO. Since both files are in sequence 
by account number, this condition would mean that a transaction record exists 
for which there is no corresponding master. Depending on the type of update 
procedure being performed, this could mean either (1) a new account is to be 
processed from the TRANS-FILE or (2) an error has occurred—that is, the 
T-ACCT-NO is wrong. In our illustration, we will assume that when a T-ACCT- 
NO is less than an M-ACCT-NO, this is a new account, but first let us consider 


M-ACCT-NO 
00001 


00002 


90003 


00005 


00005 
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the full range of procedures that could be executed if M-ACCT-NO is greater 
than T-ACCT-NO: 


(1) Create a New Account If M-ACCT-NO > T-ACCT-NO. As noted, for some 
applications, a transaction record with no corresponding master record means 
a new account. We call this procedure NEW-ACCT in our program. In this 
instance, a new master record is created entirely from the transaction record. 
Then the next transaction record is read. We do not read another record from 
OLD-MASTER at this time, since we have not yet processed the master record 
that compared greater than T-ACCT-NO. 


(2) Specify an Error Condition If M-ACCT-NO » T-ACCT-NO. For some ap- 
plications, all accounts on the transaction file must have corresponding master 
records with the same account numbers. For these applications, new accounts 
are handled by a different program and are not part of the update procedure. 

In such an instance, an M-ACCT-NO GREATER THAN T-ACCT-NO would cause 
an ERROR-RTN to be processed. Typically, the error routine would print out 
the transaction record that has a non-matching account number and then read 
the next transaction record. Sometimes a DISPLAY is used to list errors. DIS- 
PLAY can print a message, along with a data-name, as in the following: 


IF M-ACCT-NO > T-ACCT-NO 
DISPLAY ’ACCT-NO OF TRANSACTION RECORD IS NOT IN THE MASTER FILE’, 


T-ACCT-NO, 
The DISPLAY statement is discussed in detail in Chapter 24. 


Thus, in our main module, a master and a transaction record are read. Then 
COMP-RTN is executed where the account numbers are compared. Based on 
the comparison, REGULAR-UPDATE, NO-UPDATE, or NEW-ACCT will be exe- 
cuted, COMP-RTN is then repeated until there are no more records to process. 


3. Comparing M-ACCT-NO with T-ACCT-NO ; 
The following examples illustrate the routines to be performed depending on 
the account numbers read: 


T-ACCT-NO CONDITION ACTION 
ooool M-ACCT-NO IS EQUAL REGULAR UPDATE 
TO T-ACCT-NO ADD AMT-OF-TRANS TO BALANCE-DUE 


ooood 
ooo0d 


00004 


00005 


WRITE NEW-MASTER-REC FROM 
OLD-MASTER-REC 
PERFORM READ-MASTER 
PERFORM READ-TRANS 
M-ACCT-NO IS LESS NO-UPDATE 
THAN T-ACCT-NO WRITE NEW-MASTER-REC 
FROM OLD-MASTER-REC 
PERFORM READ-MASTER 
M-ACCT-NO IS LESS NO-UPDATE 
THAN T-ACCT-NO WRITE NEW-MASTER-REC 
FROM OLD-MASTER-REC 
PERFORM READ-MASTER 
M-ACCT-NO IS GREATER NEW-ACCT 
THAN T-ACCT-NO WRITE NEW-MASTER-REC 
FROM TRANS-REC 
PERFORM READ-TRANS 
M-ACCT-NO IS EQUAL REGULAR-UPDATE 
TO T-ACCT-NO 
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This update procedure assumes that there is no more than a single trans- 
action record for each master record. There are numerous applications in which 
there may be multiple transaction records with the same account number that 
are to update a single master record. This procedure will be considered later 
on in this chapter. 

Review the flowchart of the update procedure discussed in this section that 
appears in Figure 21.2. The pseudocode for this procedure is in Figure 21.3, 
and the program appears in Figure 21.4. 

Two elements in the program require further clarification: (1) the nested 
conditional in COMP-RTN, and (2) the use of HIGH-VALUES in the master and 
transaction account number fields when an AT END condition is reached. 


(a) Nested Conditionals in COMP-RTN, The use of the nested conditionals, 
the IF ..+ ELSE IF .++ format, is particularly useful in an update procedure 
where we have three conditions to test. You will recall from Chapter 17 that 
nested conditionals function as follows: 


In our program, the following was coded: 


Condition Result 
A. IF T-ACCT~NO = M-~ACCT-NO PERFORM REGULAR-~UPDATE 
B. IF T-ACCT-NO ¢ M-ACCT-~NO PERFORM NEW-ACCT 


Not (A or B) implies: 
IF T-ACCT-NO > M-~ACCT-NO PERFORM NO-UPDATE 


We use the nested conditional because we prefer to use a single statement to 
perform the test on account numbers. Since we wish to execute COMP-RTN in 
its entirety for each master and transaction record to be processed, we code it 
as a single instruction. 


(b) The Use of HIGH-VALUES to Process End-of-File Conditions. Since we 
have two input files, there are two possible end-of-file conditions that may 
occur. In an update program, it is possible for all records in the TRANS~FILE 
to be processed before we have reached the end of the OLD-MASTER file. It is, 
however, also possible to run out of OLD-MASTER records before we reach the 
end of the TRANS-FILE. We must, therefore, account for both possibilities. 

We use the COBOL reserved word HIGH-VALUES in the READ-MASTER and 
READ-TRANS procedures. HIGH-YALUES is the expression used for the largest 
data value in the specific computer’s collating sequence. This is typically a 
nonprintable character consisting of “all bits on” in a single storage position. 
When the 0LD-MASTER file has reached the end, there may be additional trans- 
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action records to process. Hence, we would not want to automatically ter- 
minate processing at an OLD-MASTER end-of-file condition; instead, we would 
want to continue processing transaction records as NEW-ACCTs. To accomplish 
this, we place HIGH-VALUES in M-ACCT-NO of OLD-MASTER-REC when an AT 
END condition occurs. In this way, subsequent attempts to compare the 
T-ACCT-NO of new transaction records to the M-ACCT-NO of OLD-MASTER- 
REC will always result in a “less than” condition. Thus, suppose we reach an 
AT END condition for OLD-MASTER first. The NEH-ACCT routine would be ex- 
ecuted until there are no more transaction records, because M-ACCT-NO has 
the highest possible value and will always compare “high” to T-ACCT-NO. 

On the other hand, we may reach an AT END condition for TRANS-FILE 
while there are still OLD-MASTER records left to process. In this case, we would 
want to continue processing OLD-MASTER records at NO-UPDATE until we have 
completed this file. Hence, at READ- TRANS, an AT END condition moves HIGH- 
VALUES to T-ACCT-NO. HIGH-VALUES is a kind of “dummy” T-ACCT-NO that 
will always compare high, or ‘>’, to M-ACCT-NO of OLD-MASTER-REC. In this 
way, NO-UPDATE will continue to be performed. Any remaining OLD-MASTER 
records will be read and processed using this NO-UPDATE sequence. This pro- 
cedure will continue until an AT END condition at OLD-MASTER is reached. 

We may now continue to process records at COMP-RTN even if one of the 
two input files has reached an AT END condition. 

Only when both AT END conditions have been reached should control return 
to the first paragraph or main module where the program is terminated. Thus, 
the main module will execute COMP-RTN with the following statement: 


PERFORM COMP-RTN UNTIL 
M-ACCT-NO = HIGH-VALUES 
AND 
T-ACCT-NO = HIGH-VALUES,. 


HIGH-VALUES may only be used with fields that are defined as alpha- 
numeric. Thus M-ACCT-NO, T-ACCT-NO, and ACCT-NO-OUT must be defined 
with a PIC of X’s rather than 9’s. This does not affect our processing since 9’s 
are required only if a field is to be used in an arithmetic operation. 

It may have occurred to you that moving 99999 to M-ACCT-NO or T-ACCT- 
NO on an end-of-file condition would accomplish the same results as moving 
HIGH-VALUES. That is, a trailer record of 9’s in the account number field will 
always compare high. This use of 9’s in the key field is only possible if the 
key field could not, in reality, have a valid value of 9's. That is, if an account 
number of 99999 is a feasible, valid entry, moving 99999 to an account num- 
ber when an end-of-file condition is reached could produce erroneous results. 

HIGH-VALUES means “all bits on,” and thus is not a printable character. 
Using it on an end-of-file condition will always result in correct file handling 
regardless of the actual data values that the account numbers can assume. 
This is because an incoming account number will always compare “less than” 
HIGH-VALUES regardless of its actual value. 


Self-Evaluating Quiz 


1. A ________ is the major collection of data pertaining to a specific application. 
2. (T or F) A tape drive can be used for either reading or recording data on a tape. 
3. (T or F) Tapes are typically used for sequential storage of master files. 
4. (T or F) A disk file can be accessed either sequentially or randomly. 
5. Changes to a master file are placed in a separate ________ file. 
6. The process of making a master file current is referred to as F 
7. In a sequential update procedure, three files are needed: they are 
, and 
8. (T or F) In a sequential update procedure, all files must be in sequence by the same 
key field. 


9. In a master file sequential update procedure, the key field in the transaction file 
is compared to the key field in the 


1 
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10. In Question 9, if the key fields are equal, a ________ procedure is performed. 
Describe this procedure. 


11. In Question 9, if the transaction key field is greater than the master key field, 


a ________ procedure is performed. Describe this procedure. 
12. In Question 9, if the transaction key field is less than the master key field, 
a _________ procedure is performed. Describe this procedure. 


13. A nested conditional is one in which 

14. The statement READ TRANS-FILE AT END MOVE HIGH-VALUES TO T-ACCT-NO 
causes ________. to occur if there are no more records in TRANS-FILE. 

15. In Question 14, T-ACCT-NO must be defined with a P1C of 


Solutions 1. master file 3. T 5. transaction 
ia 4.T 6. updating 
7. the old master file—current through the previous updating cycle 
the transaction file 
the new master file—incorporates old master data along with transaction data 
8.1. 
9. old master file 

10. regular update; transaction data is added to the master data, a new master record 
is written, and records from the old master and the transaction file are read. 

11. no update; a new master record is created directly from the old master record and 
a record from the old master file is read. 

12. new account or error; if new account, move transaction data to the new master 
and write; if error, print error message. In either case, a transaction record is then 
read, 

13. multiple conditions are tested using the IF .., ELSE IF 

14, all bits on in the T-ACCT-NO (HIGH-VALUES means all bits on. Any subsequent 
comparison of T-ACCT-NO to an actual M-ACCT-NO will cause a “>” condition). 

15, x’s 


Eee tn. Validity Checking in Update Procedures 


We have focused on the procedures necessary to perform a sequential master 
file update. Note, however, that numerous data validation techniques would 
typically be incorporated in an update procedure to minimize errors. Since 
updating involves the use of master files, it is imperative that errors be kept 
to a minimum. Let us consider some common validity checking routines. 


A. Checking for New Accounts 


You will recall that there are two types of procedures commonly used if 
M-ACCT-NO is greater than T-ACCT~NO, that is, if there is a transaction record 
for which there is no corresponding master record. For some applications, 
transaction records should always have corresponding master records; hence, 
M-ACCT-NQ » T-ACCT-NO means an error has occurred. 

For other applications, M-ACCT~NO > T-ACCT-NO means that the transaction 
record could be a new account to be added to the NEW-MASTER file. Simply to 
add this transaction record to the new master file, however, without any ad- 
ditional checking would be dangerous, since the possibility exists that 
T-ACCT-NO was coded incorrectly and that the transaction record is, in fact, 
not a new account. 


SEQUENTIAL FILE PROCESSING 569 


To verify that a TRANS-REC is a new account, we usually include a coded 
field in the TRANS-REC itself. Hence, a more complete format for TRANS-REC 
is as follows: 


TRANS-REC 


1-5 T-ACCT-NO 
G-11 AMT-TRANS-IN-CURRENT-PER XXKXK+KX 
12-79 FILLER 
te) CODE-x 
1 - NEW-ACCT 
2 - REGULAR-UPDATE 


Thus, if M-ACCT-NO IS GREATER THAN T-ACCT-NO, this means that the 
transaction record is a new account only if it also contains a 1 in CODE-x. The 
procedure at NEW-ACCT, then, should be modified to validate the data being 
entered: 


NEW-ACCT. 

IF CODE-X IS EQUAL TO 1 
MOVE SPACES TO NEW-MASTER-REC 
MOVE AMT-TRANS-IN-CURRENT-PER TO AMOUNT-DUE-OUT 
MOVE T-ACCT-NO TO ACCT-NO-OUT 
WRITE NEW-MASTER-REC 

ELSE 
PERFORM ERROR-RTN+ 

PERFORM READ-TRANS. 


Similarly, CODE-x may be used to validate transaction data processed at 
REGULAR-UPDATE: 


REGULAR-UPDATE. 

IF CODE-X = 2 
MOVE SPACES TO NEW-MASTER-REC 
MOVE M-ACCT-NO TO ACCT-NO-OUT 
ADD AMT-TRANS-IN-CURRENT-PER +» AMOUNT-DUE 

GIVING AMOUNT-DUE-OUT 

WRITE NEW-MASTER-REC 

ELSE 
PERFORM ERROR-RTN- 

PERFORM READ-MASTER. 

PERFORM READ-TRANS. 


B. Deleting Records from a Sequential Master File 


One type of update function not considered in our previous illustrations is 
that of deleting master records. Since accounts may need to be deactivated if 
customers give up their account or have not paid bills, there must be some 
provision for eliminating specific records from the master file. We may use 
the technique of a coded transaction field as described above to accomplish 
this. We could add a code of ’3’ to indicate that a record is to be deleted. 


TRANS-REC 


1-5 T-ACCT-NO 
6-11 AMT-TRANS-IN-CURRENT-PER AXKK.XX 
12-79 FILLER 
80 CODE-x 
1 - NEW-ACCT 
2 - REGULAR-UPDATE 
3 - DELETE-THE-RECORD 
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The procedure at REGULAR-U 


REGULAR-UPDATE. 
IF CODE-X = 2 


MOVE SPACES TO 
MOVE M-ACCT-NO 
ADD AMT-TRANS-I 
GIVING AMOU 
WRITE NEW-MASTE 


ELSE 
IF CODE-X = 


EW-M 
TO AC 


T-DU 
R-REC 


NEXT SENTENCE 


ELSE 


ASTER-REC 
CT-NO-OUT 


E-OUT 


PERFORM ERROR-RTN+ 
PERFORM READ-MASTER. 


PERFORM READ-TRANS. 


Note that REGULAR-UPDATE is performed only if T-ACCT-NO = M-ACCT- 
NO. Hence, at the end of REGULAR-UPDATE, we should retrieve one record 
from each file. If CODE-x = 3, the OLD-MASTER is not written onto the new 
file; it is, in effect, deleted by not re-creating the corresponding master record 


in the new master file. 


C. Checking for Sequence Errors 


In an update program the sequence of the records in the transaction and master 
files is critical. If one or more records in the transaction or master file has 
been sequenced incorrectly, the entire production run could produce erroneous 
results, Hence, it is necessary to detect such errors either before or during the 


update procedure. Consider the following: 


00006 
00009 
Incorrectly —> 00118 
sequenced 00015 
record 00016 


TRANS-FILE 
T-ACCT-NO 


PDATE might be revised as follows: 


~CURRENT-PER+ AMOUNT-DUE 


OLD-MASTER 
M-ACCT-NO 


00006 
00009 
00014 
00015 
00016 
00017 


All these records 
would be incorrectly 
processed because the 
00118 record in 
TRANS-~FILE is out of 
place 


A sequence error in the TRANS-FILE causes incorrect processing. 


If the possibility for a sequence error exists, it is advisable to include a 


sequence check in your program: 
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At SEQ-ERR-RTN, you may want to (1) simply print a message indicating 
that a sequence error has occurred, (2) stop the run, or (3) count the number 
of such errors and abort the run if the count exceeds a predetermined limit. 


Alternative Method for Sequence Checking 

Abotting a run, resequencing detail records, and then updating the master file 
again would usually be a lengthy and costly procedure. A better alternative is 
to create the TRANS-FILE on tape or disk and execute a SORT command, 
which will be described in the next chapter. With a computer-generated SORT, 
we can be relatively certain that the sorted file is properly sequenced. 


aes wv. Update Procedures with Multiple Transaction 


Records for Each Master Record 


We have thus far focused on an update procedure in which a single transaction 
record may be used to alter the contents of a master record. For some appli- 
cations, a single transaction record may be all that is permitted. For example, 
ina SALES file, we may use a single transaction record that indicates the total 
sales amount for the current period to update a corresponding master record. 
For most applications, however, there may be a need to process more than 
one change during each update cycle. For example, a master accounts receiv- 
able file may be updated with transaction records where a single transaction 
record is created for each purchase or credit charged to a customer. If a cus- 
tomer has purchased 12 items during the current updating cycle, then there 
will be 12 transaction records for that one master customer record. 
Similarly, updating a payroll master file would typically require routines to 
handle more than one transaction or change for each master record. Suppose, 
for example, that an employee marries. It may be necessary to process a name 
change record, an address change record, and a change to number of de- 
pendents, as well. Similarly, if an employee is promoted, it may mean we need 
to process a change in level, job title, salary, and perhaps even location. 
Consider the updating of the accounts receivable file as described in Figures 
21.2 and 21.4. The PROCEDURE DIVISION entries specified in Figure 21.4 are 
suitable only if one transaction per master is permitted. If more than one 
transaction had the same account number as a master record, the second 
transaction would be handled incorrectly. Since an equal condition between 
the key fields in TRANS-REC and OLD-MASTER-REC causes a NEW-MASTER- 
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REC to be written and a new TRANS-REC and MASTER-REC to be read, the 
processing would not function properly. 

Thus, if multiple transaction records are possible for each master record, 
the following PROCEDURE DIVISION entries would be required. 


KHER H HRI HE EEE ERR ER RE RRR RR RR HR KR REE RRR 
* THE FIRST THREE DIVISIONS OF THIS PROGRAM ARE THE * 
* SAME AS IN FIGURE 21.4. * 
HERR EKER ARERR RR RRR ER RR ER RR RR RR RR RRR KR RRR He 
PROCEDURE DIVISION. 
MAIN-MODULE. 


OPEN INPUT OLD-MASTER 
TRANS -FILE 
W-MASTER, 


OUTPUT NE 
PERFORM READ-MASTER, 
PERFORM READ-~TR ' 
PERFORM COMP-RTN UNTIL 
M-ACCT-NO = HIGH-VALUES 


Db 
fal 


T-ACCT-NO = HIGH-VALUES,. 
CLOSE OLD-MASTER TRANS-FILE NEW-MASTER, 
STOP RUN, 
COMP-RTN. 
IF T-ACCT-NO = M-ACCT-NO 
PERFORM MULTIPLE-TRANS-OK 


ELSE 
IF T-ACCT-NO & M-ACCT-NO 
PERFORM NEW-ACCT 


ELSE 
PERFORM NO-UPDATE. 
HR RRR TT RRR RR EE RR HR 


* ULTIPLE-TRANS-OK IS THE ONLY * 
* CHANGE BETWEEN THIS PROCEDURE AND ¥ 
* FIGURE 21.4 * 


FR RI TE TE RR RRR RRR RRR UR ARE REE 
MUL TIPLE~TRANS~OK + 

OVE SPACES TO NEW-MASTER-REC, 

QVE M-ACCT-NO TO ACCT-NO-OUT. 
0 
E 


VE AMOUNT-DUE TO AMOUNT-DUE-QUT, 
RFORM ADD-AND-READ-TRANS UNTIL 
-ACCT-NO IS NOT = T-ACCT-NO, 
RITE NEW-MASTER-REC. 

PERFORM READ-MASTER. 
ADD-AND-READ-TRANS, 

ADD AMT-TRANS-IN-CURRENT-PER TO 
AMOUNT-~DUE-QUT. 
PERFORM READ-TRANS, 
HEIR TE EET SE RE RRR RR RT EH IR HEHEHE 
* THIS PROGRAM ASSUMES THAT ONLY ONE TRANSACTION IS * 


Fi 


% PERMITTED FOR A NEW ACCOUNT * 
HRA RR OR RR IR RR RE TRIE IER RR AR RE REE ae 
NEW-ACCT, 


MOVE SPACES TO NEW-MASTER-REC, 

MOVE AMT-TRANS-IN-CURRENT-PER TO AMOUNT-DUE-OUT, 
MOVE T-ACCT-NO TO ACCT-NO-OUT, 

WRITE NEW-MASTER-REC, 

PERFORM READ-TRANS,. 
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NO-UPDATE+ 
WRITE NEW-MASTER-REC FROM OLD-MASTER-~REC. 
PERFORM READ-MASTER, 
READ-MASTER+ 
READ OLD-MASTER AT END 
MOVE HIGH-VALUES TO M-ACCT-NO- 
READ-TRANS + 
READ TRANS-FILE AT END 
MOVE HIGH-VALUES TO T-ACCT-NO. 


V. Other Types of Processing of Sequential Files 


A. Merge Program 


When processing sequential files, it is sometimes necessary to merge them 
into one integrated master file. Suppose, for example, that a company has two 
warehouses, with each warehouse maintaining an inventory file. It may be 
necessary to merge these two warehouse inventory files into one comprehen- 
sive master inventory file before updating or providing a report. 

Similarly, suppose a department store with two branches maintains sepa- 
rate accounts receivable files. For billing purposes, the two files may be merged 
into a single accounts receivable master file. 

To further illustrate the techniques that we have been discussing, we will 
first use a sequential file processing procedure for merging files. Later on, you 
will see that there is a simpler method for merging files. 

Suppose the two accounts receivable files to be merged are called UPSTATE 
and DOWNSTATE and that both are in sequence by account number. 


UPSTATE DOWNSTATE 
ACCT-NO Sequence ACCT-NO Sequence 


We may want to merge these two files into a single sequenced file. The key 
field for the merge operation would be ACCT-NO. 
In a merge procedure, one of the following criteria would be applied: 


1. There should be no duplicates 
If a record with an ACCT-NO appears on one file, we should not have the 
same ACCT-NO on the other: 


IF ACCT-NO OF UPSTATE-REC = ACCT-NO OF DOWNSTATE-REC 
PERFORM ERROR-RTN 
PERFORM UPSTATE-~READ 
PERFORM DOWNSTATE-~READ, 


2. There may be duplication 
If duplication is permitted, a decision must be made as to which record, 
the UPSTATE or the DOWNSTATE, is put on the merged file first. Let us 
assume the UPSTATE record is written first: 


IF ACCT-NO OF UPSTATE-REG = ACCT-NO OF DOWNSTATE-REC 
MOVE UPSTATE-REC TO NEW-REC 
WRITE NEW-REC 
MOVE DOWNSTATE-REC TO NEW-REC 
WRITE NEW-REC 
PERFORM UPSTATE-~READ 
PERFORM DOWNSTATE-~READ. 


3. There must be duplication 
There should be exactly the same ACCT-NOs on both files. In this case, 
a decision must also be made as to which record should be placed on 
the merged file first. Once again, let us assume that the UPSTATE record 
is created first: 
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TF ACCT-NO OF UPSTATE NOT EQUAL TO ACCT-NO OF DOWNSTATE 
PERFORM ERROR-RTN 
ELSE 
MOVE UPSTATE-REC TO NEW-REC 
WRITE NEW-REC 
MOVE DOWNSTATE-REC TO NEW-REC 
WRITE NEW-REC 
PERFORM UPSTATE-READ 
PERFORM DOWNSTATE-READ, 


Each of these three conditions would have similar procedures. As an illus- 
tration, the full procedure for merging two files in which we assume there are 
no duplicates is as follows: 


PROCEDURE DIVISION, 
MAIN-MODULE, 
OPEN INPUT DOWNSTATE 
UPSTATE 
OUTPUT TOTAL-FILE,. 
PERFORM DOWNSTATE-READ, 
PERFORM UPSTATE-READ, 
PERFORM MERGE-RTN UNTIL 
ACCT-NO OF UPSTATE-REC = HIGH-VALUES 
AND 
ACCT-NO OF DOWNSTATE-REC = HIGH-VALUES,. 
CLOSE DOWNSTATE UPSTATE TOTAL-FILE, 
STOP RUN, 
MERGE-~RTN« 
IF ACCT-NO OF UPSTATE-REC ¢ ACCT-NO OF DOWNSTATE-REC 
PERFORM UPSTATE-RTN 
ELSE 
IF ACCT-NO OF UPSTATE-REC } ACCT-NO OF DOWNSTATE-REC 
PERFORM DOWNSTATE-RTN 


ELSE 
PERFORM ERROR-RTN. 
UPSTATE-RTN. 
WRITE TOTAL-REC FROM UPSTATE-REC, 
PERFORM UPSTATE-READ,. 
DOWNSTATE-RTN, 
RITE TOTAL-REC FROM DOWNSTATE-REC, 
PERFORM DOWNSTATE-READ, 
ERROR-RTN, 
OVE ‘BOTH FILES HAVE RECORDS WITH SAME ACCT NO’ 
TO ERR-MSG, 
MOVE ACCT-NO OF UPSTATE-REC TO ACCT-NO OF ERR-LINE, 
RITE ERR-LINE. 
PERFORM UPSTATE-READ,. 
PERFORM DOWNSTATE-READ, 
UPSTATE-READ, 
READ UPSTATE AT END 
MOVE HIGH-VALUES TO ACCT-NO OF UPSTATE-REC. 
DOWNSTATE-READ, 
READ DOWNSTATE AT END 
MOVE HIGH-VALUES TO ACCT-NO OF DOWNSTATE-REC, 


For systems that use the 1974 or 1985 ANS versions of COBOL, it is possible 
to merge two files with a simple MERGE statement: 


Example 1: 
Matching Records 


Example 2: Matching 
Records—With a Variation 
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MERGE MERGE-FILE 
ON ASCENDING KEY ACCT-NO 
USING UPSTATE+s DOWNSTATE 
GIVING TOTAL-~FILE, 

STOP RUN, 


We will consider the MERGE statement in more detail in the next chapter, 
since its format is very similar to that of the SORT. 


B. Matching Program 


For checking purposes, it is sometimes necessary to match records from two 
or more files to ensure that (1) a match on key fields exists or that (2) a match 
on key fields does not exist. That is, for one application we may wish to have 
records on file 1 with the same key fields as on file 2; if a match does not 
exist, we print an error message. For other applications, we may want the two 
files to have unique keys with no matches. 


A company has two warehouses, each storing precisely the same inventory. The in- 
ventory file at each warehouse is in PART-NO sequence. 

A monthly report is printed indicating the total quantity on hand for each part. This 
total is the sum of the @TY-ON-HAND field for each part from both warehouses, 

If there is an erroneous PART-NO that appears in the file for warchouse 1 (WH-1) but 
not in the file for warehouse 2. (WH-2), the total for this part should not be included 
in the report. It should instead be displayed as an error. The same procedure should be 
followed if a PART~NO exists on the WH-2 file but does not exist on the WH~1 file. 

The PROCEDURE DIVISION entries for this program appear in Figure 21.5. 


(a) MASTER-FILE is a master tape of all customers who have bank accounts with 
Bank ABC. This file is in sequence by ACCT-NO. 

(b) TRANS-FILE is a transaction tape of all deposits and withdrawals made during 
the previous week. This file is also in sequence by ACCT-NO. 


We wish to code an edit program to make certain that all records on the transaction 
tape, TRANS-FILE, refer to existing customers, that is, those with an ACCT-NO in 
MASTER-FILE. Thus: 


1, Every ACCT-NO in TRANS-F ILE must have a matching ACCT-NO in MASTER~FILE. 
If there is an ACCT-NO in TRANS-FILE with no matching ACCT-NO in MASTER- 
FILE, print the record from TRANS-FILE as an error. 

2. There may be records in MASTER-FILE that have no corresponding records in 
TRANS-FILE. These would be customers who have not made any transactions— 
that is, deposits or withdrawals—during the previous week. 

3. There may be more than one record in TRANS-FILE with the same ACCT-NO. 
This is because it is possible to make several transactions—deposits or with- 
drawals—in any given week. 


The only output in this program is a listing of errors. See Figure 21.6 for the PRO- 
CEDURE DIVISION entries for this program. 


VI. Updating Sequential Disk Records in Place 


As we have noted, both tape and disk can be organized sequentially and both 

use a sequential update procedure like the one described in this chapter. 
Disks, however, can also have the added feature of being able to serve as 

both input and output during the same run. Thus, it is possible to read a disk 
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Figure 21.5 

PROCEDURE DIVISION entries 
for matching record 

program: Example 1. 


FILE MAINTENANCE 


* 
PROCEDURE DIVISION. 
MAIN-MODULE. 

OPEN INPUT WH-1i 

WH-2 

ou 

PERFOR 

PERFOR 

PERFOR 

PA 


TP 
READ-WH~1 
READ-WH-2 


RT-NO OF WH 
AND 
PART-NO OF WH 
CLOSE WH-1i 
H-2 
PRI 
UN, 


STOP R 
MATCH IT, 
IF PART- 


0 OF WH 


PERFORM REPO 


-RTNs 
-RTNs 


MATCH-IT UNTIL 


-1 REC 


-2-REC = 


T-REPORT-FILE,. 


-1-REC = 


PERFORM READ-WH~ 


PERFORM READ 


ELSE 
IF PART-~ 


DI 


SPLAY 
AREHOUSE 1 
“RECORD ‘ 


NO OF WH 
H-1- 


PERFORM READ- 


ELSE 
DISPL 
‘WARE 


PERFO 

REPORT-RTN. 

ADD OTY-ON-HAND O 

QTY-ON-HAND O 

MOVE CORR WH-1-RE 
WRITE PRINT-REC 

AFTER ADVANCT 

READ-WH-1-RTNs 

READ WH-1 AT END 

READ-WH-2-RTN. 
READ WH-2 


AT END 


AY 
HOUSE 2 


OVE HIG 


UT PRINT-REPORT-FILE, 


HIGH-VALUES 


HIGH-VALUES, 


PART-NO OF WH-2-REC 


RT-RTN 


1-RTN 


~WH-2-RTN 


-1-REC ¢ 
REC» 
RECORD -- 


PART-NO OF WH-2-REC 


H-1-RTN 


REC 
RECORD -- 
*RECORD’ 


NO MATCHING WAREHOUSE 


H-2-RTNs 


-REC» 
REC GIVING 


TOTAL, 
T-REC, 


LINES, 


H-VALUES TO PART-NO OF WH-1-REC, 


OVE HIG 


H-VALUES TO PART-NO OF WH-2-REC, 


record, make changes directly to the same record, and rewrite it or update it 
in place. With this capability of disks, we need use only two files: 


Open as Name of File 
1-0 MASTER-DISK 
INPUT TRANS-FILE 


A disk file, then, can be opened as I-O, which means records from the disk 
will be both accessed and written. 

We read each disk record; when it is to be updated, we make the changes 
directly to the MASTER-DISK record and REWRITE it. 


NO MATCHING WAREHOUSE ¢ 


1 


Figure 21.6 

PROCEDURE DIVISION entries 
for matching record 

program: Example 2. 
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* 
PROCEDURE DIVISION: 
MATN-MODULE + 
OPEN INPUT MASTER~FILE 
TRANS-FILE+ 
PERFORM READ-MASTER-RTNs 
PERFORM READ-TRANS-RTN+ 
PERFORM MATCH-CHECK UNTIL 
ACCT-NO OF MASTER-REC = HIGH-VALUES 
AND 
ACCT-NO OF TRANS-REC = HIGH VALUES, 
CLOSE MASTER-~FILE 
TRANS-FILE+ 
STOP RUN+ 
MATCH-CHECK + 
IF ACCT-NO OF MASTER-REC ¢ ACCT-NO OF TRANS-REC 
PERFORM READ-MASTER-RTN 


ELSE 
IF ACCT-NO OF MASTER-REC » ACCT-NO OF TRANS-REC 
OVE ‘NO MATCHING ACCT-NO FROM MASTER’ TO 
ERR-MESSAGE 
OVE ACCT-NO OF TRANS-REC TO ACCT-NO-OUT 
RITE PRINT-REC FROM ERR-LINE 
PERFORM READ-TRANS-RTN 
ELSE 
PERFORM READ-TRANS-RTN UNTIL 
ACCT-NO OF TRANS-REC IS NOT EQUAL TO 
ACCT-NO OR MASTER-REC 
PERFORM READ-MASTER-RTN¢ 
READ-MASTER-RTN« 
READ MASTER-FILE AT END MOVE HIGH-VALUES TO 
ACCT-NO OF MASTER-~REC. 
READ-TRANS-RTN, 
READ TRANS=FILE AT END MOVE HIGH-VALUES TO 
ACCT-NO OF TRANS-REC. 


Note the following: 


Records to be updated—use REWRITE. 

Records to be added—use WRITE. 

Records to be deleted—we may MOVE ‘I’ TO an ACTIVITY~ 
STATUS field to designate the record as inactive. When reading 
from the disk file, do not process records with an ‘I’ in the 
ACTIVITY-STATUS field, since these are not active records. 


The program in Figure 21.7 provides an alternative method for updating 
sequential files, one that uses a master disk file as I-O and then REWRITES 
records in place. 

On some systems the SELECT sentence must include the following clauses 
when a sequential disk file is used for input and output in the same program: 


ORGANIZATION IS SEQUENTIAL 
ACCESS IS SEQUENTIAL 


Some caution must be exercised when using this procedure. Since the mas- 
ter disk file is itself updated, there is no old master retained for backup pur- 
poses. When performing a sequential update using an input old master that is 
separate from an output new master, we have a backup master in case the 
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Figure 21.7 
Program to update a 
sequential disk file. 


FILE MAINTENANCE 


IDENTIFICATION DIVISION. 
PROGRAM-ID. 
AUTHOR. CHRISTOPHER HINES 


‘SEI DISK 
SELECT MASTER-FILE ASSIGN ie DISK: 
ReaNE TIAL 
ACCESS IS SeQUENTIAL. 
DATA BECTON 


NH ODONCUAUNHOSONOUAUNE 


1 

1 

1 FILE SECTI 

1 FD TRANS-F 

1 LABEL Regorps ARE STANDARD. 

1 O01 TRANS- 

1 es T=GUST=No PIC X(5) 

1 PIC 999V99. 
1 FD hasten ae 

1 pene. RECORDS ARE STANDARD. 

2 01 MASTEI 

2: oS H=CUSTCNO PIC xX(S) 

2 PIC 9(6)V99. 
23 WORKING STORAGE SECTION. 

24 O1  WORK-ARE 

25 OF PIC 9 VALUE ZERO. 
26 PROCEDURE DIVISION, 

27 MAL 

28 OPEN INPUT TRANS-FILE 

2? I-0 lela 

30 PERFORM READ-TRANS. 

31 PERFORM UPDATE-RTN UNTIL EOF IS EQUAL TO 1. 
32 CLOSE Rana r ELE 

33 ee TLE. 

34 STOP_RUN. 

33 UPDATE-RTN. 

36 PERFORM REAp=NASTER UNTIL, 

33 M-CUST-NO IS UAL. TO T-CUST-NO 

rr M-CUST-NO IS OREATER THAN T-CUST-NO 
41 H=CUSTONG 18 EQUAL TO Hr OH-VALUES. 
42 IF Wecuet {Ng IS EQUAL TO T-CUS 

43 ADD T- TO BAL~DUE 

38 euectehRiTE MASTER SREC 

46 IF HeCUS TONG | aba SREATER THAN T-CUST-NO 
47 DISPLAY NOT ON MASTER FILE’. 
48 PERFORM READCIRANSS 

49 READ-MASTER. 

so READ MASTER-FILE AT END MOVE HIGH-VALUES TO M-CUST-NO. 
Si READ-TRANS. 

52 READ TRANS-FILE AT END MOVE 1 TO EOF. 


output is lost, stolen, or unreadable because of an electronic failure. Thus, if 
disk records are updated i in place, a duplicate copy should be created right after 
the update procedure and stored in a safe place in case of a problem. 


A Note About Debugging 

When creating a tape or disk as output, you will need to examine the records 
created when debugging the program. You can do this by coding DISPLAY 
record-name just prior to writing the record. Most computer systems also have 
a job control command such as /PRINT file-name that will enable you to print 
the entire file that was created as output. 


CHAPTER SUMMARY 
In summary, update and merge programs make use of the following tech- 
niques. We have focused on standard sequential files on tape and disk where 
there are three files: an incoming master, a transaction file with change 
records, and a new output master that will incorporate all the changes. 


1. All files to be processed must be in sequence by the same key field; that is, 
ACCT-NO, SOC-SEC-NO, and so on. 
2. A record is read from each file and specified routines are performed depend- 
ing on whether or not there are matching records. 
3. A nested conditional is used to determine which of a series of specified rou- 
tines is to be performed. One of the following conditions must be met: 
(a) = or matching condition 
(Key field of record from first or master file = key field of record from 
second or transaction file.) 
Actions 
(1) If only one transaction record (at most) per master record is permit- 
ted, process both records and read from both files. 
(2) If there may be more than one transaction record per master, process 
the transaction record and read another transaction record; continue 
until the transaction no longer matches the master; then write a 
new master and read from the master file. 
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4. The end-of-job test for each file must be processed individually. By moving 


(b) “less than” condition 

Key field of record from first file is less than key field or record from 
second file.) 

Actions 
Process record from the first or master file. 

Read a record from the first file. 

(c) “greater than’ condition 

Key field of record from first file is greater than key field of record from 
second file.) 

Actions 
Process record from the second or transaction file. 
ead a record from the second file. 


HIGH-VALUES to the key field (assuming that this field is not numeric], we 
can be assured that the other file will always compare low and hence will 
continue to be processed. The job is terminated only after all files have 
been processed, HIGH-VALUES can only be moved to a key field that has 
been defined as alphanumeric. 


CHAPTER SELF-EVALUATING QUIZ 


Solutions 


The process of making a file of data current is called a(n) 

(T or F) A tape file may be processed sequentially or randomly. 

(T or F) We can update an existing tape file by simply adding records directly to 
it. 

(T or F) Files must be in sequence by key field to perform a sequential update. 


The three files necessary to update a sequential master file are _______, 
, and 


. Suppose EMPLOYEE~NO is a field in a payroll record. Write a routine to make certain 


that the payroll file is in EMPLOYEE-NO sequence. 
The COBOL reserved word HIGH=VALUES means 
Assume the following statement is executed: 


MOVE HIGH-VYALUES TO TRANS-NO OF TRANS-REC 
Suppose that the following is executed after the above: 


IF TRANS-NO OF MASTER-~REC IS LESS THAN TRANS-NO OF TRANS-REC 
PERFORM MASTER~RTN 

ELSE 
PERFORM UPDATE. 


Because TRANS-NO of TRANS~REC contains HIGH- VALUES, the IF statement causes 
the _______ routine to be executed. 


A merge program is one that 


. (T or F) Files should be in sequence by a key field for a merge program. 


Page 

update 558 
F—Tapes may only be processed sequentially. 557 
F—A new file must be created. 559 
© 560 
a transaction file; the old master file; the new master 559 
95 EMPLOYEE-NO-HOLD PIC 9¢5) VALUE ZERO, 571 


+ 
+ 
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READ PAYROLL-FILE AT END MOVE i TO EOF. 
PERFORM SEQ-CHECK UNTIL EOF = i, 
+ 


' 


SEQ-CHECK,. 
TE EMPLOYEE-NO IS LESS THAN EMPLOYEE-NO-HOLD 
PERFORM ERR-RTN 
ELSE 
MOVE EMPLOYEE-NO TO EMPLOYEE-NO-HOLD, 
READ PAYROLL-FILE AT END MOVE 1 TO EOF. 


7. the largest value for the specific computer—all bits on 566 
8. MASTER-RTN—The comparison will always result in a ‘less than’ condition. 567 
9. takes two or more files and combines them into a single file 573 
10. T 573 


PRACTICE PROGRAM 


The problem definition for this practice problem is shown in Figure 21.8. Figure 21.9 
illustrates the program. 


KEY TERMS 

HIGH-VALUES REWRITE 

Key field Transaction file 
Master file Updating 
Merge 


REVIEW QUESTIONS 


I. True-False Questions 

(T or F) Tape updating is the process of making a file current. 

(T or F) Exactly two files are required for tape updating. 

(T or F) Records on a tape can be any length. 

(T or F) Tapes may be processed randomly or sequentially. 

(T or F) The nested conditional is used in a typical tape update routine because it 

makes it possible to test three separate conditions in a single sentence. 

6. (T or F) When any input file has been completely read and processed during a tape 
update procedure, the program should be terminated. 


Gr fe G3 WS 


7. (T or F) A transaction record with no corresponding master record always means 
an error. 


8. (T or F) HIGH-YALUES is a COBOL reserved word meaning the highest value in 
the collating sequence. 


9. (T or F) It is not necessary to perform a sequence check on a transaction file. 
10. (T or F) A merge program uses routines similar to those used in tape updates. 


SEQUENTIAL FILE PROCESSING 


Figure 21.8 — systems Flowchart 
Problem definition for 
Practice Program. 


OLD-MASTER 


NEW-MASTER 


TRANSACTION-TAPE 


OLD-MASTER Record Layout 


TRANSACTION-TAPE Record Layout 


Code of 1 = Delete the master record 
Code of 2 = Add a new master record 
Code of 3 = Update the master record 


NEW-MASTER Record Layout If QTY-ON-HAND falls below zero, display a message 
indicating that PART is to be reordered 


For example: 


DISPLAY ‘REORDER, QUANTITY FELL BELOW ZERO’ 
DISPLAY ‘PART NUMBER’, PART-NO 


Sample TRANSACTION-TAPE Data 
00005001233 


00050000103 


581 


582 


Figure 21.8 
Continued 
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Sample OLD-MASTER Data 


0060554452 
0000775776 
0061020000 
6001530500 
0002045647 
0003065668 
0003510000 
0004030000 
0005099999 


Sample Displayed Output 


RE-ORDER, QUANTITY FELL BELOW ZERO 
PART NUMBER 00020 


6008556329 
6061619019 
9601410006 
9061530506 
G6020G928Q 
9003065! 58 
96035099 10 
0063606220 
9604002998 
9685099989 


II. General Questions 
1. Provide program flowcharts for the following routines: 
(a) Update. (b) Sequence-check. (c] Merge. 
2. In an update, describe three different ways that a transaction record might be 
processed if it is ‘less than” a master record. 


3. Ina merge, describe three different ways to process the routine in which one tape 
record’s key field is ‘less than’”’ another tape record’s key field. 


4. Indicate the major advantages of tape processing. 
5. Indicate the major disadvantages of tape processing. 
Define the following (Questions 6-10): 
6. “On demand” output. 9. Key field. 
7. Updating a disk in place. 10. Sequential file processing. 
8. Master file processing. 


Il. Validating Data 


Modify the Practice Program so that it includes coding to (1) test for all errors and (2) 
print a control listing of totals (records processed, errors encountered, hash total). 


Figure 21.9 
Solution to the Practice 
Program. 
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1 IDENTIFICATION DIVISION, 

2 PROGRAM~ID. SAMPLES 

3 AUTHOR. CHRISTOPHER HAMMEL, 

4 ENVIRONMENT DIVIS. 

S CONFIGURATION SECTION. 

4 SQURCE-COMPUTER, VAX~11 

tf OBJECT-COMPUTER. VAK~11 

cc) INPUT-OUTPUT SECTION, 

9 FILE-CONTROL. 

10 SELECT GLD-MASTER ION TO OLD. 
11 SELECT UBANGAGTION~ TAPE ASSIGN TO TRANS. 
12 SELECT oon MAS ASSIGN TO MASTER. 
13 DATA DIVISION. 

14 FILE SECTION, 

15 FD OLD-MASTER 

i a LABEL OR RECORDS ARE STANDARD, 

18 93 Baer ‘NO-OLD PIC X¢5) 
19 Koo totNocaLD PIC S9(5) 
20 FD PRatisagr tan TAP! 
21 OR eL | ReGURDs ARE STANDARD 
22 O1 TRat 
2g 68 Pant =NO- TRANS: PIC X(5) 
24 OS OTY-TRANS, PIC 9(5) 
29 05 CoDE— PIC 9 

26 FD NEW-MASTE! 
27 LaBeL PRECORDS ARE STANDARD, 
28 O1 NEI 
29 85 PART Na PIC 9(5) 
30 lHAND PIC S9(5) 
gL PROCEDURE | Division 

32 MA TN=MODULE, 
33 OPEN INPUT ene MASTER 

34 BNSC TIGN-TAPE 

39 aurPur NeW MAST! 


READ OLD~| END MOVE HIGH-VALUES TO PART-NO-OLD. 
BER? RANSACTION-TAPE ar END MOVE ee A UES a Be Bertie NO-TRANS, 
PERFORM UPDATE=RTN UNTIL PART-NO-OLD = HIGH-Vs 
AND PART=NO- FRAN Lal AroNCVALUES 
CLOSE Ee MASTER 


ANAC TION-TAPE 
ange MAS TET 


ONG 


TOR 
UPDATESRTN 
IF PART=NO-OLD IS EQUAL TO: PART-NO-TRANS 
PERFORM CODE-DECISION-RTN 


IF PART=NO-OLD IS GREATER THAN PART~NO-TRANS 
eg ERFORM ADD~RTN 


om IF fete “NO-OLD 1S LESS anes PART-NO-TRANS 
REFORM WRITE-OLD-REC 
CODE~ [PecasnoneRTn, 
PERFORM DELETE-RTN 


IF CODE-IN = 2 
obERFORM ERROR-RTN 


SE 
PERFORM UPDATE~THE~RECORD, 


eee TE tty 
OL.D=M AT END MOVE HIGH-VALUES TO PART~I ‘OL 
ron READ TRANGAC TION-TAPE AT END MOVE HIGH-VALUES TO PART=NO~ TRANS. 
qe cope IN 1S EQUAL TO 2 
MOVE PART jee aRaNG TO PART=NO 
MOVE @TY-TRANS TO QTY-ON-HAND. 
WRITE NeWReR 


LAY “ERROR IN CODE, SHOULD BE EQUAL TO 2 ¢ PART= NO ERANE. 
onoelESDeAeREEE TAPE AT END MOVE HIGH-VALUES TO PART-NO-TRANS. 
MOVE PART-NO-TRANS TO PART—NO. 
cere Realy, ENC HAND = QTY-ON-HAND-OLD - QTY~TRANS, 


IF QTY-ON-HAND IS LESS THAN ZERO 
DISPLAY ‘RE Tiny eR aRTEN Feb BELOW ZERO‘ 


Bi an 
READ OLD-MASTER ND MOVE HIGH-VALUES TQ PART-NO-OLD. 
EAD TRANEAGTTON-TAPE at ENB MOVE HIGH-VALCUES TO PART-NO-TRANS, 


Ri 
SRE CSR EC. 
PAR 'O-OLD TO PART-NO 
HOVE ele oNHaND~| OLD TO @TY-ON-HAND, 


Wl 
enrotteAy obs MASTER AT END MOVE HIGH-VALUES TO PART-NO-OLD. 
BiSPLay ‘ERROR IN TRANSACTION MOTE yr Sees SHOULD NOT EQUAL 2°. 
READ OLD-MASTER AT END MOVE HIGH-VALUES To PART=NO-OLD. 
READ TRANGACT ION “TAPE AT END HOVE HIGH-VALUES TO PART-NO=TRANS. 


VIGEUUGORERARRDRARAOEOU! 


GRUNO0 NOGSON ODONGURONH OS 


PROCOOOU 


Cay 
= OGOND 


OVNI 


DONGCESON=OVONOGRON: 


aonnegnan: 


DEBUGGING EXERCISES 


Consider the following procedure in which there can be multiple transaction records 
per master file. This procedure is somewhat different from the one coded in the chapter, 
but that does not necessarily make it wrong. 


MAIN-MODULE, 
OPEN INPUT TRANS-~FILE 
MASTER-FILE 

OUTPUT MASTER-QUT > 

PRINT-FILE, 
READ TRANS-FILE AT END MOVE 1 TO EOF1, 
READ MASTER-FILE AT END MOVE i TO EOF2, 
PERFORM CALC-RTN UNTIL EOF = 1 AND EOFZ = 1, 
CLOSE TRANS-FILE MASTER-FILE MASTER-QUT PRINT-FILE; 
STOP RUN, 
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CALC-RTN. 
IF ACCT-TRANS = ACCT-MASTER 
PERFORM RTNi- 
IF ACCT-TRANS « ACCT-MASTER 
PERFORM RTNZs 
IF ACCT TRANS * ACCT-MASTER 
PERFORM RTN3+ 
RTNis 
ADD TRANS-AMT TO MASTER-AMT+ 
READ TRANS-FILE AT END MOVE 1 TO EOFI. 
RTNZ. 
MOVE TRANS-NO TO TRANS-ERR+ 
WRITE PRINT-REC FROM ERR-REC. 
READ TRANS-FILE AT END MOVE 1 TO EOFI1. 
RTNS, 
WRITE MASTER-REC OUT FROM MASTER-REC-IN, 
READ MASTER-FILE AT END MOVE 1 TO EOF2, 


1. Will this sequence of coding steps produce the correct results for a multiple trans- 
action update procedure? Explain your answer. 

2. How does the basic logic in this problem differ from the logic used for multiple 
transaction updates in the chapter? 

3. This program does not use HIGH-VALUES. Will that cause a logic error? Explain your 
answer. 

4. Could RTN1 be eliminated entirely by coding CALC-RTN as follows: 


CALC-RTN+ 
IF ACCT-TRANS = ACCT-MASTER 
ADD TRANS-AMT TO MASTER-AMT 
READ TRANS-FILE AT END 
MOWE 1 TO EOF1, 


|| PROGRAMMING ASSIGNMENTS 


1. Write a program to update a sales file using the problem definition in Figure 21.10. 


Notes 

(a) SALES-MASTER and UPDATED-SALES-MASTER are sequential disk files. 

(b) For a transaction record that has a corresponding master record (match on salesperson 
number), add the transaction figures for sales and commission to the corresponding year- 
to-date figures and the current period figures. 

(c) For a transaction record that has no corresponding master record, print the transaction 
record. Do not put the transaction record on the master file. 

(d) Both files are in salesperson number sequence. Only one transaction per master may exist. 


2. Write a program to update a payroll file using the problem definition in Figure 21.11. 


Notes 

(a) Both files are in sequence by employee number. 

(b] For master tape records with no corresponding transaction records (no match on employee 
number), create an output record from the input tape. 

(c) For transaction records with no corresponding tape records, create an output record from 
the input disk. 

(d) For a master tape record with corresponding transaction record, take the annual salary 
from the disk record and all other data from the tape record. 

(e) Print all updated records for control purposes. 


CONTROL-LISTING Printer Spacing Chart 


SEQUENTIAL FILE PROCESSING 585 


Systems Flowchart 


SALES-TRAN 
80-position records 
standard labels 

20 records/block 


UPDATED-SALES-MASTER 
80-position records 
standard labels 

20 records/block 


__ 


CONTROL-LISTING 


SALES-MASTER 
80-position records 
standard labels 

20 records/block 


Record Layout for SALES-MASTER and UPDATED-SALES-MASTER 


56 37 38 43.44 49 50 5556 6162 67 68 7071 80 


SALES-TRAN Record Layout 
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Figure 21.10 


Problem definition for Pro- 
gramming Assignment 1. 3. Write a program to merge a transaction file and a master file. The problem definition 


is shown in Figure 21.12. 


Notes 
(a) Merge the two files—both are in sequence by account number. 
(b) The new file should contain a master followed by one or more transaction records with 


the same account number. 
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Figure 21.11 Systems Flowchart 
Problem definition for Pro- 
gramming Assignment 2. 


UPDATED-PAYROLL-MASTER 
80-position records 
standard labels 
20 records/block 


PAYROLL-MASTER 
80-position records 
standard labels 

20 records/block 


CONTROL-LISTING 


PAYROLL-TRANS 
30-position records 
standard labels 

20 records/block 


Record Layout for PAYROLL-MASTER and UPDATED-PAYROLL-MASTER 


3536 8697071 


56 29 30 


e 


PAYROLL-TRANS Record Layout 


a 56 29 30 35 36 7071 


CONTROL-LISTING Printer Spacing Chart 


aane 
| XX 
LTT 


There may be master records for which there are no corresponding transaction records— 


simply put the master records on the new file. 
d) If there are transaction records with no corresponding master records, do not put them on 


the new file—simply display them. 
e) Print all merged records for control purposes. 


4. There are two input tape files, one called MASTER-DEPOSITORS-FILE and the other 
called WEEKLY-TRANSACTION-FILE, each in sequence by ACCT-NO and both with 


iS) 


the same format: 


Figure 21.12 
Problem definition for Pro- 
gramming Assignment 3. 
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Systems Flowchart 


MERGED-CUSTOMER-MASTER 
80-position records 

standard labels 

20 records/block 


CUSTOMER-MASTER 
80-position records 
standard labels 

20 records/block 


race 


CUSTOMER-TRANS 
80-position records 
standard labels 

20 records/block 


CONTROL-LISTING 


Record Layout for CUSTOMER-MASTER and MERGED-CUSTOMER-MASTER 


CUSTOMER-TRANS Record Layout 


1 5 6 11 12 80 
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3]4{6]6)7 


elolsfolajafafa— 


HEE 


FD MASTER-DEPOSITORS~FILE 


‘ 
’ 


Ol MASTER-REC, 
0S ACCT-NOL PIC 9(5), 
OS OTHER-DATAL PIC X(70), 
FD WEEKLY -TRANSACTION-FILE 


‘ 
‘ 


OL TRANS-REC, 
OS ACCT-NOz PIC 9(5), 
OS OTHER-DATAZ PIC X(70), 
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Each record from the WEEKLY-TRANSACTION-FILE must match a record on the 
MASTER-DEPOSITORS-FILE, although there may be MASTER-REC records with no 
corresponding TRANS -REC records, Moreover, there may be more than one TRANS - 
REC record for a given MASTER-REC record. 

The output is a merged file that has records from both files in sequence by 
account number. For an account number with matching records from both files, 
the MASTER-REC record is followed by all TRANS-REC records with the same num- 


ber. 
Example 
MASTER-REC TRANS-REC 
00120 00120 
oo1z4 00120 
00125 00125 
00127 00126 
MASTER-QUT-REC 
oo1z0 M 
00120 T 
00120 T 
oo124 M 
oo1z5 M 
00125 T 
00127 M [00126 T is to be printed as an error] 
M = MASTER-REC record 
T = TRANS-REC record 
Notes 


(a) All files have a blocking factor of 20 and standard labels. 
(b) Print all merged records for control purposes. 


5. Redo problem 1 assuming that there may be numerous transactions per master. 


6. Redo problem 2 assuming that the PAYROLL-TRANS file has the following record 
description: 


1-5 EMPLOYEE-NO 

6-25 EMPLOYEE-NAME 
26-27 TERRITORY-NO 
28-29 OFFICE-NO 
30-35 ANNUAL-SALARY 

36 CODE-x 
1 = Delete master 

Add a new record 
Change Name 
Change Territory 
Change Office 
= Change Salary 


HH 


ul 


Il 


ll 


2 
3 
4 
5 
6 


PAYROLL-MASTER has the same format for positions 1-35. Update the master as- 
suming that numerous changes per master are possible, 
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The SORT Feature 
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A. Format of the SORT Statement 

B. ASCENDING or DESCENDING KEY 

1, Collating Sequence 
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OBJECTIVES 


To familiarize you with: 
1. How files may be sorted within a COBOL program. 
2. How to process a file during a SORT procedure before it is actually sorted. 


3. How to process a file during a SORT procedure after it is sorted but before 
it is created as output. 


4, How to use the MERGE verb for merging files (with 1974 and 1985 compilers). 


RE |. introduction 


Format 


A. Format of the SORT Statement 


When processing tape and disk files, it is sometimes necessary to access them 
in a sequence other than the one in which they were created. A payroll file, 
for example, may be created in Social Security number sequence. Updating 
would generally be performed using the file in the established Social Security 
number sequence. The creation of checks from that payroll file may require, 
however, a sort by department number for ease of distribution. If the company 
has several office locations, it might even be desirable to sort the checks by 
department within each office. 

There are prepackaged programs available at computer installations that 
can sort files. The user need only supply some specifications about the type 
of sort desired. Thus, a separate program that is maintained by most computer 
installations may be accessed as needed. COBOL programmers, however, can 
include as part of their program a routine that sorts a file in one of the fol- 
lowing ways: (1) just prior to, (2) in conjunction with, or (3) after the processing 
required. SORT is a COBOL verb that may be used to sequence any file. 

A simplified format for the SORT statement in COBOL is as follows: 


B. ASCENDING or DESCENDING KEY 
It is possible to sort a file in two ways. 


SORT OPTIONS 


1. ASCENDING: From lowest to highest. 
2. DESCENDING: From highest to lowest. 


The programmer must specify whether the key field is to be an ASCENDING 
KEY or a DESCENDING KEY, depending on which sequence is required. 

The SORT verb may be used to sort records on either numeric or nonnumeric 
key fields. Sorting a file into ascending CUST-NO sequence, for example, where 
cUST-NO is defined with a PIC 9(3) would result in the following order: 001, 
002, 003, and so on. The s0RT can also be performed on non-consecutive key 
fields. That is, records 009, 006, 152 would be sorted into the proper sequence 
of 006, 009, 152 even though they are not consecutive. If several records had 
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the same CUST-NO, the sort would be performed properly, that is, all cust - 
NO O1 records would precede records with CUST-NO 02, and so on, if ascending 
sequence were specified. 

Sorting a file into descending DEPT-NO sequence, for example, where DEPT- 
NO is defined with a P1c¢ 99, would result in the following order: a record with 
DEPT-NO 99 would be followed by a record with DEPT-NO 98, and so on. 

Ascending sequence used with an alphabetic field will cause sorting into 
standard alphabetic order. If a file is sorted into ascending sequence by Last - 
NAME, BROWN’s record will appear before EVANS’ record, and so on. Specifying 
descending sequence will cause data to be sorted in reverse order. 


1. Collating Sequence 
As indicated in Chapter 10, the two major codes used for representing data in 
a computer are EBCDIC, an abbreviation for Extended Binary Coded Decimal 
Interchange Code, and ASCII, an abbreviation for American Standard Code for 
Information Interchange. 

The sequencing of characters from lowest to highest is referred to as the 
collating sequence. You will recall that the EBCDIC and ASCII collating se- 


quences for the COBOL character set are as follows: 
EBCDIC ASCII 
Lowest b b 
Special (Special 
characters characters) 
Z 0 
1 
Lower case 
letters a—z i 
i 9 
Special 
; characters) 
Upper case : 
letters A-Z) 
0 { 
1 Upper case 
2 letters A—Z) 
J ; Lower case 
Highest 9 letters a—z) 


We have not included the collating sequence for the individual special char- 
acters because one rarely sorts on special characters. See Appendix A for the 
collating sequence of all characters. 

Basic numeric sorting and basic alphabetic sorting are performed similarly 
in EBCDIC and ASCII. These codes are, however, somewhat different, when 
alphanumeric fields containing both letters and digits or special characters are 
sorted. Letters are considered “less than” numbers in EBCDIC, and letters are 
considered “greater than” numbers in ASCII. Moreover, lowercase letters are 
considered “less than” uppercase in EBCDIC and “greater than’’ uppercase 
letters in ASCII. 

In summary, keep in mind that an ASCII computer could produce different 
sorting than an EBCDIC computer if an alphanumeric field is being sorted. 
“Box 891” will appear before “111 Main St.” in an address field on EBCDIC 
computers, for example, but will appear after it on ASCII computers. Thus, 
alphanumeric sorts may produce different results on EBCDIC as compared to 
ASCII computers. 
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2. Sequencing Records with More Than One SORT Key 
The SORT verb may be used to sequence records with more than one key field. 
Suppose that we wish to sort a payroll file so that it is in ascending alphabetic 
sequence by name, within each level, for each office. That is: 

Office number is the major sort field. 

Level number is the intermediate sort field. 

Name is the minor sort field. 


Thus for Office 1, we want the following sequence: 


OFFICE-NO LEVEL-NO NAME 
1 1 ADAMS, J. R. 
1 1 BROCK, P. T. 
1 1 LEE, S. 
1 2, ARTHUR, Q. C. 
1 2, SHAH, J. 
1 3 


RAMIREZ, A. P. 


For Office Number 1, Level 1, all entries are in alphabetic sequence. These 
are followed by Office Number 1, Level 2 entries, in alphabetic order, etc. 
We may use a single SORT procedure to perform this sequencing. The first 
KEY field indicated is the major field to be sorted, the next KEY fields represent 
intermediate sort fields, followed by minor sort fields. 
The following is a SORT statement that sorts records into ascending alpha- 
betic NAME sequence within LEVEL -NO within OFFICE-NO: 


SORT SORT-FILE 
ON ASCENDING KEY OFFICE-NO+ 
ON ASCENDING KEY LEVEL-NO» 
ON ASCENDING KEY NAME» 
USING PAYROLL-FILE 
GIVING SORTED-PAYROLL-FILE. 


Note that all key fields are independent. Hence, one key can be sorted in 
ASCENDING sequence and others in DESCENDING sequence. Note too that the 
word ON is optional, as is the word KEY. These words were not underlined in 
the format specification, which indicates that their use is optional. 


C. Coding a Simple SORT Procedure 
Three major files are used in a sort: 


FILes USED IN A SORT 
1. Input file: File of unsorted input records 


2. Work or sort file: File used to store records temporarily during the 
sorting process 


3. Output file: File of sorted output records 


All these files would be defined in the ENVIRONMENT DIVISION using standard 
ASSIGN clauses, which are system dependent. Note, however, that a sort file 
is typically assigned to a special work device, indicated below as SYSWORK. 

SELECT UNSORTED-MASTER-FILE ASSIGN TO UT-590-S-SYS009. 

SELECT SORT-FILE ASSIGN TO SYSWORK. 

SELECT SORTED-MASTER-FILE ASSIGN TO DA-8433-S-SYS008. 
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Your system may use SYSWORK or some other special name for the ASSIGN 
clause for the work or sort file. 

FDs are used in the DATA DIVISION to define and describe the input and 
output files in the usual way. The sort or work file is described with an Sp 
entry (which is for sort file description). The only difference between 8D and 
FD entries is that an $D must not have a LABEL RECORDS clause, whereas such 
a clause is required in an FD entry. Note, too, that the field(s) specified as the 
KEY field(s) for sorting purposes must be defined as part of the sort record 
format. That is, the key fields referenced in the SORT statement must be 
defined within the sp. In the following, the field to be sorted is DEPT-No: 


DATA DIVISION, 
FILE SECTION, 
FD UNSORTED-MSTR 

LABEL RECORDS ARE STANDARD, 
Ol UNSORTED-REC PIC K(100), 
LCL LoL ce Le ee re ee eee eee re 
5D SORT-FILE. 
Ol SORT-REC, 

OS DEPT-NO PIC O¢8)4 

0S FILLER PIC X(95), 
LCL L LCL eS Le eee es cee Se ee eee 
FD SORTED-MSTR 
LABEL RECORDS ARE STANDARD, 
OL SORTED-REC PIC X(100), 


The SORT procedure would then be coded as follows: 

i [z 16 20 2 2 2 % 40 mn 7B Be 8e wo a we A 
| | 7 SORM-IFIT TTT) a a 
| | | : HL 
Hitt TTT TON! JAISIENIDITING IMEI! [Delp tress, | | [| Tf 
| | SIUINIG_UINSIORITIE|D|— SREB SANE | { 1h) 
anak GISORTEDI-MAISTER-IFTILIE| [| HA o 
S110 RU za aga ‘A ror [ | 

The only field descriptions required in the s0RT record format are the ones 


used for sorting purposes, in this instance, only the DEPT-No must be defined 
as part of the SD, since that is the only key field to be used for sorting. 

In summary, the SORTED-MSTR would contain records with the same for- 
mat as UNSORTED-MSTR, but the records would be placed on the file in DEPT- 
NO sequence. 


the 081 With the using and GIVING Options 


The SORT procedure with the USING and GIYING clauses is the simplest for- 
mat of the SORT. It automatically accomplishes the following: 


SORT «++ USING .., GIVING 
Opens the input and output files. 
Reads from the input file. 
Releases (or writes) records from the input file to the sort file, 
Sorts the sort file according to the key(s) specified. 
(The key field(s) must be coded as part of the sort record.) 
5. Returns (or reads) the sort file records, and writes them onto the 
output file. 
6. Closes input and output files after records have been processed. 


eo Oe 
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Figure 22.1 provides a schematic of this procedure. 

It is possible to sort any type of input file and place the sorted file on any 
type of output device, even a printer. Typically, the sort file is assigned to a 
tape or disk work device that has a special ASSIGN specification. Thus, to sort 
a tape file and place the sorted result on a disk, we could have: 


SELECT UNSORTED-MSTR ASSIGN TO UT-590-S-SYS009, 
SELECT SORT-FILE ASSIGN TO SYSHORKs 
SELECT SORTED-MSTR ASSIGN TO DA-8433-S-SYS008, 


The above DATA DIVISION entries would then apply. 

A SORT +++ USING «++ GIVING procedure can also precede an update or 
control break procedure within the same program. That is, where a file must 
be in a specific sequence, we can sort it first and then proceed with the required 
processing. The file defined in the GIVING clause would be opened as input, 
after it has been sorted: 


7s % 40 a a 2 md 8 == io 72 
PRO TOT HTH TO 
| I Cee 4 gal ZeRael 
i MUA LERETAATOEBAUOCHRENGEEESEBEUEEHEE 
f i | TTT } f [Tt tH 
HH i . y ‘i; ry 
H iS tT | - = 
|_| a | 
ai 0 H HHH | H 
: TT | ai" +++ — 
t eet a UREEBROUED Seer 


e 


_ If we want to sort a file so that it is in territory number sequence, with Territory 
10 appearing first, followed by Territory 9, and so on, we call this a (DESCEND- 
ING/ASCENDING) sort. 

2. Suppose we want IN-FILE records in alphabetic order by NAME within DISTRICT 

within TERRITORY, all in ascending sequence. The output file is called OUT-FILE. 

Complete the following SORT statement: 


Self-Evaluating Quiz 


SORT FILE-X 


3. How many files are required in a SORT routine? Describe these files. 
The work or sort file is defined as an —____ in the DATA DIVISION. 
5. Suppose we have the following DATA DIVIST ON entries: 


= 


8D NET-FILE 


+ 
4 


FD NET-FILE-IN 


4 


FD NET-FILE-OUT 


We want NET-FILE-OUT sorted into ascending department number sequence. Code 
the PROCEDURE DIVISION entry. 


6. In the above, DEPT-NO must be a field within the (SD/FD) file. 
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| Figure 22.1 UNSORTED-MSTR 

Schematic of SORT (any device) 
procedure with the USING PUA aR 
and GIVING clauses. 


aati +++] Disk work file 


SORT-FILE 


(sorted) Disk work file 


SORTED-MSTR 
(any device) 


Solutions 1. DESCENDING—from high to low 
2. ON ASCENDING KEY TERRITORY 
ON ASCENDING KEY DISTRICT 
ON ASCENDING KEY NAME 
USING IN-FILE 
GIVING OUT~FILE, 
3. three; input—unsorted; work or sort file; output—sorted 
8D 
5. SORT NET-FILE 
ASCENDING KEY DEPT~NO 
USING NET-FILE-IN 
GIVING NET-FILE-OUT, 


& 


6. SD 
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Cea ry, Processing Data Before and/or After Sorting 


Consider the following SORT statement: 


SORT SORT-FILE 
ON ASCENDING KEY TERR 
USING IN-FILE 
GIVING SORTED-MSTR, 
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This statement performs the following operations: 


1, Opens IN-FILE and SORTED-MSTR. 

Moves IN-FILE records to SORT-FILE records. 

Sorts SORT-FILE into ascending sequence by TERR. 

Moves the sorted SORT-FILE to the output file called SORTED-MSTR. 

. Closes IN-FILE and SORTED-MSTR after all records have been processed. 
With the clauses “USING IN-FILE” and “GIVING SORTED-MSTR,” a SORT 

procedure results in the sequencing of records as described above. 


The SORT statement can, however, be used to achieve any of the following 
four results. 


aR eS 


1. A sorted output file can be produced from an unsorted input file, as in 
the previous illustrations. 

2. An unsorted input file can be processed before it is actually sorted, and 
then used to produce a sorted output file. Processing of records before 
they are sorted is sometimes done to prevent records that have not passed 
a variety of edit procedures from being included in the sorted file. 

3. An unsorted file can be sorted and then used for additional processing 
within the same program before it is actually placed on the output file. 

4. We can combine results 2 and 3 by: 

(a) Processing an unsorted file before it is sorted, and 
(b) Using the sorted records for additional processing in the same pro- 
gram before they are placed on the output file. 


A. INPUT PROCEDURE 


In this section, we will focus on the use of the SORT statement to perform a 
procedure prior to sorting the incoming records. This is accomplished with an 
INPUT PROCEDURE clause in place of the USING clause. 

Thus, we can expand our format for the SORT statement so that it includes 
the INPUT PROCEDURE option: 


Using the INPUT PROCEDURE clause, we can process data from the incoming 
file prior to sorting. We may wish, for example, to validate data in the records 
prior to sorting, eliminate records with blank fields prior to sorting, count 
records before we sort, and so on. 

We specify a section-name with an INPUT PROCEDURE. A section consists 
of a series of paragraphs in the PROCEDURE DIVISION that is treated as a single 
entity or unit. Rules for forming section-names are the same as rules for form- 
ing paragraph-names. The end of a section is recognized when another section- 
name is encountered, or when the end of the program is reached. 
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Example 1 Consider the first three D1V1S10Ns of a COBOL program. 
7 [8 [ie 16 20 24 28 32 26 40 “4 48 52 56 60 a4 Ca 
IDENTITFTICIATIION. DITVIISITION. | 
aNd SUD. SIORM-ILT. | 
ENV RONMENT INIISTON. 
TNPUT OUTPUT SECTION 
ETIUE-CONTIROL. 
SELECT) ITIN-IFTIUE AISISITIGIN TOL DILISIKiL!. 1 
L SLE SORTHIFIILE! IA'SISITG| Mass 
ri iS LEICT|_SORTEID-MSTIR_ASSTGN TiO DISkKe| a 
_ DATA. DINI'SITION.. 
ELLE SECTION 
ED Tana | 
a IABEIL! REICORDIS| ARE! |STIANDARD.. 
O4| | IIN-IRIEC.. | 
iS \ 5 FIL PI DL Needed for 
i any pL LLL Is INPUT PROCEDURE 
| igs poe CHAPIN CAaY.| ssi 
Sp | SORT-FIL Tt if 
Lo H = REC. = Needed for 
(05 ITER BIC a8) pera 
He RTEDOM Ri BIICL XIC95)). 
| leat D aad bd Lea 
A le ABE RECORDS ARE aero [| 
4. ISORTED-MSTR-REC, PLC XC) | || | HTT 
The INPUT PROCEDURE section-name requires the coding of a section-name asso- 
ciated with the SORT command: 
A ‘sok 16 aT-FELE 28 32 36. i PL «a ae 16 | 6 ff 
| LEON ASICIENDITING! KIEN! TERR 4 al 
anne NPUT| PROCEDURE! | [TEST=TT] 
| | BN SORTIED-MSITRI.[ | 
| " je 
Te -TTMSECTIONI. 
RA=H!. +H: 
Hite 
| ‘ i | 


A section-name must conform to the rules for forming paragraph-names. 
The COBOL reserved word SECTION follows the actual section-name. In the 
above, TEST-IT SECTION will be executed first, before the input file is sorted. 
The input file will then be sorted, producing a sorted file called SORTED-MSTR. 
After the sorted records have been placed on the output file, the STOP RUN is 
executed, terminating the program run. 

Suppose we wish to sort only those input records that have a non-zero 
quantity (9TY). The coding required within the section specified by the INPUT 
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PROCEDURE section-name must include the following. We will discuss each 
paragraph in detail. 


44 48 52 56 60 64 68 72| 


{3 any systems, ia 


ST SECON] 
By me ier ete “ HH 
HONE TiO_EVOE!.| COT HoH 


NUN 
| r 
i! ECC eee 
THR TAAAAAAAALRAT TT 
— {for sorting LT 


T_IEND 
a The last coded statement 
in the section must be —- 
[TI the last statement executed 
ne 155 Tt a Oa 


Let us consider each paragraph in depth. 


PARA-~1 
On most systems, each section-name must be followed by a paragraph-name. 
Thus, even though PARA-1 is not referenced in the program, it is required as 
the first paragraph-name within the TEST-1T section. 

PARA-1 is considered the main module within the TEST-1T SECTION. Since 
this is part of the INPUT PROCEDURE, to be executed prior to sorting, it must: 


1. Open the input file. 

Perform an initial read. 

Perform TEST-RTN until there is no more data. 
Close the input file. 


Co to the last statement in the SECTION to indicate that the INPUT 
PROCEDURE has been completed. (The last statement in a SECTION must 
be the last one executed.) 


Ct GS 


TEST-RTN 
For all records with a non-zero @TY, the input record is moved to the sort 
record. We do not WRITE records to be sorted, we RELEASE them for sorting 
purposes. 

Note that the RELEASE verb is followed by a record-name, just like the 
WRITE statement. Note, too, that RELEASE SORT-REC FROM IN-REC can be 
substituted for: 


MOVE IN-REC TO SORT-REC 
RELEASE SORT-REC. 


TEST-IT-EXIT 

The last statement in TEST-17T must be the last one executed. Thus, the main 
module must branch to a final paragraph within the SECTION, referred to here 
as TEST-IT-EXIT. After the last statement in the TEST-IT SECTION (the 
EXIT) has been executed, control returns to the SORT statement, where the 
records that have been RELEASED are sorted. SORTED-MSTR is then produced 
as output. A paragraph that includes only an EXIT statement enables the 
program to "fall through” the entire section, so that control returns to the 
appropriate place, which in this case is the SORT procedure. 


Figure 22.2 
Use of the INPUT PROCEDURE 
in place of the USING option. 
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The schematic in Figure 22.2 illustrates the use of the INPUT PROCEDURE 


in place of the USING option. 


IN-FILE 
(Any device) 


INPUT PROCEDURE 


1, Opens input file 

2. Processes input records 

3. Releases sort records from input 
records 

4, At end, closes input file 


| SORT-FILE 
| (Unsorted) 


| SORT-FILE 
| (Sorted) 


SORTED-MSTR 
(Any device) 


The format for the section specified by the INPUT PROCEDURE is: 
INPUT PROCEDURE 


’ 
’ 


section-name SECTION, 
Paragrarh-name, 
OPEN INPUT in-file, 
READ in-file AT END 4... 
PERFORM detail-routine 
CLOSE in-file, 
GO TO section-exit, 
detail-~routine, 


’ 
’ 


section-exits 
EXIT. 


section-name 


UNTIL es 
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Problem definition for a pro- 
gram to sort a disk file. 


Example 2 


Figure 22.3 
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Figure 22.3 illustrates the problem definition for a program that is to sort a disk file. 
Note that the sorted 01Sk2 will have a different format from the incoming DISK1. 


INPUT 


DISK 1 
SORT DISK 1 
SORT into DEPT sequence 
OUTPUT 
DISK 2 
1 23 78 12 
Note: Sorted output will have a 
different format than input 
Consider the following FILE SECTION. 
DATA DIVISION. 
FILE SECTION. 
FD DISK1 
LABEL RECORDS ARE STANDARD. 
O1 REC-1. 
O35 PART-NO PIC 9(5)5 
o5 OTY PIC 8(5)- 
05 DEPT PIC 9(2), 
SD SORT-FILE. 
O1 SORT-REC. 
05 DEPT PIC Q(2)5 
O5 PART-NO PIC Q(5)+ 
05 OTY PIC Q(5)+ 
FD DISKZ 
LABEL RECORDS ARE STANDARD. 
O1 REC-2 PIC 9(12)5 


It would be possible, although cumbersome, to (1) first sort the input and 
produce a sorted master, and (ah then code a separate module to read from the 
sorted master, moving the data in a rearranged format to a new sorted master. 
This would, however, be exceedingly inefficient because it would involve two 
separate procedures. 

‘A more efficient procedure would be to rearrange the input data prior to 
sorting, using an INPUT PROCEDURE as part of the SORT itself. Note that the 
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$D record would have the same format as the desired output. The following 
coding would be appropriate: 


SORT SORT-FILE 
ON ASCENDING KEY DEPT OF SORT-REC 
INPUT PROCEDURE REARRANGE 
GIVING DISK2, 
STOP RUN, 
REARRANGE SECTION, 
PARA-1+ 
OPEN INPUT DISKi. 
READ DISK1 AT END MOVE 1 TO EOF. 
PERFORM CALC-RTN UNTIL EQF = 1. 
CLOSE DISKi. 
GO TO REARRANGE-EXIT. 
CALC-RTN, 
OVE PART-NO OF REC-1 TO PART-NO OF SORT-REC, 
OVE QTY OF REC-1 TO OTY OF SORT-REC, 
OVE DEPT OF REC-1 TO DEPT OF SORT-REC. 
RELEASE SORT-REC, 
READ DISKL AT END MOVE 1 TO EOF, 
REARRANGE-~EXIT. 
EXIT, 


Note that the INPUT PROCEDURE is executed first, then the file is sorted, 
and, finally, the sorted records are placed on DISK2. DISK2 will be in DEPT 
sequence with records in the required format. 

Note, too, that because of the requirement that the last statement in a 
section be the last statement executed, the preceding illustration requires a 
GO TO, which we usually attempt to avoid in structured programs. 

We may follow the REARRANGE SECTION only with another section, since 
each section is executed as a total entity. Thus, if we wished to process DISK2 
after sorting, all standard paragraphs relevant to that processing must either 
precede the section specified or be referenced by a new section-name such as 
SORTED-RECORDS SECTION. 


INPUT PROCEDURE SUMMARY 
1. Begin with the section-name defined in the INPUT PROCEDURE 
clause of the SORT statement. 
The section-name is typically followed by a paragraph-name. 
OPEN the input file. 
READ input records and process them. 


When input records have been processed, MOVE them to the sort 
record area. 


6. RELEASE sort records, which makes them available for sorting. 
7. After all input records have been processed and released for sorting, 
CLOSE the input file. 
8. GO TO the last paragraph in the section, which is coded with an 
XIT statement. Control is then returned to the $0RT command. 


Or: Oo) (k 


B. OUTPUT PROCEDURE 


After records have been sorted, they are placed in the sort file in the sequence 
required. If the GIVING option is used, then the sorted records are simply 
written onto the output file after they are sorted. 

We may, however, wish to process the sorted records prior to, or perhaps 
even instead of, placing them in the output file. We would then use an OUTPUT 
PROCEDURE in place of the GIVING option. 
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Full Format 
for SORT Statement 


Example 
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As indicated, an INPUT PROCEDURE, if used, is processed prior to sorting. 
An OUTPUT PROCEDURE processes all sorted records in the sort file and han- 
dles the transfer of these records to the output file. This OUTPUT PROCEDURE 
must include the following: 


oo 


OUTPUT PROCEDURE SUMMARY 


. Begin with the section-name defined in the OUTPUT PROCEDURE 


clause of the SORT statement. 
The section-name is typically followed by a paragraph-name. 
OPEN the output file. 


_ Use a RETURN to read records from the sort or work file as follows: 


RETURN sort-filename AT END imperative statement. 
Notice that the RETURN has the same format as a READ. 


. Perform a routine that processes records on the sort file that have 


already been sorted, writes them onto the output file, and RETURNS 
or reads additional records from the sort file. 
_ After all input records have been processed and written onto the 
output file, CLOSE the output file. 
Go To the last paragraph in the SECTION, which is coded with an 
EXIT statement. Control is then returned to the statement follow- 
ing the SORT command. 


— 


‘After a file has been sorted but before it has been placed on the output file, MOVE .02 
TO DISCOUNT for all records with AMT-OF - PURCHASE in excess of $500; otherwise there 
is no DISCOUNT. The following indicates the correct coding: 


IDENTIFICATION DIVISION, 
PROGRAM-ID. SORT2+ 


ENVIRONMENT DIVISION: 

INPUT-OUTPUT SECTION, 

FILE-CONTROL,. 
SELECT INPUT-FILE ASSIGN TO DA-S-SYSO0S, 
SELECT SORT-FILE ASSIGN TO WORK1. 
SELECT OUTPUT-FILE ASSIGN TO DA-S-SYS00G. 


DATA DIVISION. 
FILE SECTION. 
FO INPUT-FILE 
LABEL RECORDS ARE STANDARD, 
OL  INPUT-REC PIC X(150). 
SD SORT-FILE. 
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O1 SORT-REC, 


OS TRANS-NO PIC O(5)¢ 
OS AMT-OF-PURCHASE PIC 9(5)y¥g9, 
05 DISCOUNT PIC vag, 
OS FILLER PIC X(136), 


FD QUTPUT-FILE 
LABEL RECORDS ARE STANDARD, 
O1  OUT-REC PIC X(150), 
* 
PROCEDURE DIVISION, 
MAIN-MODULE, 
SORT SORT-FILE 
ASCENDING KEY TRANS-NO 
USING INPUT-FILE 
QUTPUT PROCEDURE CALC-DISCOUNT, 
STOP RUN, 
CALC-DISCOUNT SECTION, 
MATN-PARAGRAPH, 
OPEN OUTPUT OUTPUT-FILE, 
RETURN SORT-FILE AT END MOVE 1 TO EOF, 
PERFORM DISC-RTN UNTIL EOF = 1, 
CLOSE OUTPUT-FILE, 
GO TO CALC-DISCOUNT-EXIT, 
DISC-RTN, 
IF AMT-OF-PURCHASE > 500 
MOVE .02 TO DISCOUNT 
ELSE 
MOVE .00 TO DISCOUNT, 
WRITE QUT-REC FROM SORT-REC. 
RETURN SORT-FILE AT END MOVE 1 TO EOF, 
CALC-DISCOUNT-~EXIT, 
EXIT. 


C. When to Use INPUT and/or OUTPUT PROCEDURES 


Sometimes it is more efficient to process data before it is sorted, while other 
times it is more efficient to process data after it is sorted. 

For instance, suppose we wish to sort a large file into DEPT-NO sequence. 
Suppose, further, we wish to eliminate from our file all records with a blank 
PRICE or blank 9TY field. We could eliminate the designated records prior to 
sorting with an INPUT PROCEDURE, or we could eliminate the records after 
sorting with an QUTPUT PROCEDURE. 

If only a few records are typically eliminated during a run, then it really 
would not matter much whether we sort first and then eliminate those we do 
not wish to put on the output file. If, however, there are many records that 
need to be eliminated, it is more efficient to remove them before sorting. In 
this way, we do not waste computer time sorting numerous records that will 
then be eliminated from the sorted file. Thus, in the case where a large number 
of records will be removed, an INPUT PROCEDURE should be used. 

On the other hand, suppose we wish to eliminate records with a blank 
DEPT~-NO, the key field. In this instance, it is far more efficient to eliminate 
records with a blank DEPT-NO after sorting, because we know that after sort- 
ing, all such records with a blank key field will be at the beginning of the file. 
(Recall that a blank is the lowest character in a collating sequence and thus 
will appear first in a sorted file.) 

Suppose, for example, we have a file with 100,000 records that is sorted 
into ascending sequence using DEPT-NO as a key field. To eliminate records 
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with a blank DEPT-NO before sorting requires 100,000 executions of a routine 
that includes the following: 


FD INFILE 
LABEL RECORDS ARE STANDARD, 
0 IN-REC+ 
05 DEPT-NO-IN PIC 9(5). 
05 FILLER PIC X(95), 
8D SORT-FILE- 
Q SORT-REC, 
05 DEPT-NO PIC 9(5), 
o5 FILLER PIC X(95)- 


FD SORTED-MSTR 
LABEL RECORDS ARE STANDARD. 
ie) SORTED-MASTER-REC PIC X(100),. 


+ 
’ 


* 


PROCEDURE DIVISION. 
MAIN-MODULE» 
SORT SORT-FILE 
ON ASCENDING KEY DEPT-NO 
INPUT PROCEDURE TEST-DEPT 
GIVING SORTED-MSTR. 
STOP RUN. 
TEST-DEPT SECTION, 


’ 


IF DEPT-NO-IN IS NOT EQUAL TO SPACES 
‘ RELEASE SORT-REC FROM IN-REC. 
+ 


We could, however, eliminate records with blank DEPT-NOs far more effi- 
ciently after sorting, since all blank DEPT-NOs will be first in the sorted file. 
In this way, the comparison for blank DEPT-NOs would be executed only until 
a record with a non-blank DEPT-NO has been found. At that point, all subse- 
quent records will have non-blank DEPT-NOs because the file has been sorted 
into ascending sequence. Once a non-blank DEFT-NO is reached, there is no 
need for further comparisons. The first three DIV1510Ns are the same as above. 

The coding for this DUTPUT PROCEDURE is a bit more cumbersome, but it 
will result in a more efficient program. 


POOCCCPETTTOTI TTT T OTT ea 
* OUTPUT PROCEDURE ELIMINATES * 
* RECORDS WITH BLANK DEPT-NO * 
POOCCCTTETTECTOOOOOISTOCO OLS ae 


PROCEDURE DIVISION. 
MAIN-MODULE+ 
SORT SORT-FILE 
ON ASCENDING KEY DEPT-NO 
USING INFILE 
OUTPUT PROCEDURE ELIM-BLANKS. 
STOP RUN+ 
ELIM-BLANKS SECTION. 
PARA-1. 
OPEN OUTPUT SORTED-MSTR. 
RETURN SORT-FILE AT END MOVE 1 TO EOF. 
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PERFORM ELIM-BLANK-RTN UNTIL 
DEPT-NO NOT = SPACES 
OR EOF = 1, 
PERFORM WRITE-RTN UNTIL EOF = i, 
CLOSE SORTED-MSTR, 
GO TO ELIM-BLANKS-EXIT, 
ELIM-BLANK-RTN¢ 
RETURN SORT-FILE AT END MOVE 1 TO EOF, 
WRITE-RTNy 
WRITE SORTED-MASTER-~REC FROM SORT-REC, 
RETURN SORT-FILE AT END MOVE 1 TO EOF, 
ELIM-BLANKS-EXIT, 
EXIT, 


Note that, for some systems, any time a section is used in the PROCEDURE 
DIVISION, the entire PROCEDURE DIVISION must be subdivided into sections, 
with each section-name followed by a paragraph-name. 


40 44 4a 52 56 60 64 68. 72 
—- mor TT 


STH 


| Each unit is a 
|. section. 


7-7-7 Each section-name - 
must be directly 


| followed by a 
| paragraph-name, | [ Heo 
aa + |. % 
[| | 
aii 


Summary Figure 22.4 provides a schematic of the SORT feature and its options. 
The Practice Program at the end of this chapter illustrates a SORT with both 
an INPUT PROCEDURE and an OUTPUT PROCEDURE. 


Options of the ee ad SORT Options: A BRIEF OVERVIEW 
Format Result 
1. USING File is sorted; no special handling. 
GIVING 
2. INPUT PROCEDURE Programmer codes a routine to process the 
GIVING unsorted input records before they are 
sorted, 
3. USING Programmer codes a routine to process the 
OUTPUT PROCEDURE sorted records before writing them on the 
output file. 
4, INPUT PROCEDURE Programmer codes two routines to process 
OUTPUT PROCEDURE the data both before and after it is sorted. 
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eee IV. The MERGE Statement: A Variation of the SORT 


In Chapter 21, we coded a sequential file processing routine that merges two 
files. For users of the 1974 or the 1985 standard, there is a MERGE statement 
that will accomplish the same thing. The MERGE statement has a format very 
similar to the SORT: 


Format 


File-name-1 is a work file specified as an 8D. The key field specified as data- 
name-1, and any subsequent key fields, are defined within the $b. The first 
key field specified in the ASCENDING or DESCENDING KEY clause of the SORT 
is the major one, followed by intermediate and minor key fields. Rules for 
ASCENDING/DESCENDING KEY, USING, GIVING, and QUTPUT PROCEDURE are 
the same as for the SORT. 

With the USING clause, we specify the files to be merged. At least two file 
names must be included, but more than two are permitted. Unlike the SORT, 
however, an INPUT PROCEDURE may not be specified with a MERGE statement. 

The MERGE statement automatically handles the opening, closing, and in- 
put/output (READ/WRITE functions) associated with the files. See Figure 22.5 
for an illustration of a program with the MERGE instructions. 


CHAPTER SUMMARY 
A. The following chart summarizes all the options of the SORT statement. 


Options of SORT 
Description of Processing Statement Used 


Produce a sort file from an unsorted file. sorT sort-file-name... 
USING file-name-2 
GIVING file-name-3. 


1. Process the unsorted records (e.g., use SORT sort-file-name... 
edit procedures). INPUT PROCEDURE IS 
2. Produce a sorted file. section-name... 


GIVING file-name-3. 


1. Produce a sorted file from an unsorted SORT sort-file-name... 
file. USING file-name--2 

2. Process the sorted records before they OUTPUT PROCEDURE IS 
are placed in the output file. section-name... 
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. Process the unsorted records (e.g., use 


edit procedures). 
Process the sorted records before they 
are placed in the output file. 


. Produce a sorted file. 


SORT sort-file-name... 
INPUT PROCEDURE IS 
section-name-1... 
OUTPUT PROCEDURE IS 
section-name-2... 
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B. For users of the ANS 1974 COBOL standard or the 1985 standard, the 
MERGE statement can be used to merge two or more files. 


CHAPTER SELF-EVALUATING QUIZ 


1. Code a simple SORT to read a tape-file called IN-TAPE, sort it into ascending NAME 
sequence, and create an output disk called oUT-DISK. 


2. It is possible to process records before they are sorted by using the 


option in place of the 


option. 


3. (T or F) When using an INPUT PROCEDURE, you must open the sort file. 
4. (T or F) When using an OUTPUT PROCEDURE, you must open the sort file. 
5. A(n) (unsorted input, sorted output) file is opened in an INPUT PROCEDURE and 


sy 


n) (unsorted input, sorted output] file is opened in an OUTPUT PROCEDURE. 


ASSIGN TO DA-S-SYSOoO1, 
ASSIGN TO DA-S-SYS002, 


Figure 22.5 IDENTIFICATION DIVISION, 
Illustration of the MERGE PROGRAM-ID,. MERGE. 
instruction. * 
ENVIRONMENT DIVISION. 
INPUT-OUTPUT SECTION. 
FILE-CONTROL, 
SELECT INPUT-FILE~1 
SELECT INPUT~FILE-2 
SELECT MERGE-~THEM ASSIGN TO WORK, 
SELECT OUTPUT-FILE ASSIGN TO DA-S-SYS003, 
* 
DATA DIVISION. 
FD INPUT-FILE~1 
LABEL RECORDS ARE STANDARD, 
QO IN-RECH PIC XC100), 
FD INPUT-~FILE-2 
LABEL RECORDS ARE STANDARD, 
9 IN-REC-~2 PIC X(100), 
SD ERGE-THEM, 
Q ERGE-REC, 
OS KEY-FIELD PLC. QOS diy 
OS REST-OF-REC PIC X(95), 
FD OUTPUT-FILE 
LABEL RECORDS ARE STANDARD, 
6) QUT-REC PIG X(100), 
* 
PROCEDURE DIVISION, 
MATN-MODULE 
ERGE MERGE-THEM 


STOP RUN, 


ON ASCENDING KEY 
USING INPUT-FILE-1+ 
GIVING OUTPUT-FILE, 


KEY-FIELD 
INPUT~FILE-2 
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6. In place of a WRITE statement in an INPUT PROCEDURE, the —____ verb is used 
to write records onto the sort or work file. 
7. In place of a READ statement in an OUTPUT PROCEDURE, the _____ verb is used 
to read records from the sort or work file. 
8. Indicate the format of a RETURN statement. 
9. (T or F) The RELEASE statement uses a file-name, as does the RETURN statement. 
10. If the clause INPUT PROCEDURE TEST-RTN is coded with the sort statement, then 
code the first entry of TEST-RTN. 
Page 
1, SORT SORT-FILE ON ASCENDING KEY NAME 593 
USING IN-TAPE 
GIVING OUT-DISK. 
2. INPUT PROCEDURE; USING 596 
3. F—The input file is opened in an INPUT PROCEDURE; sort files are not opened 601 
by the programmer at all. 
4, FAs noted, sort files are not opened. 602 
5. unsorted input (FD) 601 
sorted output (FD) 602 
6. RELEASE 598 
7. RETURN 602 
8. RETURN (sort-file) AT END (imperative statement). The RETURN has a format 602 
similar to the READ statement. 
9, F—We RELEASE record-names and RETURN file-names. 598 
10. The following is an example: 598 
TEST-RTN SECTION. 
PARA-1+ 
Every section-name must be followed by a paragraph-name. 
PRACTICE PROGRAM 


The problem definition appears in Figure 22.6. 


1. 
2. 


3. 


Sort the records into DEPT sequence within AREAX within TERR. 

In an INPUT PROCEDURE, count all input records processed. DISPLAY the value of 
the count field. 

In an OUTPUT PROCEDURE, eliminate all records with a blank territory so that they 
are not included in the output file. 


The program for this problem appears in Figure 22.7. 


KEY TERMS 

ASCENDING KEY MERGE (1974 and 1985 ANS COBOL) 
ASCII OUTPUT PROCEDURE 

Collating sequence RELEASE 

DESCENDING KEY RETURN 

EBCDIC Section-name 

INPUT PROCEDURE SORT 

REVIEW QUESTIONS 


I. True-False Questions 


1 


. (T or F) If the OUTPUT PROCEDURE is specified with the SORT verb, then the INPUT 


PROCEDURE is required. 


Figure 22.6 
Problem definition for the 
Practice Program. 
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Systems Flowchart 


IN-FILE 


OUT-FILE 


SORT-FILE 
(Note; This is a work file) 


IN-FILE Record Layout 


1 23 56 89 20 21 
(Note: Field-names not really needed in this program) 


SORT-FILE Record Layout 


Sample Unsorted File 


B21 23767 BR INCKLEY 
127S4686BREALS 
465986 5SFURILLO 
TiLLLL LI RANDEL 


Sample File After Sort 
VLLLIALIRANDEL 
12754686BEALS JE 
23123767BR INCKLEY CHI 
46599655FURILLO FR 


iw) 


. (T or F) RELEASE must be used in an INPUT PROCEDURE. 
. (T or F) RETURN must be used in an OUTPUT PROCEDURE. 


Row 


INPUT PROCEDURE. 


no 


SORT statement in COBOL. 


a 


. (T or F] The RELEASE statement is used in place of the WRITE statement in an 


. (Tor F) A maximum of three sort fields are permitted in a single SORT statement. 
. (T or F) The only method for sorting a file at a company is with the use of the 


. (T or F) Data may be sorted in either ascending or descending sequence. 
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IDENTIFICATION DIVISION. 


Figure 22.7 cRoGRAM= 1p SAMPLEZS 


1 
2 i 
: F 3 AUTHOR, NANCY STERN CHRISTOPHER HAMMEL. 
eee ee ELE TURE ontgec dy 
Program. é SOURCE-COMPUTER. VAX-11. 
z OBYECT-COMPUTER. VAX-11- 
8 INPUT-OUTPUT SECTION, 
9 FILE-GONTROL 
10 SELECT IN-FILE _ ASSIGN TO DATAL2. 
a0 SELECT SORT-FILE ASSIGN TO SORTI. 
12 SELECT GUT-FILE ASSIGN TO SYSSOUTPUT. 
13 pata DIVISION. 
14 FILE SECTION. 
19 FD IN-EILE 
14 LABEL RECORDS ARE STANDARD 
17 o1 IN-REc PIC X(5O?. 
18 SD SORT-FILE 
19 RECORD CONTAINS SO CHARACTERS. 
20 o1 SORT-REC. 
21 05 TERR PIC XX, 
22 05 AREAX PIC Xxx. 
2 DEPT PIG XxX! 
24 05 Last -Nane PIC X(12) 
3S 03 FIRST-NANE PIG X(B) 
35 05 FILLER PIC x(22). 
a7 FD QUT-FILE : 
23 LABEL RECORDS ARE STAHDARD. 
29 01 GUT-REC PIC X(S0) 
30 WORKING-STORAGE SECTION. 
31 01” STORED-AREAS 
32 35 EGF PIC F VALUE ZERO. 
33 03 COUNTI PIC 999 VALUE ZERO. 
34 PROCEDURE DIVISION. 
39 MAIK SECTION. 
36 PARATZ. 
37 SORT _SORT-FILE 
38 ASCENBING KEY TERR 
39 ASCENDING KEY AREAX 
46 SSCENDING KEY DEPT 
at INPUT PROCEDURE TS COUNT1—INPUT 
42 GUIPUT PROCEDURE 1S ELIM~BLANK-TERR. 
43 DISPLAY COUNTI. 
44 STOP “RUN, 
49 COUNTI-INPUT SECTION. 
1 
47 OPEN INPUT IN-FILE. 
43 D IN-FILE AT END MOVE 1 TO EOF, 
a9 M CACC-RTN UNTIL EOF 18 EQUAL TO 1. 
50 TO EXITi. 
31 
52 TO_COUNTL. 
53 JE SORT-REC FROM IN-REC. 
23 NeFILE AT END MOVE 1 TO EOF. 
i 
36 Close IN-FILE. 
37 ELIM-BLANK=TERR SECTION, 
36 PARA-A 
39 OPEN QUTPUT QUT-FILE. 
ay RETURN SORT-FILE AT END MOVE 2 TO EOF. 
61 PERFORM ELIM-BCANAS UNTIL. TERR IS NOT EQUAL TO SPACES 
62 OF 15 EQUAL TO 2. 
63 PERFORM WRITE-RTN UNTIL EOF IS EQUAL TO 2. 
a4 CLOSE QUT-FILE. 
65 60 TO EXITA 
66 ELIM-BLANKS. ; 
67 RETURN GORT-FILE AT END MOVE 2 TO EOF 
838 WRITE=RT 
69 JUT-REC FROM SORT-REC 
70 RETURN SURT-FILE AT END MOVE 2 TO EOF. 
71 EXITA, 
72 Ekrr, 


8. (T or F) The EX1T statement is usually coded at the end of an INPUT PROCEDURE. 
9. (T or F) If a file is described by an $0, it is not defined in a SELECT clause. 
10. (T or F) In the EBCDIC collating sequence, a blank has the lowest value. 


II. General Questions 

1. What is the purpose of the SORT statement? 

2. Indicate the ways in which a SORT may be performed. 
3. Indicate the meaning of 8D and state how it is used. 
4 


_ If we code SORT S-1 ASCENDING KEY DEPT DESCENDING KEY AREA-X, ——_ 
is the major field to be sorted, is the minor field to be sorted, and both 
these fields must be described in the ________ record. 


Indicate how an INPUT PROCEDURE is used and the specifications for it. 
. Indicate how an OUTPUT PROCEDURE is used and the specifications for it. 
7. Indicate the differences between the EBCDIC and ASCII collating sequences. 


an 


Ill. Validating Data 


Modify the Practice Program so that it includes coding to (1) test for all errors and (2) 
print a control listing of totals (records processed, errors encountered, hash total). 


THE SORT FEATURE 611 


DEBUGGING EXERCISES 


Consider the following: 


PROCEDURE DIVISION, 
MAIN-MODULE, 
SORT SORT-FILE 
ASCENDING KEY EMP-NO 
USING MASTER-FILE 
OUTPUT PROCEDURE ADD-TAX, 
PERFORM PRINT-RTN, 
ADD-~TAX SECTION, 
OPEN OUTPUT SORTED-MASTER. 
RETURN SORT-FILE AT END MOVE 1 TO EOF, 
PERFORM RTN1 UNTIL EOF = 1, 
CLOSE SORTED-MASTER, 
GO TO ADD-TAX-EXIT, 
RTNL, 
MOVE .10 TO TAX-OUT, 
WRITE SORTED-MASTER-REC FROM SORT-REC, 
RELEASE SORTED-MASTER-REC. 
ADD-TAX-EXIT, 
EXIT. 
PRINT=RTNe 
MOVE © TO EOF, 
OPEN INPUT SORTED-MASTER 
PRINT~FILE, 
READ SORTED-MASTER AT END MOVE 1 TO EOF, 
PERFORM PRINT-IT UNTIL EOF = 1, 
CLOSE SORTED-MASTER 
PRINT-FILE, 
PRINT~IT, 
WRITE PRINT-REC FROM SORTED-MASTER-REC, 
READ SORTED-MASTER AT END MOVE 1 TO EOF, 


1, There is a line missing after ADD-TAX SECTION. What is it? 

2, There is an error associated with the RELEASE statement. Find and correct it, 

38. Since PRINT-RTN is not preceded by a section-name, what statement is executed 
after the ADD-TAX-EXIT paragraph? Under what conditions would the failure to 
include a section-name prior to PRINT-RTN cause errors? 

4. Would you obtain a syntax error if you moved CLOSE SORTED-MASTER to ADD~TAX- 

XIT so that it replaced EX1T?-Explain your answer. 

5. Would you get an error if ADD-TAX-EX1T with the EXIT statement were eliminated 
entirely? Explain your answer. 

6. After all the above errors are corrected, you run the program and obtain all the 
appropriate results, but the program abends. You find that the program is attempting 
to continue execution even after all records have been processed, Find and correct 
the error. 


PROGRAMMING ASSIGNMENTS 


Use the specifications in Figure 22.8 for Problems 1-5. 


1. Sort the input tape file into ascending sequence by Territory Number, Office Num- 
ber, and Social Security Number. 
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Figure 22.8 Systems Flowchart 
Problem definition for Pro- 
gramming Assignments. 


PAYROLL-MASTER SORTED-PAYROLL-MASTER 


80-position records 80-position records 
standard labels standard labels 
20 records/block 20 records/block 


Record Layout for PAYROLL-MASTER and SORTED-PAYROLL-MASTER 


a 56 25 26 27 28 29 30 35 36 44 45 70 71 80 


9. Sort the input tape file into descending sequence by Territory Number and Office 
Number, but eliminate all records that have a blank Territory Number, Office Num- 
ber, or Social Security Number. 

3. Sort the input tape file into ascending sequence by Territory Number, and add $100 
to the salaries of employees who earn less than $25,000. This may be performed 
either before or after sorting. 

4. After sorting input tape records into ascending Office Number sequence but before 
creating the sorted output file, print the Social Security Number for all employees 
in Territory 14 who earn more than $75,000. 

5. Sort the input tape file into ascending Territory Number sequence. Then write a 
control break problem to print a report with the format shown in Figure 22.9. 


H 


Figure 22.9 
Printer Spacing Chart for Pro- 
gramming Assignment 5. 
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Processing Indexed Files 
Using ISAM and VSAM 


I. A REVIEW OF DISK CONCEPTS 
A. Features of Magnetic Disk 
1. Physical Characteristics 
2. Representation of Data on a Magnetic Disk 
3. Recording Data on a Magnetic Disk 
B. Types of Magnetic Disks 
1, Moving-Head Magnetic Disk 
2. Fixed-Head Magnetic Disk 
3. Winchester Disk 
4, Floppy Disk 
C. Advantages of Magnetic Disk Processing 
1. Disks Are Ideally Suited for High-Volume Files 
2. Disks May Be Used for Either Direct Access or Sequential Processing 
3. Disk Files May Be Easily Accessed and Modified as Needed 
D. Maintaining Disk Files 
Il, METHODS OF FILE ORGANIZATION ON DISK 
A. Sequential File Organization 
B. Indexed File Organization 
1, Indexed Sequential (ISAM) File Organization 
2. Virtual Storage (VSAM) File Organization 
C. Relative File Organization 
D. Direct File Organization 
II, REVIEW OF SEQUENTIAL DISK FILE PROCESSING 
IV. PROCESSING INDEXED DISK FILES 
A. ISAM Processing 
1, Creating an ISAM File 
2. Updating an ISAM File Randomly 
3. Deleting Records From an ISAM File as Part of an Update Procedure 
4, Accessing or Reading From an ISAM File for Reporting Purposes 
5. Review of Options for Reading from an ISAM File 
6. Updating an ISAM File with Multiple Transaction Records for Each Master Record 
Self-Evaluating Quiz 
B. Virtual Storage Access Method (VSAM) for IBM Users 
1, Advantages of VSAM 
2. Physical Differences Between ISAM and VSAM 
3. COBOL Coding Using VSAM Files 
V. USING AN INDEXED DISK FILE AS AN ALTERNATIVE TO STORING TABLES FOR 
LOOK-UP PURPOSES 
Self-Evaluating Quiz 
CHAPTER SUMMARY 
CHAPTER SELF-EVALUATING QUIZ PRACTICE PROGRAM KEY TERMS 
REVIEW QUESTIONS DEBUGGING EXERCISES PROGRAMMING ASSIGNMENTS 
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OBJECTIVES 


To familiarize you with: 

1. Disk and disk file concepts. 

2. How to process disk files randomly. 

3. The major features of indexed, relative, and direct disk files. 

4, How to delete records, add records, and update records on a disk. 


a 
= 
= 


I. A Review of Disk Concepts 


In Chapter 21 we considered sequential file processing that can be performed 
using tapes or disks. In this chapter, we focus on file processing that makes 
use of a disk’s random access capability. Before considering the various random 
access techniques, we will provide a review of disk concepts. If you are already 
famili: t with disk concepts, skip to Section II of this chapter. 


A. Features of Magnetic Disk 


1. Physical Characteristics 

Magnetic disk is a high-speed medium that can serve as either input to or 
output from a computer system. See Figure 23.1 for an illustration of a disk 
and a disk drive. Like tape, a disk has an iron-oxide coating that can store 
hundreds of millions of characters of data or more. The magnetic disk drive 
is used both for recording information onto the disk and for reading infor- 
mation from it. 

The standard magnetic disk is really a disk pack consisting of a series of 
platters or disks arranged in a vertical stack and connected by a central shaft. 
The concept is similar to a group of phonograph records stacked on a spindle. 
The actual number of disk platters in a pack varies with the unit. Figure 23.2 
illustrates a disk pack with 11 platters. 

Data may be recorded on both sides of each disk platter. There are, however, 
typically only 20 recording surfaces for an 1 1-disk unit because the top surface 
of the first disk and the bottom surface of the last disk do not contain data; 
these two surfaces tend to collect dust, so they are not viable for data storage. 
Some permanently enclosed disk packs, however, enable the user to record 
data on all surfaces. 

If we have an 11-disk pack with 20 recording surfaces, the disk drive would 
have 10 access arms, each with two read/write heads that are used for reading 
and writing data on the surface above and below, as in Figure 23.3. One reason 
why access time for a disk is often shorter than for a tape is because disk 
drives have numerous read/write heads rather than one. 

Each disk surface stores data as magnetized bits on concentric circles called 
tvacks (see Figure 23.4). There are usually from 200 to 500 tracks per surface, 
depending on the unit. Each track can store thousands of characters of data. 
Although the surface area of tracks near the center is smaller than the surface 
area of outer tracks, all tracks store precisely the same number of characters. 
This is because data stored in the innermost tracks is stored more densely. 
This is true of phonograph records as well.) 

Disks vary widely in storage capacity and specifications. Individual records 
on most disks, however, can be addressed as follows: 


ADDRESSING Disk RECORDS 


= 


. Surface number (0 to 19 for our illustration). 

. Track number (0 to 199 for our illustration). 

3. Sector number (for some disks). 

Note that surface, track, and sector numbers begin at 0. 


i=) 
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Figure 23.1 

(a) Magnetic disk drive. (Cour- 
tesy NCR.) (b) Magnetic disk 
pack. (Courtesy Burroughs.) 


(a) 


Figure 23.2 
Cross-sectional view of a 
typical disk pack. 
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Figure 23.3 

How data is accessed from a 
disk pack. Each read/write 
head accesses a specific sur- 
face. The read/write heads 
move in and out together 

as a function of the access 
mechanism. 


Figure 23.4 
Tracks on a disk surface. 
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Disks 
(11 in this 
Access illustration) 
Mechanism 


i d Tracks (20 in this illustration) 
aca a (eylinden) 


Track 000 
Track 001 
Track 002 
Track 199 


As you will see in Figure 23.5, all number-1 tracks on all surfaces, for 
example, constitute a cylinder, called cylinder 1. 


2. Representation of Data on a Magnetic Disk 
Data is represented on many disks using a 9-bit code similar to the EBCDIC 
code used for representing data internally within a computer as well as for 
representing data on tapes. Each byte or character is represented longitudinally 
along a disk track by a 9-bit configuration. 

As with tape records, disk records can be any length. Moreover, the records 
can be fixed or variable, and in most cases they can be blocked to maximize 
the efficient use of the disk. See Figure 23.6. 


3. Recording Data on a Magnetic Disk 

A program can be written to read data from some input device such as a 
terminal and to produce, as output, a magnetic disk record using a magnetic 
disk drive as an output device. 


B. Types of Magnetic Disks 
Magnetic disk drives are direct access devices designed to minimize the access 


time required to locate specific records. Each drive has a series of access arms 
that can locate records on specific surfaces. For disk drives with 10 access 


arms, as indicated in our illustration, the time it takes to locate records that 


Figure 23.5 

(a) The cylinder concept on a 
magnetic disk. (b) The sector 
concept on a magnetic disk. 


PROCESSING INDEXED FILES USING ISAM AND VSAM 617 


Track 050 
(surface 0) 
Track 050 
(surface 1) 


Cylinder 050 


Track 050 
(surface 19) 


(a) 


Track 000 
Track 001 


Track 002 


Data stored 
on tracks 


Sector 002 


Sector 001 


Sector 000 
(b) 


are not in sequence will be much less than that required by a tape drive with 
only one read/write mechanism, 
There are several types of disk mechanisms: 


1, Moving-Head Magnetic Disk 

In a moving-head magnetic disk, all the read/write heads are attached to a 

single movable access mechanism. Thus, the access mechanism moves directly 

to the specific track or cylinder on the disk, as specified by the computer. 
Because all the read/write heads move together to locate a record, this type 

of mechanism has a relatively slow access rate as compared to fixed head disks, 

which are described next. 


2. Fixed-Head Magnetic Disk 

Since disks are generally used for high-speed access of records from a file (for 
example, an airline reservation file}, any method that can reduce access time 
would be beneficial. Fixed-head magnetic disks were developed to decrease 
access time substantially. These devices do not have a movable access arm. 
Instead, cach track has its own read/write mechanism that accesses a record 
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Figure 23.6 
The use of disk records. 
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as it rotates past the arm. The disks in this device are not, however, removable. 
Moreover, the capacity of each disk is somewhat less than with other types 
of disks, although the access time is significantly reduced. 


3. Winchester Disk 

This is a newer type of device with fixed or permanently enclosed disks that 
are not removable. The read/write head assembly and the disk itself are in a 
sealed container, making them less susceptible to contamination from dust, 
dirt, or smoke. Because they are inexpensive and have smaller capacity than 
other disks, Winchester disks are used predominantly with smaller systems, 
although some larger systems use them as well. 


4. Floppy Disk 

Microcomputers and some minicomputers use small versions of magnetic 
tapes called cassettes or cartridges. Similarly, micros and some minis use 
small versions of magnetic disks called floppy disks (sometimes called diskettes). 
The standard disk has a 14-inch diameter. Floppy disks most frequently come 
in 8-in., 5 1/4-inch, and 3-inch versions. See Figure 23.7 for an illustration. 


Figure 23.7 

(a) Floppy disk drive. (Courtesy 
Mohawk Data Sciences.) 

(b) Example of an 8-in. floppy 
disk. (Courtesy BASF.) 
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C. Advantages of Magnetic Disk Processing 


1, Disks Are Ideally Suited for High-Volume Files 
Because magnetic disks can be processed very quickly and can store large 
amounts of data, they are frequently used for high-volume files. 


2. Disks May Be Used for Either Direct Access or Sequential Processing 
A main advantage of disk processing, as compared with tape, is the ability to 
access records directly. Because most disk packs have numerous addressable 
recording surfaces and multiple read/write heads, records on a disk file can be 
accessed directly without the need to search an entire file. 

There are four common methods of accessing data on disks: 


1. Sequential 

2. Indexed: ISAM and VSAM 

3. Relative These are direct access methods. 
4. Direct 


We will discuss each of these in detail in the next section. 


3. Disk Files May Be Easily Accessed and Modified as Needed 

Disk files have the added advantage over tapes of permitting updates or changes 
to existing records in the same disk location. In this way, a new disk file need 
not be created to incorporate current changes, as is usually required with tape 
processing. That is, the same disk record may be used as both input and output 
in the same program. We can read a record from a disk, make changes to that 
record, and rewrite it at the same disk location; in addition, we can add records 
to the disk file and we can delete records from the disk file. See Figure 23.8 
for an illustration of an update operation using disks. 


D. Maintaining Disk Files 


Disks, like tapes, cannot be read visually, so there is a need for appropriate 
controls to make certain that disk files are properly handled. Some types of 
controls commonly used include: 


1. An external label placed on the disk pack for manual identification. 
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Figure 23.8 
Illustration of an update 
operation using disks. 
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2. A programmed header label created as the initial record on a disk file 
that may be checked each time the disk file is used, to make certain 
that the correct file is being processed. 


3. A librarian or media specialist to control access to disk packs. 


Disks, however, have an added control problem that does not affect tape 
processing. Since tapes cannot be used as input and output during the same 
procedure, each tape update results in both a new tape and an old one, where 
the old can be used as backup if necessary. 

Since changes can be made directly to an existing disk file, the update 
procedure can rewrite over previous data; as a result, there is no automatic 
backup file. To prevent the loss of data resulting from erroneous processing, 
sabotage, or a natural disaster such as a fire, disk files are usually copied onto 
a tape for backup purposes. Thus, a separate backup procedure is necessary 
after disks have been processed. 

The following is a general summary of disk concepts: 


SUMMARY 
A. Primary Uses for Disk (and Tape, too) 
1. To store high-volume files such as master files. 
2. For auxiliary or secondary storage. 
B. Common Features of Tape and Disk 
1. Tapes and disks can be used as either input or output. 


2. Tape and disk drives can read and write data very quickly using 
their read/write heads. 


Tapes and disks can store millions of characters of data. 
Tapes and disks can store records of any size. 
Tapes and disks store data as magnetized bits. 


Tape and disk records may be blocked to maximize efficient use 
of the storage medium. 


7. Tape and disk files are identified with header labels. 
C. Distinctions Between Tape and Disk 
1. Access mode 
(a) Tapes must be processed sequentially. 


(b] Disks can be processed either sequentially or randomly. 
For random-access capability, disk files are typically organized as 


DS Or gs Go 


indexed, relative, or direct. 
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2. Updating 
(a) Changes may not be made directly to a tape—for updating, 
an entirely new tape must be created. 
(b) Changes may be made directly to a disk; that is, disk records 
may be rewritten in place. 
D. Physical Characteristics of Magnetic Disk 
1. Surfaces on a disk pack have an iron-oxide coating. 
2. A pack consists of a series of platters arranged in a vertical 
stack, 
3. A platter, except for the top and bottom, has two recording sur- 
faces. 
4. The address of a disk record consists of a surface and track num- 
ber, and sometimes a sector number, 
5. Floppy disks and Winchester hard disks are other types that are 
frequently used with micro- and minisystems. 


Il. Methods of File Organization on Disk 


Recall that the term file refers to a collection of related records for a given 
application. An accounts receivable file, for example, is the collection of all 
records of customers who owe money to the company. We will now discuss 
the various ways in which files can be stored on a disk storage unit. 

There are generally four ways in which information can be organized on a 
magnetic disk: sequential, indexed (ISAM and VSAM), relative, and direct, 


A. Sequential File Organization 


The simplest type of disk file organization is sequential. Sequential files are 
processed in the same way regardless of whether they are stored in tape or 
disk. Typically, the records to be stored in a sequential file are first sorted into 
sequence by a key field such as customer number, part number, or employee 
number. It is then relatively easy to locate a given record. The record with 
employee number 00986, for example, would be physically located between 
records with employee numbers 00985 and 00987. To access that record, the 
computer must read past the first 985 records. 

We have already seen in Chapter 21 how a master sequential disk can be 
updated in two ways: (1) by creating a new master disk just like we do with 
tapes, and (2) by updating a record in place, enabling the disk to serve as both 
input and output for a given procedure. The other methods to be considered 
in this chapter enable a disk to be accessed randomly. 

Note that not all file processing techniques that permit random accessing 
are part of the ANS standard. Most compilers use an IBM-compatible format, 
but there are apt to be some differences, usually minor, between systems, 
Check your manual for the precise format for your system, 


B. Indexed File Organization 


An indexed file is one that has an index for looking up locations of records on 
a disk. There are two methods of accessing indexed files: ISAM and VSAM. 


1. Indexed Sequential (ISAM) File Organization 

As noted, an indexed file enables the user to access disk files randomly. The 
term ISAM stands for Indexed Sequential Access Method. An index, or ref- 
erence table, is created on the disk at the same time that the data is recorded 
on the disk. This index stores a record’s key field and the corresponding disk 
address of that record. 
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The key field, such as employee number or part number within the disk 
record, must be designated by the programmer; each record must have a unique 
key field for ISAM processing. In this way, when a specific record is to be 
accessed, the computer can check the reference table or index to determine 
the address or location of any record, once the key field is supplied. The address 
for a disk record consists of its surface and track number; sometimes, a sector 
number is part of the address as well. It should be noted that the index is 
usually stored on the same disk as the file. If a user supplies a key field such 
as part number, the computer can “look up’ the address of the record with 
that part number and immediately access the record. ISAM is one type of 
tandom access method that is widely used by many organizations. 

Once the address has been obtained from the index, the access mechanism 
can move directly to the appropriate location without requiring the read/write 
heads to read past all the previous records in the file until the desired one is 
found. This concept is analogous to a book’s index, which has unique subjects 
(keys] and their corresponding page numbers (addresses). Thus, a specific topic 
can be accessed from the index without having to read the book sequentially 
from the beginning until that topic is found. 

When creating the ISAM file, the programmer states, for example, that the 
Social Security number of each record within the employee file is to serve as 
a key field. Social Security number is a commonly used key field for employee 
files, since all Social Security numbers are unique. The computer then estab- 
lishes the index on the disk, which stores each record’s Social Security number 
and its corresponding disk address. 

To access an employee record randomly, the Social Security number of the 
desired record is supplied by the user, and the computer “looks up” the address 
of the record in the index; it then moves the access mechanism accordingly 
to locate the employee record with that Social Security number. 

Thus, when records must be accessed in a random manner, an indexed file 
can result in a substantial amount of time saved as compared with sequential 
file organization. Suppose, for example, that the manager of a company wants 
to retrieve information pertaining to 1000 employees from an employee file 
with 75,000 records. The inquiries asking for employee data are in no partic- 
ular sequence. With an indexed sequential file, it is a relatively simple matter 
to access each required record randomly. 

With an ISAM file, we can access records either sequentially or randomly, 
depending on the user's needs, The term random access implies that records 
are to be processed or accessed in some order other than the one in which 
they were physically written on the disk. 


2. Virtual Storage (VSAM) File Organization 

VSAM, an acronym for Virtual Storage Access Method, is very similar to ISAM 
in concept and design. It is an IBM enhancement of ISAM for use on virtual 
storage computers. One main feature of VSAM is that records may be accessed 
using alternate key fields. Even though it is not part of the ANS standard, we 
discuss it here because it is widely used in business. 

With alternate keys, records can be accessed in many different ways. Sup- 
pose, for example, an employee record contains both a Social Security number 
and an employee number. With a VSAM file, either can be used to access 
records, Suppose a user wishes to access an ISAM employee record that has 
Social Security number as its key field. If the user does not know the Social 
Security number for the employee desired, the record cannot be directly ac- 
cessed. With a VSAM file, however, both employee number and Social Security 
number can be used as key fields. Thus, if the user knows the employee 
number but not the Social Security number, the record is still directly acces- 
sible. Another advantage of VSAM over ISAM is that it is easier to establish 
variable-length records within a file. Also, records may be added to a VSAM 
file more efficiently than they can be added to an ISAM file. 

The next two methods of organization—relative and direct—are summa- 
tized here and discussed in detail in Appendix I. 
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C. Relative File Organization 


A relative file is primarily used when records need to be accessed randomly, 
but relative organization requires that the record keys be arranged in a se- 
quential and consecutive order. That is, suppose an inventory file consists of 
part numbers that vary from 001 to 982. A relative file can be created in which 
the part number indicates the record’s relative location within the file. Part 
number 001 is the first record on the disk, part number 002 is the second 
record, and so on. Thus, if we wish to access a record with part number 282, 
we know that it will be the 282nd record on the disk file. For some applica- 
tions, this may even be more efficient than indexed file processing, because 
there is no need to look up the address of a record from an index. The key 
field itself specifies the record’s relative position in the file. 

Not all key fields, however, can be consecutively sequenced. For example, 
part numbers and customer numbers may be usable for relative addressing if 
they vary consecutively. Social Security number, however, could not be used 
in this way. Since a company does not employ people with consecutive Social 
Security numbers, using this number to denote a record’s relative position in 
a file would be extremely inefficient. 


D. Direct File Organization 


Another method of disk organization is called direct file organization. In this 
type of file, records are accessed by a key field that, through some calculation, 
reduces to the actual address (surface and track numbers} of the record. With 
the direct method, like the relative method, there is no need for an index, 
To determine the record location for a direct file, a randomizing or hashing 
technique is used to convert the record key’s value to a record location: 


HASHING TECHNIQUE FOR DIRECT FILES 
1. Compute the largest odd number not ending in 5 that is less than 
the total number of tracks available. 
2. Divide the record key by this odd number 
3. The remainder becomes the track number, 
Example Suppose we allot 1000 tracks for a given disk file. The key field is 


Social Security number, Suppose we have a Social Security number 
of 072—38-7821, 


1. Compute the largest odd number not ending in 5 that is less than 
the total number of tracks available. 
999 is the number. 


2. Divide the record key by this number, 
72460 


999 [072387821 


6993 _ 


i remainder 
281 is the track number. 


Several records may be placed in the same track because this method 
of conversion does not result in unique track numbers. Since a track 
can typically store thousands of characters, this may not cause a prob- 
lem. If, however, too many records result in the same computed track 
number, there may be a need for overflow areas, 
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Thus, no index is required from which the actual address is searched; in- 
stead, calculations are performed by the computer according to programmer- 
supplied formulas that yield the disk address of each record. 

Direct organization can result in fast access of specific records, since there 
is no need to “look up” an address from an index. There are, however, several 
factors that must be considered before this type of organization is used: 


1. More programming effort is required with direct files, since the program- 
mer must develop and program the formula for converting the key fields 
into actual addresses. The example above used an extremely simple for- 
mula to determine the address. In reality, very complex formulas are 
often necessary. This is because programmers can only use specified 
areas of the disk for their files; the remaining areas may be either filled 
with other data or have a “dedicated” use. As a consequence, the task 
of finding the appropriate formulas to refer to only certain available 
addresses can sometimes become very cumbersome. Moreover, this type 
of organization makes it very difficult to evenly distribute records on a 
disk file so that the file makes effective use of the available disk space. 

9. In addition to increased programming effort, complex formulas may 
sometimes increase access time. Depending on the calculation, it might, 
in fact, require more time for the computer to perform the calculation 
to find the address than to look up the address in an index. 

3. Accessing a direct file sequentially is rather inefficient because records 
with sequential key fields are rarely adjacent to one another as they 
would be with other types of randomly accessed files. 


In fact, direct files are best used when the files are typically accessed ran- 
domly (that is, rarely in sequence] and there is only infrequent need to add to 
the file. Because of the aforementioned considerations, direct files are not as 
commonly used in business applications as indexed files. 


es. Review of Sequential Disk File Processing 


Examples 


To process sequential disk files, we will use the following SELECT statement: 


PROCESSING A SEQUENTIAL Disk FILE 


SELECT file-name ASSIGN TO 


pa-s|-external-name] 
sysnnn-DA-device-no-§|-external-name] 


[ORGANIZATION IS SEQUENTIAL] 


In the ASSIGN clause, the entries have the following meaning: 


1. DA-S-external-name 

Da: Device with direct access capability 

§: Sequential access 

external-name: Programmer-supplied file-name; 1-8 characters 
2. S¥Snnn-DA-device-no-5- external-name 

SYSnnn: System number, where nnn = 001-256 

Da: Device with direct access capability 

device-no: Manufacturer-supplied number 

external-name: Programmer-supplied; 1-8 characters 


SELECT DISK1-OUT ASSIGN TO DA-S-MASTER, 
SELECT DISK2-IN ASSIGN TO §YS007-DA-3340-S-DETAIL» 
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The ORGANIZATION clause indicates how a file will be established or or- 
ganized. When an ORGANIZATION clause is omitted, a sequential file organi- 
zation is generally assumed. We have not been using this clause in our pro- 
grams thus far, since all our disk files have been sequential, 

Processing disk files sequentially is performed exactly as was discussed 
previously for tapes. Even the use of label records and blocking are the same. 
To update sequential records in place, see the last section of Chapter 21. 


A Note About Debugging 

When you are debugging a program that creates a tape or disk as output, you 
will need to examine the records created by your program. You can do this by 
coding DISPLAY record-name just before writing the record. Most computer 
systems also have a job control command such as /PRINT file-name that will 
enable you to examine the entire file that was created as output. 


IV. Processing Indexed Disk Files 


In this chapter, we will focus primarily on ISAM and VSAM files because they 
tend to be the most commonly used. We consider relative and direct files in 
Appendix I, 

Indexed and relative files are usually created in sequence, that is, the file 
is created by reading each input record from a file, in sequence according to 
the key field, and writing the output disk records in the same sequence. Direct 
files are usually not created in sequence because they use a mathematical 
formula for determining where records are to be placed on the disk. We will 
consider indexed files—both ISAM and VSAM—in this section. 

There are some differences in ISAM processing depending on whether you 
are using a 1974 or 1985 compiler, or a 1968 compiler. 1968 differences are 
designated in this chapter within asterisks (**#), but you can ignore this 
material if you are not using a 1968 compiler. 


A. ISAM Processing 
1, Creating an ISAM File 


(a) The SELECT Statement, For ISAM files, an index is created that stores 
the key field for each record along with the corresponding disk address for 
that record. Thus, even when we are creating a file in sequence, we must 
specify the key field for the records in the file, so that the index may be created 
on the disk. The index that is written when the ISAM file is created will be 
used for accessing the disk file randomly at some later date, For ISAM files, 
the key field must be unique for each record; it is typically numeric as well, 
although an alphanumeric key is also acceptable, Fields such as ACCT-NO in 
accounts receivable records, S0C-SEC-NO in payroll records, and PaRT-NO in 
inventory records, for example, are commonly used key fields. For ease of 
reference, the key field is typically the first data field in each disk record, 
although this, too, is not a requirement. 

When an ISAM file is being created, the SELECT statement would be as 
follows. (Slight modifications may be required for your system.]} 


CREATING AN ISAM FILE: SELECT CLAUSE 
SELECT file-name ASSIGN TO 


DA- I[-external-name] 
8YSnnn-DA-~-device-no- I[- external-name] 


[ORGANIZATION Ig INDEXED] 
ACCESS IS SEQUENTIAL 
RECORD KEY IS key-field 
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The device assignment in the ASSIGN clause is exactly the same _as for 
standard sequential disk files except that, on many systems, an [ 1 | com- 
monly appears in the clause to denote ‘Indexed.’ 

The clause ORGANIZATION 19 INDEXED is generally coded to indicate that 
the file is to be created with an index. Note that an I may be used in the 
ASSIGN clause in place of ORGANIZATION IS INDEXED. Even though we are 
creating the file sequentially, we must instruct the computer to establish an 
index for future random accessing. 

Since ISAM files may be accessed either sequentially or randomly, the 
ACCESS clause is used to denote which method will be used. If the ACCESS 
clause is omitted, the compiler will assume that the file is being processed in 
SEQUENTIAL mode. ISAM files are created sequentially, that is, the input 
records must be in sequence by key field. 

The RECORD KEY clause is used to name the key field within the disk record 
that will be used to form the index. This field must be in the same physical 
location in each record and normally is the first data field in each ISAM record. 
It must have a unique value for each record, and it is usually numeric. 

Creating the ISAM file is performed in exactly the same manner as creating 
a tape or a sequential disk file, with some minor exceptions. See Figure 23.9 
for an illustration of a program that creates an ISAM file sequentially. 

Let us consider some of the differences between creating an ISAM file as 
compared with creating a sequential file. 


(b) RECORD KEY in the SELECT Statement. Creating an ISAM file is similar 
to creating any sequential file except that the SELECT statement includes a 
RECORD KEY clause. This identifies the key field within the indexed record 
to be used when establishing an index. 


(c) INVALID KEY Clause. Examine the WRITE statement in Figure 23.9. 
Note that it includes an INVALID KEY clause. The INVALID KEY clause may 
be used with a WRITE command to test for three possibilities: if the record 
being written has a key that is (1) blank, or (2) the same as one already on the 
indexed file, or (3) not in sequence. If any of these conditions exist, we say 
that an INVALID KEY condition exists. This INVALID KEY test is performed 
prior to writing the record. 

If, for example, two records have the same Social Security number, or a 
record has a blank Social Security number, or the Social Security numbers are 
not entered in sequence, the index would not be able to associate the record 
with a disk address. By using an INVALID KEY clause with the WRITE state- 
ment, we ensure that records created on the indexed file have sequential, 
unique, and non-blank keys. 

‘An INVALID KEY clause is optional with a WRITE statement. We strongly 
recommend that you use it, however, since if you omit it you may create an 
output file with invalid keys in it. This will mean that an effort to read from 
the file randomly at some later date may produce an error. The format for 
using the INVALID KEY is: 


| WRITE record-name [INVALID KEY imperative statementl(s) | 


You will see shortly that when reading from an ISAM file we can use the 
INVALID KEY test along with the READ command as well: 


[ READ file-name [INVALID KEY imperative statement(s) ] 


eR ROR RR ROR RR kk OR 


(d) Use of a Delete Code within an ISAM Record—Only for 1968 ANS COBOL 
Users. Computers use different methods for deleting records after disk files 
have been created. Many 1968 compilers require a one-position delete code as 


eR KR RRR RR RO OR RF 


Figure 23.9 
Program that creates an ISAM 
file sequentially. 
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HERE REE E ERE K KERR KR EER RHR EKER KE 


* THIS PROGRAM CREATES AN INDEXED * 
* SEQUENTIAL DISK FILE FROM AN * 
* INPUT TAPE FILE. * 
EREKE HERE REEL EEE HEHE REE EHH HH ER RRR RR RE 
ENVIRONMENT DIVISION, 

INPUT-OUTPUT SECTION. 


FILE-CONTROL, 


SELECT PAYROLL-FILE ASSIGN TO UT-S-s8YSo0g, 
SELECT MASTER-FILE ASSIGN TO DA-I-MASTER 


RECORD KEY 
indicates the 
ISAM record’s 
key field 


ORGANIZA 


ION IS INDEXED 
ACCESS IS SEQUENTIAL 


For 1968 ANS 
COBOL users only 


pL RECORD KEY IS ISAM-SSNO. 
* 
DATA DIVISION. 
FILE SECTION. 
FD PAYROLL-FILE 
LABEL RECORDS ARE STANDARD, 
Ol PAYROLL-REC, 
OS SSNO-IN PIC §(9),. 
OS AME-IN PIC X(20), 
05  GSALARY-IN PIC 9(5), 
05 ADDTL-DATA=IN PIC X(46), 
FD MASTER~FILE 
LABEL RECORDS ARE STANDARD 
BLOCK CONTAINS 20 RECORDS. 
Ol MASTER-REC, 
t-——_05_ TSAM-DELETE-CODE PIC xX. 
0S ISAM-SSNO PIC 9(9), 
oS SAM-NAME PIC K(20), 
0S SAM-SALARY PIC 9(35), 
03 ADDTL-DATA PIC X(65), 
WORKING-STORAGE SECTION, 
O1 WORK-AREAS, 
OS EOF PIX 9 VALUE O, 
* 
PROCEDURE DIVISTON, 
MAIN-MODULE » 
OPEN INPUT PAYROLL-FILE 


OUTPUT MASTER-FILE, 
READ PAYROLL-~FILE AT END 
PERFORM CREATE-R 


For 1968 ANS 
COBOL users only 


CLOSE PAYROLL=FILE 
MASTER-FILE, 


| CREATE-RTN, 
MOVE LO 


STOP RUN, 


MOVE 1 TO EOF, 


N UNTIL EOF = i, 


~VALUES 


0 ISAM-DELETE-CODE, 


MOVE SSNO-T 


INVALID KEY 
displays “INVALID 
RECORD’ if key 

field in MASTER-REC 
is blank, or a 

record already exists 
with that key field, or 
key field is not in 
sequence. 


MOVE 
MOVE 
MOVE 


NAME-IN TO 


ADDTL-DATA- 


TO ISAM-SSNO, 
SAM-NAME, 
SALARY-IN TO ISAM-SALARY, 

N TO ADDTL-DATA, 


WRITE MASTER-REC INVALID KEY 
DISPLAY “INVALID RECORD’, MASTER-REC, 


the first character of each ISAM 


READ PAYROLL-FILE AT END MOVE 1 TO EQF, 


record created. Initially, when a record is 
created it is considered to be an “active” record; later on, however, we may 
make it inactive. Suppose, for example, that an employee resigns; we would 
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delete the record using a DELETE verb with 1974 and 1985 compilers; with 
1968 compilers, we must deactivate the record from the employee file. 

Using a 1968 compiler, we designate a record being created as “active’’; to 
do this, we move LOW-VALUES or blanks to the delete code, which is the first 
byte in the record. LOW-VALUES is a COBOL reserved word that represents 
the lowest character in the collating sequence for the computer being used. 
Later in this chapter, we will see how to deactivate records, that is, make 
them inactive when using a 1968 compiler, since we cannot physically delete 
records from such a disk file. We do this by moving HIGH-VALUES to the 
delete code. We will see that 1974 and 1985 compilers do not use delete codes 
at all, but permit records to be deleted physically, with a DELETE command. 

Note in Figure 23.9 that there is a one-byte field defined prior to the key 
field, ISAM-SSNO in our disk record. This one-position field, called 1SAM- 
DELETE -CODE is required for 1968 users only. As a general rule, 1968 COBOL 
users establish a one-character field called DELETE-CODE in the first position 
of the record prior to the key field and move LOW-VALUES (or SPACES) into 
the delete code before writing a disk record, This will ensure that the record 
is created by the computer as an active record. The value will change only if 
we wish to delete the record, as will be discussed later on. 


de ak ROK Re eR Be IR Om a 


In summary, creating an indexed file is not significantly different from 
creating a sequential file. A RECORD KEY is defined in the SELECT statement, 
and an INVALID KEY clause is used with the WRITE statement to ensure that 
only records with valid key fields are created. A delete code may be required 
in the first position of the record for 1968 ANS COBOL users. 


2. Updating an ISAM File Randomly 
You will recall that updating a sequential tape file required three files, each 
in sequence by a specific key field: 


OLD-MASTER Contains master file information current through 

the previous updating cycle. 

TRANSACTION-FILE Contains change records or records required to 
make the OLD-MASTER current. 

NEW-MASTER Combines TRANSACTION-FILE data and OLD- 
MASTER data to form one updated master file. 


One main advantage of disk processing is that master records can be updated 
directly without having to create a new file. Thus, only two files are needed 
for updating an ISAM file—the input transaction file, and the master disk 
itself, which serves as both input and output. Since the ISAM disk file may 
be accessed randomly, there is no need to sort the transaction file. 

For accessing ISAM files randomly, we need to have a transaction file, 
frequently on tape or floppy disk, or have transaction data entered using a 
terminal. This transaction data will specify which disk records we want to 
read or access for updating purposes. To access a record in the master file, we 
enter the field corresponding to the RECORD KEY on the disk. That is, suppose 
we wish to access records that have PART-NO as the key field in an ISAM 
inventory file. We must read in transaction records containing the actual PART - 
Nos to be accessed. To do this, we must perform the following: 


1. Read the transaction record. 
(Each record contains T- PART-NQ.) 

2. Move T-PART-NO to the RECORD KEY of the master file called 
PART-NO. 
(Move the transaction key field to the ISAM record’s key field, which is 
defined within the record description for the ISAM file.) 
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3. Instruct the computer to look up or access the disk record that has a 
key field equal to the field stored in PART-NO. If no such record is found, 
perform an error routine. We do this by coding: 


READ I[SAM-FILE 
INVALID KEY PERFORM ERR-RTN, 

i eee ee ee ee ee 
For 1968 ANS COBOL users, accessing ISAM records requires slightly different 
coding. The transaction key field, T-PART-NO, is moved to a WORKING-STOR- 
AGE entry, called a NOMINAL or SYMBOLIC KEY on most sytems. The NOMINAL 
KEY is the transaction record’s key field. A READ ISAM-file instruction will 
access an ISAM record that has a RECORD KEY equal to this NOMINAL or SYM- 
BOLIC KEY. 

ee ee ee oe ee ee re 


(a) The SELECT Statement. The SELECT statement for an ISAM file that is 
to be updated or accessed randomly is as follows: 


ACCESSING AN ISAM Fite RANDOMLY 
SELECT file-name ASSIGN TO 


DA~I [~external-name] 
8YSnnn~DA-device-no- 1|- external-name] 


[ORGANIZATION 1g INDEXED] 
ACCESS 18 RANDOM 
RECORD KEY 18 data-name 


iia ee ee ee ee ee ae 
For 1968 ANS COBOL users, one additional clause is required in the SELECT 
statement: 


NOMINAL KEY 5 ce 

{saa Te om IS WORKING-ST ORAGE-entry 
IBM and IBM-compatible computers use NOMINAL KEY; others use SYMBOLIC 
KEY. 

MO ROR RB RR HR ee dew RL HH OEE Bee Ow ak 
For 1974 and 1985 ANS COBOL, the transaction key is moved directly to the 
RECORD KEY. For 1968 ANS COBOL, the transaction key is moved to a WORK - 
ING-STORAGE NOMINAL or SYMBOLIC KEY. In both cases, the READ statement 
calls in the appropriate ISAM record. 


Example — For 1974 and 1985 ANS COBOL, an ISAM file to be updated would have the following 
SELECT statement: 


SELECT ISAM-FILE ASSIGN TO DA~I-MASTER 
ORGANIZATION INDEXED 
ACCESS RANDOM 
RECORD KEY IS PART-NO, 


We read in the transaction record, which has the part number to be accessed from 
the disk. We move the transaction T-PART-NO to PART-NO and then read the disk: 


READ TRANS-FILE AT END MOVE 1 TO EOF, 
MOVE T-PART-NO TO PART-NO, 
READ ISAM-FILE 

INVALID KEY PERFORM ERR-RTN, 


The record read from 1SAM-FILE will have a RECORD KEY equal to T-PART-NO; if no 
such record is found, ERR-RTN will be performed. 
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When reading a disk file randomly, it is not necessary to test for an AT END 
condition because we are not reading the file in sequence; instead, we can 
include an INVALID KEY test. If there is no record in the ISAM-FILE with a 
RECORD KEY equal to T-PART-NO, the INVALID KEY clause will be executed. 
Thus, the computer executes the INVALID KEY option if the T-PART-NO does 
not match any of the disk records. 


(b) OPEN 1-OISAM-File. OPEN T-O ISAM-file is a required entry for updating 
an indexed file. The master disk must be opened as an I-O file because (1) it 
is used as input [I] for reading or accessing the disk, and (2) it is used as output 
{O] for writing onto it or updating it. The master disk file has its records stored 
by RECORD KEY, and the transaction file accesses each record to be updated 
by using the transaction key to look up the record key in the indexed file. 
Once a master indexed record has been accessed, transaction data is moved 
to the master record, and we issue a REWRITE to change or overlay the indexed 
master record on disk, so that it includes the additional data. Thus, for up- 
dating an ISAM file, we have: 


UppaTING AN ISAM MASTER FILE 


1. OPEN the ISAM master file as 1-0. 

9, Read a transaction record. 
Move key field of transaction record to the RECORD KEY (1974 and 
1985). 
cos master record, where RECORD KEY is equal to the key in the 
transaction record. 

3. After the READ, we have in storage the transaction record and a cor- 
responding master record that needs to be updated. 

4. Make the changes to the master record directly by moving trans- 
action data to the master I/O record area. 

5. REWRITE the master record. 


(c) Illustrating an Update Procedure for an ISAM File 


‘Assume that a master indexed disk file contains payroll data with Social Security 
number as a key field. A tape file contains transaction or change records with a Social 
Security number and the new payroll data. The tape’s new payroll data is to be used 
to change the corresponding disk record, where the RECORD KEY field for the disk is 
Social Security number. The following is an excerpt of the PROCEDURE DIVISION: 


PROCEDURE DIVISION. 
MAIN-MODULE+ 
OPEN INPUT TAPE-IN 
1-0 DISK-FILE. 
READ TAPE-IN AT END MOVE 1 TO EOF. 
PERFORM CALC-RTN UNTIL EOF = 1. 
CLOSE TAPE-IN DISK-FILE: 
STOP RUN. 
CALC-RTN+ 
MOVE T-SOC-SEC-NO TO DISK-SSNO. 
MOVE © TO ERR-CODE. 
READ DISK-FILE INVALID KEY 
PERFORM ERR-RTN+ 
IF ERR-CODE = 0 
PERFORM UPDATE. 
READ TAPE-IN AT END MOVE 1 TO EOF. 
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UPDATE, 
MOWE PAYROLL-DATA TO DISK-DATA, 
REWRITE DISK-REC INVALID KEY 
PERFORM ERR-RTN, 
ERR-RTNs 
DISPLAY ‘INVALID RECORD’» DISK-SSNQ, 
MOVE 1 TO ERR-CODE. 


When defining a disk as 1-0, all three of the following types of update 
procedures may be performed, depending on the contents of the transaction 
file: 


1. Changes to existing records. For example, promotions, salary increases, 
and transfers must be incorporated in existing payroll records. The 
REWRITE verb may be used to alter existing records. 

2. Creation of new records, For example, new hires must be added to a 
payroll file. There is no need to look up a master disk record when a 
transaction record designates a new hire. A simple WRITE command may 
be used to create new records. 

3. Deletion of some existing records, For example, resignations must be 
deleted from a payroll file. We look up the ISAM master record to be 
deleted and either (a) DELETE the record (1974 and 1985 COBOL) or (b) 
use special delete codes for deactivating the records (1968 COBOL). 


3. Deleting Records From an ISAM File as Part of an Update Procedure 


(a) 1974 and 1985 Method. To delete records from an ISAM file using the 
1974 and 1985 standards, we say: 


DELETE ISAM-ISAM-record-name RECORD 
[INVALID KEY imperative statement] 


ee ee ee ee ee er ar cn 


(b) 1968 Method. For 1968 ANS COBOL, the records are not usually phys- 
ically removed from an ISAM file during updating; instead, they are deacti- 
vated. A one-byte field is established as the first item of an ISAM record. For 
normal processing, that field will contain LOW-VALUES, the lowest character 
in the collating sequence for the specific computer, or a blank. To deactivate 
(or delete) a record, we simply code the following: 


2B 2 36 40 a 48 52 56 0 a oH 72 
] [ | 
QC). i 
a 
ut 
+ 
| fm j~ <tt—|t Deactivates the 
t | LO TE 0; "¢ record; programs IH 
q Ll i Le will ignore 
records with 
| HIGH-VALUES 
| | in this position aT 
reer Tt 
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Figure 23.10 
Sample ISAM update program. 
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Suppose a disk record with record key of 00054 has been deactivated by 
moving HIGH-VALUES to the first byte and rewriting the record. Any subse- 
quent random access attempt to retrieve a record with a key of 00054 would 
result in an INVALID KEY condition. Although the record has not been phys- 
ically deleted from the file, it has been deactivated, which means that it is 
not available for random processing. To delete records physically, we must 
create an entirely new file with only active records. This file clean-up pro- 


cedure is performed periodically to eliminate all deactivated records. 
ok ok te EO Rae ak ROR RR EON ER FE Rae ge eRe 


Consider an update program where tape transaction records will be used to change 
existing master records or to create new master records. The transaction records need 
not be in the same sequence as the master disk records. The transaction tape record 
format is as follows: 


1-9 Social Security number 
10-79 Payroll data 
80 Code (1—new employee, 2—update, 3—separation from company] 


The master disk format is as follows: 


1-9 Social Security number (RECORD KEY) 
10-79 Payroll data 


See Figure 23.10 for a suggested solution. 


The IDENTIFICATION DIVISION of programs using disk is the same as 
previously described. The ENVIRONMENT D IVISION merely incorporates the 
specified disk options. Since the disk file is indexed sequential and the records 
are not accessed in sequence, ACCESS 1S RANDOM. The RECORD KEY clause 
is a required entry for indexed files. 

The DATA DIVISION is basically the same as when describing sequential 
files. Note that disk records generally use standard labels. Typically, the first 
data field within each disk record is the RECORD KEY for 1974 and 1985 users; 
a delete code precedes this RECORD KEY for 1968 users. 

The PROCEDURE DIVISION entries indicate the format of an update routine. 
Note, however, that the transaction file’s S0C-SEC-NO must be moved to the 
RECORD KEY field called DISK-SSNO before a disk record may be accessed 
randomly. The READ DISK-A instruction will read into storage a record with 
the same Social Security number as the one that appears in the TRANS-FILE. 


IDENTIFICATION DIVISION, 
PROGRAM-ID, DISKUP. 
* 
ENVIRONMENT DIVISTON: 
INPUT-OUTPUT SECTION. 
FILE-CONTROL: 
SELECT TRANS-FILE ASSIGN TO UT-S-SYSO0G6, 
SELECT DISK-A ASSIGN TO DA-1-SYS005 
ORGANIZATION IS INDEXED 
ACCESS IS RANDOM 
RECORD KEY 18 DISK-SSNO. 
* 
DATA DIVISION. 
FILE SECTION: 
FD TRANS-FILE 
LABEL RECORDS ARE STANDARD. 
O1 TRANS-REC, 
o5 soc-SEC-NO PIC X(9)+ 
05 PAYROLL-DATA PIC X(70)+ 


Figure 23.10 
Continued 
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FD 


ot 


WORK 
Ol 


* 
PROC 


When disks are 

updated directly, 
they are opened 
as I-90 


MAIN 


Accesses the disk 
record that corresponds 
to the Social Security 
number in the 
transaction record 


fp —~_I-0 DISkK-~aA, 


9S CODE-FIELD PIC kK, 
88 NEW-EMPLOYEE 
88 UPDATE 


88 SEPARATION 


VALUE 
VALUE 
VALUE 
DISK-A 
LABEL RECORDS ARE STANDARD 
BLOCK CONTAINS 50 RECORDS, 
DISK-REC, 
0S DISK-SSNO 
OS DISK-DATA 
ING-STORAGE SECTION, 
WORK-AREAS. 
OS EOF 
OS ERR-CODE 

88 NO-ERR 


PIC 
PIC 


KCO)4 
KC7O)¢ 


Pic 2 
PIC 9 


VALUE 0, 
VALUE ©, 
VALUE ©, 


EDURE DIVISION, 
~MODULE, 
OPEN INPUT TRANS-~FILE 


READ TRANS-FILE AT END MOVE 1 To EOF, 
PERFORM CALC-RTN UNTIL EOF = 4, 

CLOSE TRANS-FILE 

DISK-~A, 
STOP RUN, 
~RTNs 
MOVE © 
IF NE 
PERFORM 


TO ERR-CODE. 
~EMPLOYEE 
EW-RT 


ELSE 
IF SEPARATION 
PERFORM DELETE-RTN 


Updates the disk record 
with the transaction 
data 


For 1974 and 1985 users 


ELSE 
IF UPDATE 
PERFORM UPDATE-RTN, 
READ TRANS-FILE AT END MOVE 1 TO EOF, 
NEW-RTNy 
MOWE SOC-SEC-NO TO DISkK-SSNO, 
1OWE PAYROLL-DATA TO DISK-DATA, 
RITE DISK-REC INVALID KEY 
PERFORM ERR-RTN, 
UPDATE-RTN, 
QUE SOC-SEC-NO TO DISK-SSNO, 
[——*LREAD DISK-A INVALID KEY PERFORM ERR-RTN, 
IF NO-ERR 
PERFORM REWRITE-RTN, 
REWRITE-RTNy 
MOVE PAYROLL-DATA TO DISK-DATA, 
REWRITE DISK-REC INVALID REY 
° PERFORM ERR-RTN, 
DELETE-RTN, 
OVE SOC-SEC-NO TO DISkK-SSNO, 
READ DISK-A INVALID KEY 
PERFORM ERR-RTN, 
[F NO-ERR 
[> LOELETE DISK-A RECORD, | 
ERR-RT 
DISPLAY ‘ERROR’+ SOC-SEC-NO, 
OVE 1 TO ERR-CODE, 
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Handling Invalid Keys 

If we attempt to read an indexed record at UPDATE-RTN and get an INVALID 
KEY condition, an ERR-RTN is performed where an error message is displayed. 
This means that a record on the ISAM file with a key equal to the transaction 
key field does not exist. Without any further instructions, control would re- 
turn to UPDATE-RTN, where processing would continue as if there were an 
indexed record corresponding to the transaction record. To avoid incorrect 
processing, we establish a one position ERR-CODE in WORK ING-STORAGE that 
will contain a 0 when there is no error and a 1 when an error occurs. The 
condition name NO-ERR means that ERR-CODE has a zero; that is, there is no 
error. Only if the condition-name NO-ERR exists will processing of the corre- 
sponding ISAM record continue; otherwise, it means we did not find a cor- 
responding ISAM record and we want the next transaction record to be read. 


4. Accessing or Reading From an ISAM File for Reporting Purposes 

‘An ISAM file may be read from or accessed either sequentially or randomly 
for reporting purposes. Suppose, for example, that we have a payroll ISAM file 
that is in Social Security number sequence and contains the name and salary 
for each employee. We may wish to access the file in the following ways: 


(a) Accessing an Indexed File Sequentially. We may print a weekly status 
report that is also in Social Security number sequence, which means that we 
would read or access the disk sequentially. We would begin reading the first 
record on the disk, process it, then read the next, and so on. 

Figure 23.11 illustrates a program that accesses an ISAM file sequentially. 
We use a READ +++ AT END when reading from an ISAM file sequentially. 

Suppose we have an accounts receivable ISAM master file that is in ACCTNO 
sequence. Processing the ACCTS-RECVBLE file 1s exactly the same regardless 
of whether it is an ISAM file accessed sequentially or a sequential file. 

If we wished to print customer bills from the ACCTS-RECVBLE file in as- 
cending alphabetic sequence by NAME, we could still use sequential processing 
even though the file is not initially in sequence by NAME. First, we would sort 
the file into alphabetic sequence by NAME and then print the bills: 


SORT SORT-FILE 
ON ASCENDING KEY NAME 
USING ACCTS-RECVBLE 
GIVING AR-SORTED-BY-NAME. 
OPEN INPUT AR-SORTED-BY-NAME 
OUTPUT PR-FILE: 
READ AR-SORTED-BY-NAME 
AT END MOVE 1 TO EOF. 
PERFORM PRINT-BILLS UNTIL EOF = i+ 
CLOSE AR-SORTED-BY-NAME 
PR-FILE, 
STOP RUN. 
HOR Kk sR Rok RR Rok Re ae oe ke ke etek sock ok ok OR ck ok ok ok ok ok ok oR 
For 1968 ANS COBOL systems, reading an ISAM file sequentially may 
access deactivated records, that is, records with HIGH-VALUES in DELETE- 
CODE. Hence, before processing ISAM records sequentially, a test of DELETE- 
CODE is required: 


TF DELETE-CODE = HIGH-VALUES 
NEXT SENTENCE 

ELSE 
PERFORM PROCESS-RTN» 


When processing an ISAM file randomly, deactivated records with HIGH- 
VALUES in the delete code are not made available. With a sequential READ, 
however, they may be read like any other record. 

eB ER RR OR RR ER EE dob a ak ok RH ee 
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Figure 23.11 IDENTIFICATION DIVISION, 


A program that accesses an PROGRAM-ID. SEQISAM, 
ISAM file sequentially. JAI III III EGER Ra 


* THIS PROGRAM ACCESSES AN INDEXED ¥ 
* SEQUENTIAL FILE SEQUENTIALLY, * 
* DATA IS PRINTED FROM THE FILE IN THE * 
* SAME MANNER AS IF THE FILE WAS ON TAPE. * 


JOFFE GGG 


ENVIRONMENT DIVISION, 
INPUT-OUTPUT SECTION. 


This is a typical FILE-CONTROL, 

SELECT statement SELECT MASTER-FILE ASSIGN TO DA=I-SYS00d 
for an indexed ORGANIZATION IS INDEXED 

file that is to * ACCESS IS SEQUENTIAL 

be accessed RECORD KEY IS ISAM-SS5NO, 

sequentially SELECT PRINT-OUT ASSIGN TO UR-S-SYSQLT. 


* 
DATA DIVISION, 
FILE SECTION, 
FD MASTER-FILE 
LABEL RECORDS ARE STANDARD 
BLOCK CONTAINS 20 RECORDS, 
O1 MASTER-~REC, 


05 ISAN-SSNO PIC 9(9), 
OS ISAM-NAME PIC X(20), 
05 ISAM-SALARY PIC 9(5), 
05 FILLER PIC X(8B), 
FD PRINT-QUT 
LABEL RECORDS ARE OMITTED, 
Ol PRINT-REC PIC X(133), 
WORKING-STORAGE SECTION, 
O1 WORK-AREAS, 
05 EOF PIC 9 VALUE 0, 
0S LINE-ct PIc 9g VALUE ZEROS, 
OS PAGE-cT PIC $99 VALUE ZEROS, 
Ol HDG, 
05 FILLER PIC X(78) 
VALUE ‘PAYROLL SUMMARY REPORT’ 
JUSTIFIED RIGHT, 
05 FILLER PIC X(25) VALUE ‘PAGE’ 
JUSTIFIED RIGHT, 
O85 PAGE-oUT PIC zZzZ9, 
05 FILLER PIC X(27) VALUE SPACES, 
O1 DETAIL-REc, 
05 FILLER PIC X(10) VALUE SPACES, 
oS SSNo-ouT PIC 9(9), 
05 FILLER PIC X(10) VALUE SPACES, 
O35 NAME-OUT PIC X(20), 
05 FILLER PIC K(10) VALUE SPACES, 
05 SALARY-OUT PIC $22 +Z22,22, 
05 FILLER PIC X(64) VALUE SPACES, 
* 
PROCEDURE DIVISION, 
MAIN-MODULE, 
OPEN INPUT MASTER-~FILE 
QUTPUT PRINT-OUT, 


An AT END clause is 
used with an indexed 
file when it is accessed |___» 
sequentially 


PERFORM HDG-RTN, 
READ MASTER-FILE 

AT END MOVE 1 TO EOF, 
PERFORM CALC-RTN UNTIL EOF = 1, 
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Figure 23.11 CLOSE MASTER-FILE PRINT-OUT+ 
Continued STOP RUN. 
CALC-RTN- 


MOYE ISAM-SSNO TO SSNO-OUT. 
MOVE ISAM-NAME TO NAME-OUT- 
MOVE ISAM-SALARY TO SALARY-OUT+ 
WRITE PRINT-REC FROM DETAIL-REC 
AFTER ADVANCING 2 LINES. 
ADD 1 TO LINE-CT- 
IF LINE-CT > 25 
PERFORM HDG-RTN. 
READ MASTER-FILE AT END MOVE 1 TO EOFs 
HDG-RTN+ 
ADD i TO PAGE-CT. 
MOVE PAGE-CT TO PAGE-OUT. 
WRITE PRINT-REC FROM HDG 
AFTER ADVANCING PAGE: 
MOWE ZEROS TO LINE-CT. 


(b) Accessing an Indexed File Randomly. Indexed files may also be read 
randomly. That is, whenever a purchase is made, we may want to access the 
record with the corresponding ACCT-NO directly from the disk to determine 
the current BALDUE. In this case, we would be accessing the disk file randomly 
and inquiring about the status of the record. Since purchase orders are not 
usually entered in any specific ACCT-NO order, we most often access the disk 
randomly for inquiry purposes. Accessing a disk randomly was illustrated in 
Figure 23.10 when we updated the indexed file. Figure 23.12 illustrates the 
PROCEDURE DIVISION for a program that makes random inquiries about the 
status of master disk records. 


(c) Accessing an ISAM File Both Randomly and Sequentially in the Same Pro- 
gram. Suppose you wish to update an ISAM file randomly and then print it 
out in sequence. You may be able to access an ISAM file both randomly and 
sequentially in the same program by using ACCESS 18 DYNAMIC. This enables 
you first to update the disk randomly and then provide a sequential report. 
The updating is performed as in Figure 93.10 except that ACCESS 15 DYNAMIC 
must be specified. The MAIN-MODULE for this procedure is shown in Figure 
93.13, ACCESS IS DYNANIC is available for 1974 and 1985 COBOL users, and 
for some 1968 users as well. 


5, Review of Options for Reading From an ISAM File 
The full SELECT statement for accessing an ISAM disk file would include the 
following options: 


ACCESSING AN ISAM FILE 
SELECT filename ASSIGN TO 


pA-1[-external-name] 
5 snnn-pA -device-no- 1{-external-name] 
ORGANIZATION 18 INDEXED 


SEQUENTIAL 
ACCESS 18 4 RANDOM 
DYNAMIC 


RECORD KEY 1S data-name. 


Figure 23.12 

PROCEDURE DIVISION for pro- 
gram that makes random in- 
quiries about the status of 
master disk records. 


Figure 23.13 
Accessing an ISAM file both 
randomly and sequentially. 
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MAIN-MODULE + 
OPEN INPUT QUERY-FILE+ 
ACCTS-RECVBLE 
OUTPUT PRINT-FILE, 
READ QUERY-FILE AT END MOVE 1 TO EOF, 
PERFORM CALC-RTN UNTIL EOF = 1, 
CLOSE QUERY-FILE ACCTS-RECVBLE PRINT-FILE. 
STOP RUN, 
CALC-RTN, 
MOVE -NO OF QUERY-REC 
ACCTS-RECVBLE-RECORD, 


ACC 
0 ACCT-NO OF 
ACCTS-RECYVBLE 
NYALID KEY DISPLAY ’ERROR’; 
ACCT-NO OF QUERY-REC 

QVE 1 TO ERR-~CODE, 

LF O-ERR 
OVE BAL-DUE TO BAL-DUE-OUT 

OVE ACCT-NO OF ACCTS-RECVBLE-RECORD TO ACCT-OUT 
RITE PRINT-REC 


READ 


ELSE 


ERR-CODE, 
END MOVE 1 TO EOF, 


OVE 0 TO 
QUERY-FILE A 


READ 


PROCEDURE DIVISION, 
MATN-MODULE. 

OPEN INPU RANS-FILE 
-0 ISAM-FILE, 

READ TRANS-FILE AT END MOVE 1 TO EOF, 

PERFORM UPDATE-RTN UNTIL EOF = 1, 

MOVE © TO EOF. 

CLOSE TRANG-FILE ISAM~F 

OPEN INPUT ISAM~FILE 

OUTPUT PRINT-FILE, 

READ ISAM-FILE AT END MOVE 1 TO EOF, 

PERFORM SEQ-PRINT UNTIL EOF = 4, 

CLOSE ISAM-FILE PRINT-FILE, 

STOP RUN. 
LLL CLES oC ee cee eee ere ee ee ee er ren 
* NOTE: ISAM-FILE MUST BE SPECIFIED WITH ACCESS TS DYNAMIC * 
* SINCE IT WILL BE PROCESSED RANDOMLY IN UPDATE-RTN # 
* AND PROCESSED SEQUENTIALLY IN SEQ-PRINT * 
ALLEL LLCO CCL ELL Coe ccc ee SSS eS Se eee ee ern 


LE 


RULES AT A GLANCE 


1. When ISAM files are accessed or read sequentially, use: 
(a) RECORD KEY in the SELECT statement. 
{b) READ 4+» AT END in the PROCEDURE DIVIsroN, 
2. When ISAM file are accessed or updated randomly, use: 


(a) RECORD KEY (move transaction key to ISAM key) 
We eRe oR eo aR He kee OK OR ok oR oR OK OR oe eo ok OK oe ode ok ok 


SYMBOLIC KEY 
NOMINAL KEY 


ee ok Gk OR GR ok ek GR ok GR Gk GR Ok RO kk ak ae ok ook ok ok ok ok 
(b] READ y+. INVALID KEY in PROCEDURE DIVISION 


1968: also use { } <— in SELECT statement 
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6. Updating an ISAM File with Multiple Transaction Records 
for Each Master Record 
When updating ISAM files, we used an update procedure in which we had one 
transaction record per master. Recall that for a sequential update, processing 
multiple transactions per master requires a more complex procedure. This is 
not the case with an ISAM file. We can REWRITE the same master disk record 
each time a transaction record is read. Thus, if 10 transaction records for a 
given master must be used to add 10 amounts to a master record’s balance 
due, we simply retrieve the master record 10 times and add the corresponding 
transaction amount to the master record’s BAL-DUE. 

Thus, an ISAM update is exactly the same regardless of whether there is 
only one transaction record per master or whether there are multiple trans- 
actions per master. 


Summary of ISAM OPERATIONS 
FORMAT OF I/O 


OPERATION ACCESS MODE KEYS REQUIRED STATEMENTS 
Creating an ISAM file — Sequential RECORD KEY WRITE +++ INVALID KEY 
Reading from or Sequential RECORD KEY READ «++ AT END 
accessing an ISAM file 
Reading from or Random RECORD KEY READ +++ INVALID KEY 
accessing an ISAM file 
1968: J NOMINAL KEY 
SYMBOLIC KEY 
ook ok ok ck ok ck oR Gk ok oR ok 
Updating an ISAM file Random RECORD KEY OPEN I-0 
READ .++ INVALID KEY 
REWRITE +++ INVALID 
KEY 
kok ok ok oR oR OR KR ok ok ok 
1968: | NOMINAL KEY 
SYMBOLIC KEY 
Self-Evaluating Quiz 1. A disk file may be opened as ‘ yor 


9, If OPEN I-0 FILE-x is a coded statement, then FILE-X must bea 


3. (T or F] Records to be added to a tape file are generally inserted in their proper 


place on the same tape. 
4. (T or F) Records can be added directly to a disk file. 
5. A unique field called a 
is used to locate records on the disk. 


6. To access records in an indexed file randomly, we move the transaction record’s 


key field to the 
7. When a record is to be deleted from an indexed field, we —___. 
A key field, when specified, must be 1 


9, A WRITE +s. ———— 
the identical key field already exists in the output file. 


gS 


within each record in an indexed sequential file 


option enables the programmer to test if a record with 


Solutions 
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. The INVALID KEY option can be part of a______ or_________ statement. 
. The INVALID KEY option tests the validity of the —___ ky. 
_ Tf READ FILE-X INVALID KEY PERFORM ERROR-1 is executed, ERROR-1 will be 


performed if 


. (T or F) ISAM files are typically created sequentially. 

. A REWRITE statement is used to ‘i 

. If a record is to be added to a disk file, a (WRITE, REWRITE) statement is used. 

. If REWRITE REC-X is executed, and REC-x is part of FILE-x, then FILE-¥ must 


have been opened as and a command must have been used 
to bring the appropriate record into storage. 


. An update program is : 
. The three types of update procedures generally required include ____, 


, and 


. To change an existing record requires the use of the _______ verb, 
. Consider the following input tape record: 


1 Code (1—new account; 2—update of old account; 3—delete account) 
2-5 Transaction number 
6-80 Transaction data 


Consider the following indexed master disk record: 


|-4 ‘Transaction number 
5-80 Transaction data 


Write a PROCEDURE DIVISION routine to update the master file with input data. 
Stop execution if an INVALID KEY condition is encountered. 


. INPUT; OUTPUT; T-0 
. disk 


F—In general, a new tape must be created. 
T 


. RECORD KEY 


RECORD KEY for 1974 and 1985 users 
NOMINAL KEY (or SYMBOLIC KEY] for 1968 users 


. Say DELETE record-name for 1974 and 1985 users 


specify a delete code for 1968 users 


. unique; nonblank 
+ INVALID KEY 


READ; WRITE (REWRITE) 


. RECORD 
. arecord cannot be found in F1L.E-% with the key field designated in the transaction 


file or two records were erroneously written on the file with the same KEY; (this 
can happen if the file was written without the use of an INVALID KEY option) 


«a 

. alter previously existing disk records 
» WRITE 

16. 
. the process of making a file current with new transaction data 


1-0; READ 


creation of new records; deletion of some old records; changes to some existing 
records 


. REWRITE 
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20. PROCEDURE DIVISION, 
MAIN-MODULE. 
OPEN INPUT TRANS 
1-0 DISK-FILE, 
READ TRANS AT END MOVE i TO EOF. 
PERFORM CALC-RTN UNTIL EOF = 1s 
CLOSE TRANS 


DISK-FILE+ 
STOP RUN, 
CALC-RTNs 
MOVE TRANS-KEY TO DISK-KEYs _ <—|This is the 
IF CODE-X = 1 RECORD KEY for 
PERFORM NEW-ACCT 1974 and 1985 
ELSE users; this is 
IF CODE-2 = 2 the NOMINAL or 
PERFORM UPDATE-RTN SYMBOLIC KEY for 
ELSE 1968 users. 


PERFORM DELETE-RTNy 
READ TRANS AT END MOVE 1 TO EOFs 
NEW-ACCT+ 
MOVE TRANS-DATA TO DISK-DATAs 
WRITE DISK-REC 
INVALID KEY PERFORM ERR+ 
UPDATE-RTN, 
READ DISK-FILE 
INVALID KEY PERFORM ERR, 
MOVE TRANS-DATA TO DISK-DATAy 
REWRITE DISK-REC 
INVALID KEY PERFORM ERR, 
DELETE-RTN+ 
READ DISK-FILE 
INVALID KEY PERFORM ERR. 
DELETE DISK-FILE RECORD» 
ERR. 
DISPLAY ‘ERROR’ + TRANS-KEYs 
CLOSE TRANS DISK-FILE. 
STOP RUN, 


B. Virtual Storage Access Method (VSAM) for IBM Users 


In many IBM installations, ISAM is being replaced by VSAM as a method of 
accessing indexed files. VSAM, an acronym for Virtual Storage Access Method, 
is an access method developed by IBM as an optional implementation of the 
1974 ANS standard designed specifically for virtual storage computers. VSAM 
has the potential for being even more significant in the 1985 ANS COBOL 
standard. Both ISAM and VSAM are used extensively in business. If you are 


not using VSAM, you may skip to Section V. 


1. Advantages of VSAM 
The primary advantages of VSAM include: 


ADVANTAGES OF VSAM 
The ability to use alternate keys for accessing records. 
The ability to establish a file with variable-length records. 
More efficient performance and data organization. 
The ability to process records both sequentially and randomly 


(called dynamically) in a single run. (Most systems enable ISAM 
files to be processed dynamically as well.) 


ie Re 
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2. Physical Differences Between ISAM and VSAM 


(a) Index Structure. The index structure of VSAM files is handled using an 
operating system concept referred to as virtual storage; handling indexes using 
virtual storage is far more efficient than using main storage, as is the case 
with ISAM files. 


(b) Overflow Areas. ISAM files store new records in overflow areas when 
primary locations on a disk are no longer available. This requires the ISAM 
file to be periodically reorganized or “cleaned up” so that records in overflow 
areas are moved to their proper physical locations on the disk. If the ISAM 
file is not reorganized often enough, which happens when frequent updating 
is performed, then access time can be adversely affected. VSAM reduces this 
particular problem by initially leaving blank space in a newly created file so 
that additional records can be placed in their proper location. This reduces the 
need for overflow areas and makes for more efficient access of records. 

COBOL programming differences between ISAM and VSAM processing are 
minimal, except that there are procedures that can be performed using VSAM 
that are not always available using ISAM. 

The following are the main elements of VSAM. The similarities and differ- 
ences with ISAM are indicated. 


3. COBOL Coding Using VSAM Files 

(a) SELECT Statement for VSAM Processing: Same as ISAM Using 1974 and 
1985 ANS COBOL Compilers. 

(1) Specifying Indexed Organization for ISAM and VSAM 


ISAM: Indexed organization may be denoted in the ASSIGN clause (with an 1) 
or in an ORGANIZATION clause: 


CORGANIZATION IS INDEXED], 


SELECT ISAMFILE ASSIGN TO DA-3340-1-SYS00g | 


Thus, on some systems the ORGANIZATION clause is not required; the 
ASSIGN clause may designate a file as INDEXED. 


VSAM: Indexed organization is always denoted by an ORGANIZATION clause, 
not an ASSIGN clause: 


SELECT VSAMFILE ASSIGN TO DA~3340-SYS008 
ORGANIZATION IS INDEXED 


(2) ACCESS MODE: Same as ISAM for 1974 and 1985 ANS COBOL With 
ISAM processing, for 1968 ANS COBOL users, ACCESS MODE is typically either 
RANDOM or SEQUENTIAL. 1974 and 1985 compilers (and some 1968 compilers) 
allow a third alternative (ACCESS MODE 1s DYNAMIC) to indicate an ISAM file 
that may be accessed both randomly and sequentially. The word MODE is op- 
tional; we have not used it in ISAM programs but it is permissible. 

With VSAM processing, it is also possible to designate an indexed file as 
one that will be accessed both randomly and sequentially within the same 
program, Suppose, for example, a program is to update an indexed file ran- 
domly and then print totals that are computed from a sequential reading of 
the indexed file. To accomplish this using VSAM, we can specify access as 
both sequential and random using ACCESS MODE 1S DYNAMIC. When accessing 
the file sequentially, we use READ +.» AT END, and when accessing it randomly 
in the same Program, we use READ «+. INVALID KEY, 
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(3) Accessing VSAM Records Randomly: Same as ISAM_ To access an ISAM 
file randomly, we specify a RECORD KEY field that uniquely identifies the 
desired indexed record. Then, we move a transaction key field value to the 
RECORD KEY entry (1974 and 1985). This same procedure may be used with 
VSAM. 

Thus, to find a record in a VSAM file with the same key that appears in a 
transaction record, we move the transaction key to the RECORD KEY of the 
VSAM file and then read the VSAM file: 


SELECT VSAM ASSIGN TO DA-8433-SYS009 
ORGANIZATION IS INDEXED 
ACCESS IS RANDOM 
RECORD KEY 1S Y-EMPNO+ 


+ 


READ TRANS AT END MOVE 1 TO EOF. 
PERFORM CALC-RTN UNTIL EOF = 1+ 


+ 
’ 


CALC-RTN+ 
MOVE T-EMPNO TO Y-EMPNO+ 
READ W-FILE INVALID KEY PERFORM ERR-RTN+ 
For random accessing, then, where only one KEY is specified in the SELECT 
statement, the key field in the transaction record may be moved to the RECORD 
KEY to obtain the desired record from the indexed file. 
The following are additional options available only with VSAM: 


(4) ALTERNATE RECORD KEY: A VSAM Option Only For VSAM processing, 
an ALTERNATE RECORD KEY may also be specified. Thus, indexed files may 
be created with, and accessed by, more than one identifying key. When creat- 
ing VSAM files where alternate record keys are specified, two or more indexes 
will be created. In summary, to access a VSAM record, we may: 


1. Move a transaction record’s key to the RECORD KEY of the VSAM file 
and READ the indexed file, or 


2. Move a transaction record’s alternate key to the ALTERNATE KEY of the 
VSAM file and READ the indexed file. 


Suppose an indexed file has two keys, a primary RECORD KEY» SSNQ, for 
Social Security number, and an ALTERNATE RECORD KEY, EMP-NAME, for em- 
ployee name. This VSAM file can be accessed randomly using the following 
SELECT statement: 


SELECT PAYROLL ASSIGN TO DA-3340-SyYS009 
ORGANIZATION IS INDEXED 
ACCESS MODE IS RANDOM 
RECORD KEY IS SSNO 
ALTERNATE RECORD KEY IS EMP-NAMEs 


If a transaction record contains the employee's name, not the Social Security 
number, the record in the indexed file may still be retrieved. This is not 
possible with an ISAM file where only SSN0 is specified as a RECORD KEY. To 
retrieve the desired record from the disk using VSAM, we would move the 
transaction employee name to EMP-NAME and read the PAYROLL file: 


MOVE SPACES TO SSNO, 
MOVE T-NAME TO EMP-NAME- 
READ PAYROLL 
INVALID KEY DISPLAY ‘NO CORRESPONDING NAME ON PAYROLL’. 
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(5) ALTERNATE RECORD KEY WITH DUPLICATES: A VSAM Option Only The 
ALTERNATE RECORD KEY may also be a field that is not unique, such as DEPT - 
NO. To indicate that this alternate key is not unique, we code: 


ALTERNATE RECORD KEY IS DEPT-NO WITH DUPLICATES. | 


Specifying an ALTERNATE RECORD KEY that is not unique enables the pro- 
grammer to access groups of records. Suppose the RECORD KEY is SLSNO, for 
salesperson number. Suppose a transaction record has a SLS5NO of 123 and 
DEPT-NO of 5. We could move the transaction record’s $LSNO to the indexed 
file’s RECORD KEY, SLSNO, and the transaction record’s DEFT-NO to the AL- 
TERNATE RECORD KEY, DEPT-NO, on the VSAM file. A READ would bring into 
storage the first record encountered in DEPT-NO 5 with a SLSNo of 123. If the 
transaction record has no SLSNO and a DEPT-NO of 5 is moved to the ALTER ~ 
NATE RECORD KEY, a READ will bring into storage the first record with DEPT~ 
NO of 5. The following READ will bring into storage the next record with a 
DEPT~NO of 5, and so on. 
The ALTERNATE RECORD KEY gives COBOL some data base management 
capability. That is, we can retrieve groups of records as well as individual 
records using ALTERNATE RECORD KEYs. All records with DEPT-NO of 5, for 
example, can be accessed as a group sometimes referred to as an inverted file, 
The full format for the SELECT statement using VSAM files is: 


SELECT file-name 
ASSIGN TO device-specification 


[eescnue integer (eee. | 


ORGANIZATION IS INDEXED 


SEQUENTIAL 


ACCESS MODE 1S 4 RANDOM 
DYNAMIC 


[RECORD KEY 18 data-name] 


[aureeware RECORD KEY IS data-name 


[WITH our cares] | bid 


(b) DATA DIVISION Entries for VSAM Processing. 


(1) Deleting Records: Use the DELETE Instruction as with ISAM for 1974 and 
1985 Systems A VSAM file will physically delete records. 


(2) BLOCK CONTAINS: Not Included with VSAM Files A BLOCK CONTAINS 
clause indicating the blocking factor is coded for ISAM files. For VSAM files, 
blocking is handled by the system. 

Refer back to Figure 23.10, which illustrates random access of an ISAM file. 


(3) Using the START Statement with ISAM and VSAM Files You have seen 
that all input/output Processing for ISAM and VSAM files is similar, The 
START verb may also be used for both ISAM and VSAM. 
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Using the START statement, it is possible to begin processing indexed records 
at any point not necessarily at the beginning of the file. In VSAM, START is 
coded as follows: 


EQUAL TO (=) 

GREATER THAN (>) 
LESS THAN (<)} 

NOT LESS THAN (NOT <) 


START file-name fe 1s dataname| 


[INVALID KEY imperative-statement] 


START INVENTORY KEY IS > LOW-LIMIT. 


Assume that LOW-LIMIT has a value of 125. If KEY 18 PART-NO is specified in the 
SELECT clause, the initial READ will bring into storage the first record in the file with 
PART-NO greater than 125. 

START may also be used with ISAM processing, but only with the equal 
condition. Thus, we could code the following: 


START INW-FILE KEY = LOW-LIMIT. 


To use the START with ISAM files, the file must be designated with ACCESS IS 
SEQUENTIAL. The READ statement will then retrieve the first record in which the KEY 
is equal to the identifier specified, in this case 125. 


To use the START with VSAM files, the file may be designated with ACCESS 
1S SEQUENTIAL or ACCESS 1S DYNAMIC. If ACCESS is SEQUENTIAL, the READ 
is used to retrieve the first record with KEY equal to, less than, or greater than 
the identifier, depending on the codin, of the START. If ACCESS is specified as 
DYNAMIC for VSAM, [READ file-name NEXT is used to obtain the first record 
in sequence. The READ «++ NEXT signals the computer that we are accessing 
the VSAM file sequentially for this procedure. 

The following lists major coding differences between VSAM and ISAM. 


a a 
ISAM VSAM 
Record Type Fixed Length Fixed or Variable Length 
Blocking Programmer-suppliéd System handles blocking 


[BLOCK CONTAINS 
clause} 

1968: A one-byte DE- 
LETE-CODE precedes the 
actual ISAM record; 
records are deactivated 
by moving HIGH-VAL - 
UES to the DELETE- 
CODE and rewriting. 
1974 and 1985: Records 
are deleted with a DE- 
LETE instruction 

Single RECORD KEY 


Deleting Records DELETE file-name 


RECORD 


Keys Can have ALTERNATE 
RECORD KEYs and in- 
dexes; can have ALTER- 
NATE KEYs that are not 
unique (that is, WITH 
DUPLICATES) 
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To begin START filename START file-name 
processing at KEY = data-name = 

some point other KEY 2> $ data-name 
than the begin- < 


ning of the file 


SUMMARY OF VSAM As CompPARED witH ISAM 


. VSAM is more efficient. 

VSAM conforms to the 1985 ANS standard. 

. VSAM can process variable-length records. 

. With VSAM, the system handles blocking. 

. VSAM files are reorganized as they are updated—additional records 

are placed in their proper location and not in an overflow area. 

6. A VSAM file can be accessed both sequentially and randomly in the 
same program, using ACCESS IS DYNAMIC. 

7. ALTERNATE indexes and RECORD KEYs can be established. 


8. ALTERNATE RECORD KEYs need not be unique, allowing for the 
processing of groups of records with the same key field value. 


ARwWNH 


—| 


One major disadvantage of VSAM, however, is that job control and oper- 
ating system requirements are very complex. Check with your computer. cen- 
ter to determine the precise format for job control when using VSAM files. 

VSAM is not simply used for indexed files, but can also handle the following 
three types of file organization: 


TYPES OF FILE ORGANIZATION UsING VSAM 
1. Sequential files—called entry-sequenced data set 
2. Indexed files—called key-sequenced data set 
3. Relative files—called relative-record data set (see Appendix I) 


Appendix I will include more details on the actual execution of programs 
using VSAM files. This Appendix also includes relative and direct methods of 
disk file organization and access, 


V. Using an Indexed Disk File as an Alternative 
to Storing Tables For Look-Up Purposes 


Note that a table of data may be stored as an indexed disk file. In this case, it 
would not be necessary to read the entire table into storage using an OCCURS 
clause. Rather, we could access each table entry from the disk as needed. We 
would use the key field in each input record to call into storage the corre- 
sponding table entry necessary for each input record. The disk would serve as 
auxiliary storage where a given disk record would be called into primary stor- 
age as needed. 

The main advantage of processing tables this way is to save internal storage. 
Suppose we have the following table entries: 


T= ebP T-TAX 
PIC 9($) PIC Vaeg 


Suppose the total number of zip codes is 40,000. Storing 40,000 zip codes 
and their corresponding tax rates would require 320,000 positions of storage 
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(40,000 x 8). Many systems will not allot that much storage for an individual 
program and, even if they did, the program would not run very efficiently. 

Since accessing disk records is fast {although not as fast as accessing data 
from internal storage), we could store the zip code table on disk and call into 
storage each zip code and its corresponding tax rate as needed. In this way, 
we would require only eight positions of storage for the disk area: 


SELECT INDEXED-TAX-TABLE ASSIGN TO DA-1-SYS8004 
ORGANIZATION IS INDEXED 
ACCESS IS RANDOM 
RECORD KEY IS T-ZIP. 


NOTE: NOMINAL KEY OR SYMBOLIC MAY BE USED FOR 1968 
IBM AND IBM-COMPATIBLE SYSTEMS 


OK OK OF 


FD INDEXED-TAX-TABLE 
LABEL RECORDS ARE STANDARD. 
O1 DISK-REC. 
05 T-ZIP PIc 9(5), 
o5 T-TAX Pic Yagd, 


To obtain the INDEXED-TAX-TABLE record desired, we would code: 
CALC-RTNs 


+ 


MOVE ZIP-OF-IN-REC TO T-ZIP. 
READ INDEXED-TAX-TABLE 

INVALID KEY GO TO CALC-RTN-EXIT. 
MOVE T-TAX TO TAX-OUT. 


CALC-RTN-EXITs 


+ 
’ 


This is an alternative to traditional table handling as we learned it. Using 
the above, we do not need an OCCURS clause at all. For each input record, we 
retrieve the corresponding indexed tax table record from the disk. Only one 
tax table record is in storage at any given time. Although this saves storage, 
it means that a disk with the tax table information must be on-line during 
the processing of the program. 


Self-Evaluating Quiz 


1. VSAM is an abbreviation for 

2, VSAM was developed by 

3. VSAM is a method of accessing —_—_—. files. 

4. In a SELECT statement, the indexed organization is specified in a(n) 
clause. 


5. (T or F) Both ISAM and VSAM files use RECORD KEY. 
6. (T or F) Both 1974 ISAM and VSAM files use NOMINAL or SYMBOLIC KEY. 


7. To process an indexed file both sequentially and randomly within the same pro- 
gram, we code: ACCESS 15 ——__. 

8. (T or F) It is not always possible to access a file both sequentially and randomly 
using ISAM. 


9. To delete records in an ISAM file using a 1974 or 1985 ANS COBOL compiler, we 
code 
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10. To delete records in a VSAM file we code . 

11. (T or F) Indexed records are added and deleted more efficiently using a 1974 or 
1985 ANS COBOL compiler rather than a 1968 ANS COBOL compiler. 

12. To access records by more than one index in a VSAM file, we code _ ; 

13. (T or F) If an ALTERNATE RECORD KEY is used to access a VSAM file, the values 
in this field need not be unique. 

14. Suppose we wish to sequentially access a VSAM file that has been specified with 
an ACCESS IS DYNAMIC clause. We would use the ——_——— format of the reap 
statement. 

15. To begin processing an indexed file sequentially at some point that is not at the 
beginning of the file, we use the statement. 


Solutions 1. Virtual Storage Access Method 
2. IBM 
3. indexed 
4. ORGANIZATION (or, for ISAM, in an ASSIGN clause} 
5. T 
6. F—For VSAM and 1974 ISAM files, the transaction key would simply be moved 


to the RECORD KEY prior to reading from the indexed file. There is no need to define 
a NOMINAL or SYMBOLIC KEY ina SELECT statement, 
7. DYNAMIC 


8. T—Check your specifications manual to sce if you can use ACCESS IS DYNAMIC 
with an ISAM file. 


9. DELETE (file-name} 
10. DELETE (file-name} 


11. T—Records are physically deleted with a DELETE command using a 1974 or 1985 
compiler, but only deactivated using a 1968 compiler. 


12, ALTERNATE RECORD KEY 18 data-name 

18, T—We could code it WITH DUPLICATES to indicate that it is not unique. 
14, READ 4... NEX 

15. START 


CHAPTER SUMMARY 
I. Disk Concepts 
A. Physical Features of a Disk Pack 
1. A disk pack consists of a series of platters or disks, 
2. Each platter has two recording surfaces. 
3. Read/write mechanisms of disk drives can read the bottom surface 
of one disk and the top surface of the next one. 
4. Data is recorded on each disk pack on concentric tracks like a phono- 
graph record. 
5. Some disks have sectors as well. 
6. Disks can be addressed by surface, track, and sector number. 
B. Disk Drive 
Can read and/or write data from a disk pack. 
C. Methods of Disk File Organization 
1. Sequential—just like a tape. 
2. Indexed—each record’s address is stored in an index. To locate a 
record, its address is looked up in the index using: 
(a) Indexed sequential access method (ISAM) 
(b) Virtual storage access method (VSAM) 
Newer, more efficient; permits alternate keys 
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3. Relative 
Each record is stored in a physical location according to its key field 
(e.g., ifa key = 006, the record will be placed in the sixth location 
in the disk file). 

4. Direct 

A key field is converted into a physical location using an algorithm. 
Indexed files are discussed in this chapter; relative and direct files are 
discussed in Appendix I. 

Il. Indexed File Processing 
A. ISAM 

1. ENVIRONMENT DIVISION 

SELECT clause specifies: 

Method of organization (indexed) 

ACCESS IS RANDOM—for updates, inquiries, and so on 

IS SEQUENTIAL—for reporting, some updating 

RECORD KEY—key field in each disk record that sets up an index 
2. DATA DIVISION 

(a) LABELS are usually STANDARD. 

(b) Records are usually blocked. 

(c) Key field is usually the first field in the record. 

(d) Delete code used for 1968 ANS COBOL. 

3. PROCEDURE DIVISION 

(a) Creating an ISAM file 

(1) Write the record. 

(2) Use INVALID KEY clause with WRITE statement—INVALID 
KEY is executed (a) if key is blank, (b} if a record with the 
same key was already created, (c) if record is out of sequence. 

(3) ISAM files are created with an ACCESS 1S SEQUENTIAL 
clause in the ENVIRONMENT DIVISION. 

(b) Reading from an ISAM file—in sequence 

(1) Same as all sequential processing. 
(2) Use READ +++ AT END. 
(c) Accessing an ISAM file randomly 
(1) ACCESS IS RANDOM in SELECT clause. 
(2) If ISAM record is to be updated, use OPEN 1-0. 
(3) Transaction key is moved to the RECORD KEY and READ «+ 
INVALID KEY is used. 
(4) To write updated records back onto the disk, use REWRITE. 
B. VSAM 

1. Most processing is the same as ISAM. 

2. Can have ACCESS 18 DYNAMIC in SELECT clause for sequential and 
random access during one run (sometimes this is permitted with 
ISAM, too). 

Can have ALTERNATE RECORD KEY in SELECT clause. 
Usually no BLOCK CONTAINS clause is used. 

With a START statement, can begin processing of indexed file 
sequentially at some point other than the beginning. 


AE 


CHAPTER SELF-EVALUATING QUIZ 


1. A disk pack has a series of platters, each of which has (no. recording surfaces. 
2. Data is recorded on a disk in concentric —__—. 


Solutions 
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Each track represents bytes of data as a series of magnetized 


. (T or F) Because a disk has a series of recording surfaces, it is possible to access 


disk records more quickly than tape records. 
(T or F] Maintaining control of disk files is easier than maintaining tape files. 


6. For direct access of disk files, two methods of indexed file organization are 


and 
(T or F) Disks may not be processed sequentially, 


8. A group of input transaction tape records is used to create an indexed sequential 


10. 
ail 


13. 


14, 


15. 


eS 


. For 1974 and 1985 compilers, a 


disk file. Code the ENVIRONMENT DIVISION SELECT clause entries. 

An update program will use a transaction tape to update records in a master disk 
file. The transaction tape is not in the same sequence as the master disk file. Code 
the ENVIRONMENT DIVISION SELECT clause entries, 

(T or F) An indexed file is usually created in sequence. 

When writing a record onto disk, a(n) clause should be used to test for 
a key that is blank, not in sequence, or the same as one already in the indexed 
file. 

command can be used to delete a record 
from an indexed file. 

To update an ISAM file, the OPEN statement must have the following form: 


OPEN _____ file-name. 


(T or F) An indexed file cannot be accessed both randomly and sequentially in the 
same program. 

(T or F) One of the major advantages of ISAM over VSAM is that ISAM allows the 
use of alternate keys to access records, 


Page 

. two—except for the first and last disks, which have only one recording sur- 614 
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F—Since changes can be made directly to an existing disk file, there is no 620 
automatic backup file. 
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PRACTICE PROGRAM 


Write a program to update a master transaction indexed disk file. The problem defi- 
nition appears in Figure 23.14. 

Notes 

1. Tape records are to update amount fields in the disk file. If a tape record has the same trans- 


action number as a disk record, process it; if not, display the tape record as an error. 
9. Disk records are indexed; tape records are not in sequence by transaction number. 


See Figure 23.15 for the solution. 


KEY TERMS 

ALTERNATE RECORD KEY INVALID KEY 

Cylinder 1-0 file 

DELETE LOW-VALUES 

Direct file organization Moving-head magnetic disk 

Disk drive RECORD KEY 

Disk pack Relative file 

Fixed-head magnetic disk START 

Index Track 

Indexed file Virtual storage access method (VSAM) 


Indexed sequential access method (ISAM) 


REVIEW QUESTIONS 


I. True-False Questions 
1. (T or F] Indexed sequential files are frequently referred to as ISAM files. 


2. (T or F) An indexed sequential file is usually created with ACCESS IS RANDOM but 
read with ACCESS 18 SEQUENTIAL. 
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Figure 23.14 systems Flowchart 


Problem definition for the 
Practice Program. 


MASTER- DISK (I/O) a 
3 ‘caesallt 


DETAIL- TAPE 


Vv 


(Transaction File) 


MASTER-DISK (I/O) Record Layout 


1 


56 10 


DETAIL-TAPE Record Layout 
(Transaction File) 


10. 


a, 


TorF 


T or F 
DA-~231 
T or F 
'T or F 


T or F 
is to be 


T or F 
Tor F 
T or F. 


56 10 11 
1 = Delete master disk record 


If the ACCESS IS SEQUENTIAL clause is included in the SELECT statement, 


then the file may later be accessed randomly if a KEY field is specified. 


) A RECORD KEY could not be used with the following assicn clause: 
4-8-OPT. 


The REWRITE clause may only be used with an 1-0 file. 
The INVALID KEY clause may be used with READ or WRITE statements, 


LOW-VALUES is placed in a delete code of an 1-0 disk record if the record 
deactivated using the 1968 ANS COBOL standard, 


The RECORD KEY entry must be a WORK ING-STORAGE item. 
The RECORD KEY entry is only used with ISAM files. 
Disk files are never accessed sequentially, 


Il. General Questions 
1. Write the ENVIRONMENT DIVISION entries for the creation of an indexed sequential 


file called DISK-FILE, 


2. Write the ENVIRONMENT DIVISION entries for an indexed file called IN-FILE that 


is in transaction number sequence but will be accessed by invoice number. 
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Figure 23.15 
Solution to the Practice 
Program. 
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1 IDENTIFICATION UIVISTON 

2 PROGRAM 3. 

3 AUTHOR. | CHRISTOPHER HAMMEL, 

4 ENVIRONMENT 0 ‘ON 

5 INPUT-OUTPUT oN 

é FILE-CONTRIK. 

Z SELECT Has DISK ASSIGN TO_DISK7 

8 oR ON 1S INDEXED 

9 3 RANDOM 

10 Yy 1S TRANS-NO-OISK. 

iL PE ASSIGN TO DATAB, 

12 

13 

14 SK 

15 RECORDS ARE STANDARD 

He AINS 5O RECORDS 

18 -NO-DISK PIC 94 

19 PIC 999V99 
20 “TAPE 

21 RDG ARE STANDARD 
22 

23 PIC 93) 

24 PIC 999V99 

25 PIC 9. 

26 VALUE 1. 
27 

28 

29 PIC 9 VALUE ZERO. 
30 

31 

32 

33 

34 13 40 MOVE 1 TO EOF 

35 =| CALC-RIN-EXIT UNTIL EOF = 1 
36 CLOSE 

37 

38 sro 

39 CALC-RT! 

40 PE TO TRANS-NO-DISK 

ai INVALID KEY 

42 DISPLAY ‘INVALID TAPE RECORD’ 
43 TAPE-RE: 

ag GO TO CALC-RTN-EXIT. 

45 IF =-1T 

46 E MASTER-DISK INVALID KEY 

47 DISPLAY ‘ERROR IN DELETE’ 
43 ELSE 

49 AOR AMT-TAPE TO AMT 

90 WRITE DISK-REC INVALID KEY 

51 DISPLAY ‘ERROR IN REWRITE’ 
52 CALC-RTN- EXIT 

53 READ DETAIL“ TAPE AT END MOVE 1 TO EOF 


3. Explain the purpose of the REWRITE 


statement in a COBOL program. 


4. Explain the use of the INVALID KEY option. 


5. When is a file opened as 1-0? 


III. Validating Data 
Modify the Practice Program so that i 


t includes coding to (1) test for all errors and 
(2) print a control listing of totals (records processed, errors encountered, hash total). 


EE DEBUGGING EXERCISES 


Consider the following coding: 


PROCEDURE DIVISION. 
MAIN-MODULE. 


OPEN INPUT TRANS-FILE I 0 INDEX-FILE+ 
READ TRANS-FILE AT END MOVE 1 TO EOF. 


PERFORM CALC-RTN UNTIL EOF = 


CLOSE TRANS-FILE 
INDEX-FILE+ 
STOP RUN» 
CALC-RTN+ 


te 


MOVE TRANS-NO TO DISK-TRANS-NO. 
READ INDEX-FILE AT END MOVE 1 TO EOF2. 


IF TRANS-CODE = 


ryt 
x 


DELETE DISK-TRANS-REC 


REWRITE DISK-TRANS-R 
MOVE TRANS-AMT TO DISK-A 
WRITE DISK-TRANS-REC TINY 

MOVE ‘ERROR’ 

WRITE PRINT-REC FROM 
READ TRANS-FILE AT END M 


EC. 
MTs 
ALID KEY 


TO MSSGE 


ERR-REC 
OVE i TO EOF. 


1. A syntax error occurs on the line associated with the OPEN statement 


correct the error. 


. Find and 


PROCESSING INDEXED FILES USING ISAM AND VSAM 653 


2. A syntax error occurs on the line associated with READ INDEX-FILE. Find and 
correct the error. 

3. You find that the INVALID KEY clause associated with WRITE DISK-TRANS-REC is 
executed incorrectly. Find and correct the error. 

4, After executing the program, you print INDEX-FILE for checking purposes. You 
find that records which were to be deleted were not deleted. Find and correct the 
error, 


PROGRAMMING ASSIGNMENTS 


Code the following programs using an ISAM file or a VSAM file, depending on what 
can be used at your computer center. Display all tape and updated disk records for 
debugging purposes, 

The one-position blank at the beginning of each record is a delete code if your system 
deactivates records by moving HIGH-YALUES to this position. 


1. Write a program to update a master disk file that is indexed. The problem definition 
is shown in Figure 23.16. 


Figure 23.16 Systems Flowchart 
Problem definition for Pro- 
gramming Assignment 1. 


CUSTOMER-TRANS 
80-position records 


CUSTOMER-MASTER (indexed) 
Seer era 70-position records 

standard labels 

20 records/block 


CUSTOMER-TRANS Record Layout 


80 


kL 2 67 


Delete Code or Blank 
(depending on system) 


Notes 

(a) Customer number is the key field for the disk file. 

{b) Do not create a disk record for any tape record that does not have a corresponding master 
record. 

(c) For all tape records with corresponding master records (these are master records to be 
updated}, add the amount of purchase from the tape record to the amount owed in the disk 
record and update the date of last purchase. 

(d) There need not be a tape record for each master record, 

(e) Tape records are not in sequence, 
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Figure 23.17 
Problem definition for Pro- 
gramming Assignment 2. 
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2. Write a program to create an indexed master payroll file from tape records. 
problem definition is shown in Figure 23.17. 
Notes 


{a} Employee number is the key field for the disk file. 
(b) Before placing a record on disk, add 5% to the employee’s salary. 


3. Write a program to create an indexed master file from tape records. The problem 


definition is shown in Figure 23.18. 


Notes 


(a) A table of product numbers and corresponding unit prices is to be created in storage from 


PRODUCT-MASTER. There are 50 product numbers. 
(b) Customer number is the key field for the disk file. 
(c] Amount owed = Quantity purchased x Unit price (from table) 


(d) Perform a table look-up using the product number from a PURCHASE -TRANS disk record 


to find the corresponding unit price in the table. 


Systems Flowchart 


PAYROLL-MASTER (indexed) 
80-position records 
standard labels 

20 records/block 


PAYROLL-FILE 
80-position records 
standard labels 

20 records/block 


PAYROLL-LISTING 


PAYROLL-FILE Record Layout 


PAYROLL-MASTER Record Layout 


1° 2 30 31 36370 71 72 


Delete Code or Blank 
(depending on system) 
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PAYROLL-LISTING Printer Spacing Chart Figure 23.17 Continued 
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Figure 23.18 | Systems Flowchart 
Problem definition for Pro- 
gramming Assignment 3. 


PRODUCT-MASTER 
80-position records 
standard labels 

30 records/block 


CUSTOMER-MASTER (indexed) 
21-position records 
standard labels 
pase 50 records/block 
PURCHASE- TRANS 
50-position records 
standard labels 
30 records/block 


PRODUCT-MASTER Record Layout 


PURCHASE-TRANS Record Layout 


28 29 


CUSTOMER-MASTER Record Layout 


{ i 67 14 15 19 20 i. 


Delete Code or Blank 
(depending on system) 
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4. A disk file contains the following table records: 


1 Delete code or blank (if needed) 
2-3 State number 
4-5 County number 
6-8 Tax rate .XXX 
9-11 Not used 
Labels are standard, the blocking factor is 100. State number is the key field. 


Write a program to create an indexed disk file from the following tape records: 


1-5 Customer number 

6-25 Customer name 
26-28 Quantity 
29-33 Unit price XXX.XX 
34-35 State number 
36-37 County number 

38 Not used 

Labels are standard; the blocking factor is 50. 


The format for the output disk records is as follows: 


1 Delete code or blank (if needed) 
9-38 (Same as tape positions 1-37] 
39-46 Amount owed (KXXXXX.XX) 
47 Not used 
Labels are standard; the blocking factor is 75. 


Amount Owed = Quantity x Unit Price + Tax Rate x (Quantity x Unit Price} 
Tax Rate is obtained from the disk that contains table records. 


. Three indexed disk files contain the following table records: 


File 1 File 2 
1 Delete code or blank 1 Delete code or blank 
(if needed) (if needed) 
2-4 Employee number 2-4 Title number 
5-21 Employee name 5-7 Job number 


8-21 Job name 


File 3 
1 Delete code or blank (if needed) 
2, Level number 
3-9 Salary XXXXX.XX 
10-21 Not used 
Labels are standard; the blocking factor is 100 for each file.The first field after the 
delete code of each file represents the key field. 


Write a program to create an indexed disk file from the following tape records: 
1-3 Employee number 
4-6 Title number 
7-9 Job number 
10 Level number 
11-80 Not used 


The format for the output disk records is as follows: 
1 Delete code or blank (if needed) 
2-4 Employee number 
5-21 Employee name 

29-24 Title number 
25-27 Job number 
28-41 Job name 

42, Level number 
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43-49 Salary 
50-51 Not used 
Labels are standard; the blocking factor is 75. 


Employee name, Job name, and Salary are obtained from the three table files on 
disk. 


Hint: Define three input disk files, Use employee number on the tape to look up employee 
name, and so on, 


6. Use the PAYROLL -MASTER created in problem 2 as input. Read in employee numbers 
from a tape file. Print the name and annual salary for each employee number read, 

7. Use the CUSTOMER-MASTER file created in problem 3 as input. Read a transaction 
file of customer numbers to be deleted from the file. Delete the corresponding 
records from CUSTOMER-MASTER, 

8. Sort CUSTOMER-MASTER created in problem 3 into PRoDUCT-NO sequence. (There 
may be numerous records with the same product number.) Print the total AMOUNT 
for each PRODUCT-NO, 

9. Create CUSTOMER-MASTER as indicated in problem 3 using VSAM with CUSTOMER- 
NO as the key and PRODUCT-NO as the alternate key (with duplicates). Then read in 
a transaction file of product numbers and print the total amount owed for each 
product number in the transaction file, 


ee RNa a | 
ee ee ee Tages 
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Interactive Processing 


|, VO OPERATIONS THAT DO NOT REQUIRE FILE SPECIFICATIONS 
A, DISPLAY Statement 
1, Format 
2. Size of DISPLAY 
3. Expanded Format 
B. ACCEPT Statement 
C. Combined Use of ACCEPT and DISPLAY 
Self-Evaluating Quiz 
D. Character Manipulation Using the INSPECT Command 
I, MANIPULATING I/O DATA 
A. STRING 
1, Basic Format 
2. OVERFLOW Option 
3, POINTER Option 
4. General Rules for Using the STRING 
B. UNSTRING 
1. Using the UNSTRING to Convert Data Into a More Compact Format 
2. Using the UNSTRING to Interpret a Query 
CHAPTER SUMMARY 
CHAPTER SELF-EVALUATING QUIZ 
PRACTICE PROGRAM 
KEY TERMS 
REVIEW QUESTIONS 
DEBUGGING EXERCISES 
PROGRAMMING ASSIGNMENTS 
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OBJECTIVES 


To familiarize you with: 

1. Methods of interacting with a computer at a terminal. 

2. Use of ACCEPT and DISPLAY for handling low-volume I/O, 

3. Character manipulation with the STRING and UNSTRING statements, 


Format 


I. /O Operations That Do Not Require File Specifications 


A. DISPLAY Statement 


1, Format 
Thus far, we have discussed the WRITE command as the primary method of 
producing output data. The basic format for a WT TE statement is: 


| WRITE record-name 


The record is part of an output file, assigned to a specific device in the 
ENVIRONMENT DIVISION, and described in the DATA DIVISION. An OPEN 
OUTPUT instruction must be issued before a record in the file can be written, 

To produce most forms of output data, we use a WRITE statement. This is, 
however, not the only output operation available. The DISPLAY verb is also 
used to produce output. A DISPLAY statement, however, differs significantly 
from the WRITE operation. The format for a DISPLAY is as follows: 


The UPON clause, which specifies the device or mnemonic-name, is op- 
tional. When omitted, data generally will be displayed on the printer. To say, 
for example, DISPLAY CODE-1 prints the contents of CODE-1, 

We may use a DISPLAY verb to print any data item including an entire 
record. No corresponding file need be defined in the ENVIRONMENT DIVI STON. 
Similarly, an OPEN or CLOSE statement would not be required. We may ‘say 
DISPLAY FIELDA, where FIELDA is any field defined in the pata DIVISION, 
or we may say DISPLAY TOTAL-REC, where TOTAL-REC is described in WORK - 
ING-STORAGE. In fact, any item defined in the FILE or WORK ING-STORAGE 
SECTIONS may be displayed. Similarly, we may say DISPLAY ‘INVALID CODE’, 
when the specific literal or message ‘INVALID CODE’ is to be printed, 

The DISPLAY verb, then, may be used in place of the WRITE statement for 
certain types of output. When only some fields of information are required 
and no record format exists, the DISPLAY verb is used. We have seen how the 
DISPLAY is used for debugging purposes; we may also use the DISPLAY for 
printing low-volume output messages to operators and users. 

A DISPLAY statement is a method of producing output data that does not 
require the establishment of files. We DISPLAY data fields or literals; we WRITE 
records. When file output is required, use SELECTS, FDs, OPEN, WRITE, and 
CLOSE statements; when a low-volume output or isolated message is required, 
you may use a DISPLAY, 

When a field or a literal is to be displayed depending on some condition 
such as an error condition, or when a message is to be relayed to the computer 
operator or user, it may be too cumbersome to establish files and records for 
these special cases. For such output operations, we use DISPLAY statements, 

Consider a tape-to-disk program that performs arithmetic operations on the 
tape data to produce disk records. The disk is the major form of output; it is 
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Figure 24.1 
Use of the DISPLAY statement. 
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established as a file with a specific record format. Data is created on disk by 
using a WRITE operation. Let us suppose that all the arithmetic operations test 
for ON SIZE ERROR, or an arithmetic overflow condition. When an overflow 
condition exists, we wish to print the message INVALID INPUT DATA. To use 
4 WRITE statement for printing this message would require us to establish a 
print file and a record within the file for the message. Using a DISPLAY state 
ment saves us the trouble of creating files, and the message may be displayed 
on a printed page as a literal. See Figure 24.1 for an illustration of the DISPLAY 
statement. 


PROCEDURE DIVISION: 
MAIN-MODULE + 
OPEN INPUT TAPE-FILE 
QUTPUT DISK-FILE+ 
READ TAPE-FILE AT END MOVE 1 TO EOF. 
PERFORM CALC-R UNTIL EOF = i+ 
CLOSE TAPE-FILE» DISK-FILE+ 
STOP RUN: 
CALC-RTN+ 
ADD AMT1-IN+ AMTZ-IN G YING AMT-OUT 
ON SIZE ERROR 
OVE ‘SIZE ERROR’ TO MESSGE 
OVE ACCT-NO TO ACCT-NO-OUT 
ERFORM ERROR-RTN+ 
MT3-IN IS NOT NUMERIC 
OVE ‘’AMT3 IS NOT UMERIC’ TO MESSGE 
OVE ACCT-NO TO ACCT-NO-OUT 
PERFORM ERROR-RTNs 
IF AMT4-IN ¢ 500 
OVE ‘AMT 1S TOO SMALL’ TO MESSGE 
MOVE ACCT-NO TO ACCT-NO-OUT 
PERFORM ERROR-RTN+ 
WRITE DISK-REC+ 
READ TAPE-FILE AT END MOVE 1 TO EOF. 
ERROR-RTN+ 
DISPLAY ‘INVALID TAPE DATA ’» MESSGE, 


au 


IF 


QL 


Fields or literals may be displayed on specific devices. If a device name is 
not used with the DISPLAY, as in Figure 24.1, then the system’s logical output 
device is assumed. For most systems, this output device is the printer. Thus, 
to say DISPLAY TAX, where no UPON clause is specified, typically prints the 
data in the TAX field on the printer. Data may also be displayed on terminals. 
We may display data on the console as well, which is a terminal specifically 
intended for communication between the computer operator and the computer 
system. In summary, the DISPLAY verb may use a regular terminal or the 
console as an output device as well as a standard printer. 

The device, then, used in the UPON clause could denote a terminal or other 
output unit. The names of these devices are assigned by the manufacturer and 
are thus machine-dependent. The term mnemonic-name is used to describe 
these device names. The following indicates the options available: 


DISPLAY OPTIONS 


Statement Result 
data-name Prints the data 
on the printer. 


: Prints on a ter- 
UPON mnemonic-name minal, console, or 
other device. 


data-name 


literal 


1. DISPLAY fea 
2. orsecay { 
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If a mnemonic-name is used with the DISPLAY it must be defined in the 
SPECTAL-NAMES paragraph of the ENVIRONMENT DIVISION. For example: 


16 20 2 28 2 36, 40, oy 7 52 56 co) ca ay P| 


URIATTITON ‘SEC TITON. | im 


4 tt 
CT [TP r 


SP 
a i — Device-dependent entry | Re 
j + +] LH rH 1 
hd (ei | |_| 
1 Lt | a | Le it |_| 
U MISTON. LETTE 


SPLAY. [HELLO THERE! Lon TPEMRIIER. CCE H 


In many computer installations, where output may be routed to any one of a 
number of print devices, including terminals, use of the DISPLAY verb may 
be limited. 


2. Size of DISPLAY 

The size of the field or literal to be displayed is limited and depends on the 
device used. When information is to be printed on the printer using a DISPLAY 
verb, the field or literal is limited to 120 positions. Consider the following: 


=viaae! 


paREAN (es 


If the printer can only print 80 or 100 characters a line, then the maximum 
size of the data-name or literal being displayed must be adjusted accordingly. 

In short, when a field or literal is displayed on a terminal or console, the 
size of the data is restricted to the size of the display line; it cannot, however, 
be more than 120 characters. 


SIZE OF DISPLAY 


Statement Absolute Size Restrictions 
DISPLAY «4, 120 characters 
DISPLAY 4... UPON CONSOLE or depends on size of console 
mnemonic-name or display 


3. Expanded Format 
Several fields or literals may be displayed with one statement. Modifying the 
format for a DISPLAY operation, we have: 


Format 
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Note the difference between the following two routines: 


Statements Printed Results 


INCORRECT TAX AMOUNT (contents of TAX) 


Format 


INCORRECT TAX AMOUNT 
(contents of TAX) 


Each DISPLAY verb prints one line of information. 

We should be careful about the use of the WRITE and DISPLAY verbs when 
the same device is employed. If a file is assigned to the printer in the ENYI- 
RONMENT DIVISION, then displaying data on the printer may cause a problem. 
Depending on the system and the WRITE option used, DISPLAY could cause 
overprinting on the same line that was already used for writing output. Some 
systems do not even permit writing and displaying on the same device. 


SUMMARY OF DISPLAY STATEMENT 

1. AWRITE statement is used to produce records in files that are to be 
the primary form of output. 

9, A DISPLAY statement is used to produce a low volume of output. 

3. DISPLAY statements can print information on the printer, console, 
or terminal. 

4. A DISPLAY statement does not require files to be established. 

5, Fields of data, defined in the DATA DIVISION, and literals may be 
DISPLAYed without opening files. 

6. A DISPLAY is used to give messages to the computer operator. 


B. ACCEPT Statement 


The ACCEPT statement performs an input operation. It results in the reading 
of fields of data into some area of storage. 

An ACCEPT verb is an input command that parallels the DISPLAY verb. The 
DISPLAY statement produces low-volume output data. Unlike the WRITE 
statement, it does not require a device assigned in the ENVIRONMENT DIVI- 
SION, an output area defined in the DATA DIVISION, or an OPEN statement 
in the PROCEDURE DIVISION. It is used to produce a low volume of output 
data where record formats are not required. 

Similarly, an ACCEPT verb reads a low volume of input data into the com- 
puter. Unlike the READ command, it does not require a device assigned in the 
ENVIRONMENT DIVISION, an input area defined in the DATA DIVISION, or an 
OPEN statement in the PROCEDURE DIVISION. 

The format for an ACCEPT statement is: 


[TREE thts ko nemoniemamel 


The data-name may be any field defined in the DATA DIVISION. We may 
say ACCEPT data-name-1, where data-name-1 is a work area in the WORKING- 
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STORAGE SECTION or any item within an output record. It may be any field 
defined and described in the DATA DIVISION. 

If the FROM option is not specified, data will be read from the system’s 
logical input device, which may be a terminal or even a card reader. To say 
ACCEPT data-name-1, where data-name-1 is a four-position numeric field, will 
result in the first four card columns of data being read if the system’s logical 
input device is a card reader. 

We should be careful about ACCEP Ting data from the reader if the reader is 
a device assigned in a SELECT clause. That is, we should not, in general, READ 
and ACCEPT from the same device. 

The FROM option may be used with the console or a terminal. We may, for 
example, code ACCEPT data-name FROM CONSOLE on systems for which CON- 
SOLE is an appropriate mnemonic-name. 

In summary, for the reading of primary input records, we always establish 
files and read them. For a small volume of secondary input data, the ACCEPT 
verb is often used. The ACCEPT statement is most often used to read some 
form of control data or a specific date format into the computer. Consider the 
following two examples. 


Example 1 A tape-to-print program is to be written. The major form of input is a tape, using an 
FD established in the FILE SECTION. The heading record of the output file is to contain 
the date of the last transaction. The date is not part of the tape input and changes 
monthly. Since it does not correspond to the date of the run, it must be entered sep- 
arately; that is, we cannot use DATE or CURRENT-DATE as explained in Chapter 13. 

We may read in this date of the last transaction in a specific format from a terminal. 
The terminal line will contain month in columns 1 and 2, / in column 8, and a two- 
digit year in columns 4 and 5. Thus 03/86 denotes MARCH 1986. 


To use a READ statement just for the one input line from a terminal would 
require a SELECT clause in the ENVIRONMENT DIVISION, an FD in the DATA 
DIVISION, and an OPEN and CLOSE statement in the PROCEDURE DIVISION. 
This is rather cumbersome programming for a single input record. Instead, an 
ACCEPT verb may be used. We may say: 


20, 24 28, 3 36 40 oo 8 BB 86 60 co @ 7 


where DATE! is a five-position date field within the heading record: 


20, 24 28 32 36 0. oy cry i 56 0 co 8 A 
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Thus, no file need be assigned to use the ACCEPT verb. The first five key 
strokes from the terminal will be read into the field called paTE1. Note that 
the record into which DATE1 is entered is in WORKING-STORAGE since it con- 
tains VALUE clauses. 

You will recall that ACCEPT data-name FROM DATE will read a YYMMDD entry 
into the data-name for 1974 and 1985 users. If a date other than the current 
one is required, such as date of last transaction, or end of fiscal year, then a 
date routine with the ACCEPT as described above would be used. 
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Example 2 An input file consists of tape records. A single program is written that (1) creates an 
updated output tape biweekly and (2) creates print records monthly. That is, we use 
some control data that denotes whether this is a biweekly or a monthly run. This 
control data instructs the computer to create either print records or updated tape records. 
First, we must code a routine to make certain that CODE-% is correctly entered: 


z | a tz 16 20, 2 28 EH 36 40 coy or 2 56 wo ay wo 7A 
LTT “yt 3 oe at Po H 
| || | -R | | | | 
| | | LETT TT | | 
on SRNL TY BERR RRERRERE : 
oe el i Pit 

CODE-% is a control field that is read into the computer during each run. It is not a 
constant or literal since it changes with each computer run. We may establish CODE - 
X as a WORKING-STORAGE item within 01 WORK-AREAS: 
7 ! a [fz 16 20 24 28 32 36. 40 ua a8 2 56 30 cy co rE 
| i—' 
Li 5. | CODEEX NAT i707" <0: SANA OUMNUONTRNUAERANAET WET GEREGTOTE 


When the program is first entered, a user or operator at a specific terminal would 
be requested to code a 1 or 2. We may read a | or 2 into CODE-x by the following: 


40 cy cn 82 56. 60, cy a 2 


HERR 
EEEEEEPEPECEEEE CECE CCE 


The computer operator or user at a device called TYPEWRITER will type a 1 for 
biweekly run or a 2 for monthly run. To do this, we would need to define TYPEWRITER 
in the SPECIAL-NAMES paragraph of the ENVIRONMENT DIVISION: 


ETH HH 
sobowee pews. | 
TH 


The program will temporarily stop or pause after each use of the ACCEPT 
verb. That is, after ACCEPT CODE-X is executed, the program pauses. It is in 
the “wait state.” The operator must enter input before the program will con- 
tinue processing. This pause frequently makes the ACCEPT verb inefficient or 
impractical for high-speed processing. 

The ACCEPT verb is an effective tool, however, for transmitting a small 
amount of input data to the computer. It does not require the establishing of 
files and thus is easy to code. It should not be used, though, for large volumes 
of input since it is an instruction that can reduce computer efficiency. A READ 
statement transmits input data from the input device to the input area and 
continues with the next instruction. An ACCEPT verb causes a pause in exe- 
cution before data is transmitted. 
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C. Combined Use of ACCEPT and DISPLAY 


When the computer pauses after an ACCEPT statement is issued, the computer 
operator must perform some function. No message is given to computer op- 
erators except a standard entry such as ‘AWAITING REPLY’ ora prompt such 
as a question mark or blinking cursor. The operator must be familiar with the 
program requirements and know what a halt in execution implies if he or she 
is to ensure that program execution will continue. If a line of terminal data 
is required, for example, the operator must key the correct data and press 
RETURN to transmit the line. 

It is not always feasible to expect the computer operator to remember each 
program's requirements. For this reason, we generally DISPLAY a message to 
the operator before issuing an ACCEPT command. The message informs or 
reminds the operator of the necessary operations to be performed. It indicates 
what to do when the computer pauses. 


Example 1 Consider the following coding: 


i 6 20 4 2 BR 36, cn cr wz 56 8 7 


DIISPLIAN TE] OF TRANSHICTION + MONTH IN al 
ia 


cepa -pameal | ACCPECTPCETEELEEEPET EEL HH 


This literal prints a message to the operator on the system’s output device. The 
ACCEPT statement follows, and the computer stops. The operator reads the message, 
performs the required operations using the system’s input device, and presses RETURN. 
If the system’s input device is a terminal, the first five columns of the terminal line 
are then transmitted to the DATE1 field. 


Example 2 Consider the following coding: 


7 Ts 42 16 20 24 28 32 36 40 chy 48 52 56 60 64 68 72! 
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= 


1 a a 

This routine also serves as a means 0 communicating with the computer operator. 
A message or instruction is printed on the console. The operator is required to type a 
1 or a 2. If a mistake has been made and a 1 or 2 has not been typed, the routine, which 
prints the instructions to the operator, is repeated. 


Example 3. @ccEPT or DISPLAY may be used for interactive access or updating of disk files. 
Suppose a user at a terminal wishes to determine the BAL-DUE of several CUST- 
RECs stored in an indexed file. The PROCEDURE DIVISION could be coded as follows: 


PROCEDURE DIVISION, 
MATN-MODULE, 
OPEN INPUT INDEXED-CUST-FILE, 
DISPLAY ‘ENTER CUSTOMER NUMBER OR 99999 WHEN DONE’, 
ACCEPT CUST-NO, 
PERFORM CALC-RTN UNTIL CUST-NO = 99999, 
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KHER ER EERE EEE EEE EEE EER ERE REE EEE EERE EEE 
* NOTE: 99999 18 A DUMMY ENTRY TO * 
* SIGNAL END OF DATA * 
HHH HERRERA EER HEE EE ERE REE EERE EEE RE ER EEE 
CLOSE INDEXED-CUST-FILE, 
STOP RUN: 
CALC-RTN; 
MOVE CUST-NO TO CUST-KEY OF DISK-REC. 
READ INDEXED-CUST-FILE 
INVALID KEY DISPLAY ‘NO SUCH CUSTOMER’ 
MOVE 1 TO ERR-SWITCH. 
IF ERR-SHITCH = 0 
DISPLAY ‘BALANCE DUE IS’; BAL-DUE 
ELSE 
MOVE O TO ERR-SWITCH: 
ACCEPT CUST-NO+ 


This coding enables a user to enter a CUST-NO ona console and have the computer 


print the balance owed by that customer. When the user is done, he or she types 99999 
and the run is terminated. 


Self-Evaluating Quiz 


Solutions 


In addition to the WRITE statement, a ______ verb may be used for output. 


If the UPON clause is omitted from a DISPLAY statement, then data will generally 
be displayed on the 


We may DISPLAY —______ or r 
When displaying a data-name, it (must, need not be part of an output record. 
The DISPLAY verb is used to produce a (low, high) volume of computer output. 


. Besides the printer, data may be displayed on the or the 


We usually (should, should not] DISPLAY and WRITE on the same device. 

In addition to the READ command, a(n) ______ verb may also be used to access 
a low volume of input data. 

If a device name is not specified in an ACCEPT statement, the ____—_ is gen- 
erally assumed, 


. If we are accepting data, we generally DISPLAY a message first that serves to 


. DISPLAY 


printer (or system’s logical output device) 
data-names (records or fields); literals 


. need not 


low 
console; terminal (actually any output device may be used for displaying data) 


. should not (it is possible to WRITE a line and then DISPLAY on the same line if 


you are not careful] 
ACCEPT 


_ card reader or terminal (depending on which is the system logical input device) 
|. instruct or remind the operator or user how to enter the required data. 


D. Character Manipulation Using the INSPECT Command 
COBOL has been traditionally used for handling large volumes of data in files 


or 
to 


data bases. Increasingly, however, programs written in any language need 
accept user-friendly data from terminals and other data entry devices. User- 


friendly input is typically not in the concise, standard format characteristic 


Example 1 
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of disk or tape files. Instead, it is usually entered in a free-form style, not 
necessarily in fixed positions, and may contain edit characters such as a dec- 
imal point in a numeric field. 

Although COBOL was not specifically developed to accept such input, some 
COBOL verbs can be adapted to handle free-form data. The INSPECT is one 
such verb that can be useful for reading in or manipulating a string of char- 
acters. In the next section we will see that the STRING and UNSTRING verbs 
are also used for character manipulation. 


A program accepts an amount field from a terminal. We wish to enable the user to 
enter the amount in any position. Each line on the terminal can hold 80 characters of 
data. We may code: 


ACCEPT IN-REC, 
where IN-REC has the following description in the WORKING-STORAGE SECTION: 


Ol IN-REC, 
OS CHAR OCCURS 80 TIMES PIC X. 


Since the amount field may be entered anywhere on an 80-character line, we will 
ACCEPT the entire line, determine in which positions the amount field appears, and 
then MOVE the amount field to a 10-position WORKING-STORAGE area called AMOUNT. 
Note that the amount may be entered as 10 characters, or fewer if it is a smaller 
number. Since the input entered may be fewer than 10 characters, we must: 


1. Determine the number of characters in IN-REC to be moved, 
2. Determine the precise location of the numeric field in the 80-column IN-REC. 


We use the INSPECT to: 


1, Count the number of spaces that appear prior to the first digit. This tells us in 
which position the number actually begins. TALLY 1 is a WORK ING-STORAGE field 
used to hold the number of blank positions prior to the actual input field. 
Thus, the leftmost position of the data field will be CHAR (SUB1 ), where SUB1 
= TALLY1 + 1, An example follows: 


INPUTAFIELD 
TALLY1 = dO 41 50 


CHAR (SUB1) = CHAR (41) 


2, Count the total number of spaces in IN-REC. This may be used for determining 
the number of digits entered altogether. Thus, suppose TALLY 1, for example, = 
40. This means there are 40 spaces before the input field. Suppose TALLY2 is 
used to count the total number of spaces and this equals 75, This tells us that 
the input field is in 41-45. That is, there are 40 spaces prior to the number and 
35 spaces after it. To determine SUB2, the rightmost position of the input field, 
we perform the following: 


COMPUTE SUBZ = 80 - TALLY2 + TALLY1, 
The WORKING-STORAGE SECTION for this program is as follows: 


WORKING-STORAGE SECTION, 
O1 IN-REC, 

OS CHAR OCCURS 80 TIMES PIC 9, 
OL STORED-AREAS 


OS TALLY1 PIC 9(5), 

OS TALLY2 PIC 9(5), 

oS SUBI PIC 99, 

OS SUB2 PIc og, 
OL AMOUNT, 


OS AMOUNTL OCCURS 10 TIMES PIC g. 
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Figure 24.2 contains the full program to move into AMOUNT a number that 
is no more than 10 digits long and may be entered anywhere on an input line. 

Once SUB1 and SUB2 contain the leftmost and rightmost positions, respec- 
tively, of the field to be moved to AMOUNT, a PERFORM «++ VARYING is used 
to move each digit: 


PERFORM MOVE-RTN VARYING SUB2 FROM SUB2 BY -1 
UNTIL SUB2 = TALLY1-+ 


’ 
+ 


MOVE-RTN+ 
MOVE CHAR (SUB2) TO AMOUNT1 (SUBX). 
SUBTRACT 1 FROM SUBX. 


If 12345 were entered on a terminal in positions 41-45, the result would 


be: 
TALLY = 40 
SUB1 = 41 
TALLY2 = 75 
SUB2 = 45 


AMOUNT = 0900012345 


Note that if this routine is to be used repeatedly for different IN-RECs, 
TALLY 1 and TALLY2 must be initialized each time; that is just one of the ways 
that data may be manipulated when accepted as input, with the use of an 
INSPECT statement. 

As you can see, performing such character manipulation in COBOL is fea- 
sible although cumbersome. 


A. STRING 


1, Basic Format 
‘A STRING statement may be used to join several fields together to form one 
field. This process is called concatenation. 

Fields are often strung together or concatenated when they have been stored 
in a condensed format on tape or disk and we wish to print them out in some 
readable or user-friendly format on a printer or terminal. 

In general, a STRING permits the programmer to move and combine fields 
in a manner that otherwise would be very difficult to perform. 

A simplified format of the STRING statement is: 


The STRING statement can combine or concatenate a series of fields. The 
phrase DELIMITED BY SIZE means that the entire sending field is transmitted. 
Suppose a disk file has a format with sample contents as indicated: 


INTERACTIVE PROCESSING 669 


Figure 24.2 IDENTIFICATION DIVISION. 
Program that illustrates the PROGRAM-ID, INSPECT. 
use of the INSPECT statement. ENVIRONMENT DIVISION. 
INPUT-OUTPUT SECTION, 
FILE-CONTROL. 
SELECT OUT-FILE ASSIGN TO PRINTER, 
DATA DIVISION, 
FILE SECTION, 
FD QUT-FILE 
LABEL RECORDS ARE OMITTED. 
O1 OUT-~REC PIC X(132), 
WORKING-STORAGE SECTION. 
Ol IN-REC. 
OS CHAR OCCURS 80 TIMES PIC X, 
Ol STORED-AREAS, 
OS TALLYI 
OF TALLY? 
oS SuUBL 
OS SUB2 
8 
N 


O(5), 
9(3). 
go. 
9g. 
ga. 


azus.w. 
onn0nG 


OS UBX 
OL AMOUNT, 
OS AMOUNTL OCCURS 10 TIMES PIC 9, 
PROCEDURE DIVISION, 
MATN-MODULE 
OPEN OUTPUT OUT-~FILE. 
MOVE ZEROS TO STORED-AREAS. 
ACCEPT IN-REC, 
PERFORM CALC-RTN UNTIL CHAR(1) = 9, 
Cc 
8 


LOSE QUT-FILE,. 
TOP RUN« 
RTN, 

OVE ZEROS TO TALLY1+ TALLY2, 

INSPEC “REC TALLYING TALLY1 FOR LEADING SPACES, 
ADD 1 TALLY1 GIVING SUB1I. 
INSPECT ~REC TALLYING TALLY2Z FOR ALL SPACES. 
COMPUTE SUB2 = 80 ~ TALLY2 + TALLY1. 

OVE 160 TO SUBX. 
OVE O TO AMOUNT, 
PERFOR QVE-RTN VARYING SUB2 FROM SUB2 BY -1 
UNTIL SUB2 = TALLY1, 

OVE AMOUNT TO OQUT-REC, 

RITE OQUT-REC. 

ACCEPT IN-REC, 

MOVE-RTN, 
OVE CHAR (SUB2) TO AMOUNT1L (SUBK). 
SUBTRACT FROM SUBX, 


CALC 


We wish to display the fields as First Name, Middle Name, and Last Name: 


FD DISK-FILE 
LABEL RECORDS ARE STANDARD, 
Ol DISK-REC, 
OS LAST-NAME PIG. NCLO):y 
OS FIRST-NAME PIC K(10), 
03 MIDDLE-~NAME PIC K(G), 


* 
+ 
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WORKING-STORAGE SECTION, 
ie) AME PIC X(26), 


We may code: 


STRING 

FIRST-NAME DELIMITED BY SIZE 
IDDLE-NAME DELIMITED BY SIZE 
LAST-NAME DELIMITED BY SIZE 
INTO NAME, 

DISPLAY NAME: 


The NAME would print as 
THOMASH KBE KALVALKEDISONEKEE 


Of course we could accomplish the very same thing by subdividing NAME 
into a series of elementary items and performing three simple MOVEs. 

One problem with this output is that not every first name or middle name 
actually uses all the positions available to it. Thus, names with fewer char- 
acters will have more spaces between printed fields. 

Moreover, if a first name happened to use all 10 positions allotted to it, it 
would print directly adjacent to the first character of the middle name with 
no spaces at all: 


| CRISTOPHERJOHN ADAMS 


The STRING statement may include literals or identifiers between fields 
using the following format: 


Format 


With this format, we not only combine subfields but place separators be- 
tween them. 

The STRING statement enables us to instruct the computer to transmit only 
significant characters in FIRST-NAME, MIDDLE-NAME, and LAST-NAME. Once 
a blank is reached, we stop transmitting: 


STRING 
FIRST-NAME DELIMITED BY ’ ‘ 
MIDDLE-NAME DELIMITED BY ’ ’ 
LAST-NAME DELIMITED BY ’ ‘ 
INTO NAME- 


But the delimiter itself is not placed in the receiving field. Thus, for our 
first example, THOMASALVAEDISON will appear in NAME using the above STRING. 

With the expanded format, however, we can use literals between clauses. 
Thus, we would insert blanks between significant characters as follows: 


Example 
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STRING 
FIRST-NAME DELIMITED BY ‘ ¢ 
* * DELIMITED BY SIZE 
MIDDLE-NAME DELIMITED BY ’” ' 
** DELIMITED BY SIZE 
LAST-NAME DELIMITED BY ¢ ¢ 
‘ * DELIMITED BY SIZE 
INTO NAME, 


Finally, in this instance, the NAME would be best displayed as: 
THOMAS ALVA EDISON 
Consider the following record format: 


1 20 21 23 28 75 


We wish to print the entire address. Simply to MOVE the three fields and 
print would result in: 


NEW ORLEANS LA 11326 


with at least nine spaces between the CITY and the STATE. 
Using a STRING verb, we can reduce this spacing and place a comma after 
the city: 


STRING CITY DELIMITED BY ’ ¢ 
‘y * DELIMITED BY SIZE 
STATE DELIMITED BY SIZE 
4 DELIMITED BY SIZE 
22? DELIMITED BY 'S1ZE 
INTO ADDRESS-OUT. 

DISPLAY ADDRESS-OUT. 


ADDRESS-OUT would print as: 


a NEW ORLEANS+ LA 11326 


The delimiter for STATE and ZIP can be SIZE, since we will always print 
two characters for STATE and five characters for ZIP. 

This STRING option may also be used for changing some of the contents of 
a field. You will recall that a MOVE operation always replaces the contents of 
a receiving field, either with significant characters, or spaces, or zeros, de- 
pending on whether the field is alphanumeric or numeric. With a STRING 
statement, we can, however, change specific characters. In this sense, the 
character manipulation features of a STRING are similar to an INSPECT (1974 
and 1985 ANS COBOL) or the EXAMINE (1968 ANS COBOL). 


ot FLDA PIC X(4) VALUE ‘WXYZ’, 


‘ 
‘ 


STRING ‘AB’ 
DELIMITED BY SIZE 
INTO FLDA. 
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The result in FLDA at the end of the STRING operation would be 4BYz2. In this way, 
we can make changes to a portion of a field leaving the rest of the field intact. 


Numerous additional options are available with the STRING, only some of 
which we will discuss. 


2. OVERFLOW Option 


STRING ... 
[ON OVERFLOW imperative-statement] 


This option will specify what operation is to be performed if the receiving 
field is not large enough to accommodate the result. 


3. POINTER Option 
We may count the number of characters moved in a STRING statement: 


STRING... 
[MITH POINTER data-name] 
[ON OVERFLOW... ] 


The data-name will specify the number of characters moved to the receiving 
field if it is initialized at 1: 


O1 WS-COUNT Pic 99 VALUE 1. 


95 FIRST-NAME PIC X(20)+ 
' 
05 NAME-QUT PIC XK(20), 


Move FIRST-NAME to NAME-OUT and determine the number of characters in FIRST - 
NAME. Use the STRING statement: 


MOVE 1 TO WS-COUNT. 

STRING 
FIRST-NAME DELIMITED BY ’ ‘ 
INTO NAME-OUT 
WITH POINTER WS-COUNT. 


WS-COUNT will contain the number of characters actually moved if it is initialized 
at 1. In this way, we can determine the number of non-blank characters in any field. 


We may also use the POINTER option to move data to a receiving field 
beginning at some point other than the first position. If WS-COUNT in the above 
was initialized at 5, then FIRST-NAME would be moved to NAME-OUT begin- 
ning with the fifth position of NAME-OUT. 


4. General Rules for Using the STRING 
As you can see, the STRING is a somewhat complex statement. Consider the 
following rules governing its use. 


RULES FOR USE OF STRING STATEMENT 
1. DELIMITED BY phrase is required. Can be: 


SIZE 
DELIMITED BY 4 Literal 
Data-name 
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SIZE: Transfers entire sending field. 
Literal: Transfer of data is stopped when the literal is encountered; 
the literal itself is not moved. 
Data-name: Transfer of data is stopped when the contents of data- 
name is encountered. 
2. The receiving field must be an elementary data item with no edit- 
ing symbols or JUSTIFIED RIGHT clause. 
3. All literals must be described as nonnumeric. 
The POINTER data-name field must be an elementary numeric item. 
5. The §TRING statement moves data according to the rules for mov- 
ing alphanumeric data. 


- 


B. UNSTRING 


1. Using the UNSTRING to Convert Data Into a More Compact Format 
The UNSTRING verb enables the programmer to accept terminal data in a user- 
friendly format and convert it to a form that is more appropriate for internal 
computer representation. 

For example, a program may include a statement that causes the following 
to print on a CRT or on a typewriter terminal: 


ENTER NAME: LAST» FIRST, MIDDLE INITIAL 
: USE COMMAS TO SEPARATE ENTRIES 


The message to the operator is fairly clear, When the name is entered it 
will be stored in an alphanumeric field called NAME-IN. The routine may 
appear as follows: 


WORKING-STORAGE SECTION, 
Oo NAME-IN PIC K(3G6), 


’ 
+ 


DISPLAY ‘ENTER NAME: LAST» FIRST» MIDDLE INITIAL’. 
DISPLAY ¢ : USE COMMAS TO SEPARATE ENTRIES’, 
ACCEPT NAME-~IN, 


Since each name has a variable number of characters, there is no way of 
knowing how large each individual last name and first name is. 
Suppose we wish to store the name in an output disk record as follows: 


O1 OUT-DISK-REC, 
OS NAME-OUT, 


0 LAST-NAME PIC X(20). 
0 FIRST-NAME PIC X(15), 
10 MIDDLE-INITIAL PIC XxX. 


With an UNSTRING statement, we can instruct the computer to separate 
the NAME-IN into its components and store them without the commas. 


UNSTRING NAME-~IN 
DELIMITED BY "4? 

NTO LAST-NAME 
FIRST-NAME 
MIDDLE-INITIAL, 
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Suppose NAME~-IN is entered as TAFT + WILLIAM» H, NAME-OUT will appear 
as follows after the UNSTRING: 


PLL TTT ETT 
al 20 
PPP tyeT TTT TTT 
2l 3 
MIDDLE- INITIAL 


36 


LAST-NAME 


NAME-OUT FIRST-NAME 


We may use any literal, even a blank, as a delimiter. Consider the following 
message that prints on a CRT screen or on a typewriter terminal: 


ENTER: ITEM NUMBER AND ITEM DESCRIPTION 
ON THE NEXT LINE 


Suppose the operator responds with: 
0007 WIDGETS 
Our program excerpt may read: 


WORKING-STORAGE SECTION. 
O1 ITEM-ID PIC X(50), 


’ 


DISPLAY ‘ENTER: ITEM NUMBER AND ITEM DESCRIPTION’, 
DISPLAY ¢ ON THE NEXT LINE’, 
ACCEPT ITEM-ID,. 


If the programmer does not know how many digits there are in the item 
number, we may use the UNSTRING verb to subdivide ITEM-1D into elemen- 
tary items. Each field must, however, be large enough to accommodate the 
biggest entries: 


Ol ITEM-NO PIC 9(5), 
ot ITEM-DESCRIPTION PIC X(20), 


+ 


UNSTRING ITEM-ID DELIMITED BY ’ ’ 
INTO ITEM-NO 
ITEM-DESCRIPTION, 


The format for the UNSTRING statement as we have used it is: 


UNSTRING data-name-1 


[DELIMITED BY [ALL] [ooh 


OR [ALL] | ond 


literal-2 


ae 


To data-name-4 


H 


2. Using the UNSTRING to Interpret a Query 
Suppose we have a disk file that we wish to access randomly. A 
query about a specific message is formatted as follows: 


QUERY: ENTER NAME OF EMPLOYEE: LAST+ FIRST 


Write a program excerpt to find the corresponding disk record: 
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OVE 60 TO ERR-SWITCH, 
UNSTRING QUERY-NAME 
DELIMITED BY “+? 
INTO LAST-NAME 
FIRST-NAME. 
OVE LAST-NAME TO DISK-KEY, 
READ DISK 
INVALID KEY PERFORM ERR-RTN. 
IF ERR-SWITCH = 
PERFORM OK-RTN+ 
ERR-RTN, 
OVE 1 TO ERR-SWITCH, 


The UNSTRING also permits the use of POINTER and ON OVERFLOW. 


SUMMARY 
RULES FOR USING THE UNSTRING STATEMENT 
1. The sending field must be alphanumeric. The receiving fields may 
be alphabetic, numeric, or alphanumeric. 
2. Each literal must be nonnumeric. 


3. The options WITH POINTER identifier and ON OVERFLOW impera- 
tive-statement may be used in the same way as with the STRING. 


Both the STRING and the UNSTRING are relatively complex statements with 
numerous options, many of which have not been considered here. Check your 
specifications manual if you wish additional information on these verbs. 

The STRING and UNSTRING verbs are extremely important for use in data 
base management systems. See Appendix G. 

One goal of data base management, for example, is to “read’’ what is typed 
as a response to a prompt and translate that string of characters into an action. 
Parsing is the term used to describe the segmenting of sentences or commands 
into components to determine what the resulting action should be. Parsing is 
a difficult technique to achieve effectively because people often communicate 
in inprecise or vague terms. The UNSTRING verb is used to achieve parsing in 
many instances. Thus, UNSTRING may interpret natural language responses or 
queries about data. On the other hand, the STRING verb is used to condense 
data entered into a user-friendly format so that it is concise enough to be 
stored on a file or collection of files called a data base. 


CHAPTER SUMMARY 

A. Both the DISPLAY and ACCEPT statements perform input/output functions 
on a low volume of data, 

B. No files need to be established nor records specified when DISPLAY and 
ACCEPT statements are used. You may ACCEPT or DISPLAY any field or 
record-name in WORK ING-STORAGE or even in the FILE SECTION. 

C. Frequently the DISPLAY statement is used in conjunction with an ACCEPT 
statement. The DISPLAY prints an instruction to the operator, the operator 
enters the data, and the ACCEPT reads in the data. 

D. STRING 
Purpose: Can be used to join or concatenate fields or portions of fields 

into one field, 

Elements: A DELIMITER is used for each sending field to indicate when 
to terminate data transfer. The delimiter may be a literal or 
data-name that contains a value to denote when data transfer 
is to terminate. The delimiter could also specify $1ZE, which 
means that the entire sending field is to be transmitted. 
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E. UNSTRING 


Full Format: STRING {eee 


literal-1 


data-name-2 
... DELIMITED BY 4 literal-2 
SIZE 


... INTO data-name-3 

[WITH POINTER data-name-4] 

[ON OVERFLOW imperative-statement] 
Data-name-3 is the receiving field. 
Data-name-4 is a WORK ING-STORAGE entry. 

Options: 1. The POINTER allows the programmer to control positioning of 
data within the receiving field. POINTER can also determine 
how many positions of the sending field were transmitted. 

2. ON OVERFLOW can be used to test for situations in which the 
receiving field is not large enough to accommodate the num- 
ber of characters being transmitted. 


Purpose: Enables the programmer to manipulate or transmit a portion of 
a sending field rather than treating it as a total entity. 
Elements: Delimiter indicates how the sending field is to be subdivided 
when transmitted. The delimiter itself is not transmitted. A lit- 
eral or data-name may be specified as the delimiter. 
Format: UNSTRING data-name-1 
[DELIMITED BY [ALL] literal-1 


[2" [aL] ogee vil 


literal-2 


ale 


INTO data-name-4 

[WITH POINTER data-name-5] 

[ON OVERFLOW imperative-statement]. 
Options: POINTER and ON OVERFLOW are used as with STRING. 


| CHAPTER SELF-EVALUATING QUIZ 


J, 


a 


SNAKE 


Ts 


12. 


Along with a WRITE statement, a ______ verb may be used to produce output. 


If the UPON clause is omitted from a DISPLAY statement, then data will generally 
be displayed on the 


We may DISPLAY ________ or _______. 

When displaying a data-name, it (must, need not} be part of an output record. 
The DISPLAY verb is used to produce a (low, high) volume of computer output. 
Besides the printer, data may be displayed on the or the 

We usually (should, should not) DISPLAY and WRITE on the same device. 


. In addition to the READ command, a(n) ________ verb may also be used to access 
input data. 
If a device name is not specified in an ACCEPT statement, the ________ is gen- 
erally assumed. 
. Joining two or more fields together is referred to as _________ and can be accom- 
plished with the ________ statement. 
Separating « field into different components can be accomplished with the 
statement. 
In a STRING statement, the field being moved may be delimited by r 
or _______. In an UNSTRING statement, only _______ or 


can be used as a delimiter. 


Solutions 
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13. (T or F) In a STRING or UNSTRING statement, the literal specified must be alpha- 
numeric. 
14. Suppose a clause WITH POINTER CT is specified in a STRING statement, and CT 
has an initial value of 5. How will this affect processing? 
15. (T or F) The delimiter specified is transmitted in an UNSTRING statement. 
Page 
1. DISPLAY 659 
2. printer 659 
3. data-names; literals 659 
4. need not 659 
5. low 659 
6. console; terminal 660 
7. should not 662 
8. ACCEPT 662 
9. system logical input device—usually a reader or terminal 663 
10. concatenation; STRING 668 
11. UNSTRING 673 
12. a literal; a data-name or identifier; the COBOL reserved word S12ZE; a literal; 670 
an identifier or data-name 
13, T 673 
14. The transfer of data will begin with the fifth position, not the first. 672 
15. F—It delimits but is not transferred. 670 


PRACTICE PROGRAM 


Write a complete COBOL program that will ACCEPT your name from one line of a 
terminal and your address from a second line and will DISPLAY both name and address 
on a single output line on a printer. See Figure 24.3 for the solution, 


KEY TERMS 

ACCEPT STRING 
Concatenation UNSTRING 
DISPLAY 


REVIEW QUESTIONS 


I, True-False Questions 

T or F) A DISPLAY statement may be used for printing fields, literals, or records. 
(T or F) Data may be displayed on a terminal. 

(T or F) The size of all displays is 133 characters. 


T or F) A WRITE statement, instead of a DISPLAY statement, is used to produce a 
ow volume of output. 


5. {T or F) A DISPLAY statement is often used to transmit messages to the computer 
operator. 
6. (T or F) An ACCEPT statement may be used to read data into WORK ING-STORAGE. 
7. (T or F) When the ACCEPT statement is used, a file must be assigned and described. 
8. (T or F) If a device is not specified in an ACCEPT statement, a tape drive is usually 
assumed, 


9. (T or F) An ACCEPT statement causes a temporary pause in execution until the 
operator hits RETURN or starts the program going again. 


10. (T or F) Several data fields may be displayed with one DISPLAY statement. 


a BS: [oe 
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Figure 24.3 IDENTIFICATION DIVISION. 
Solution to the Practice PROGRAM-ID. SAMPLE24, 


Program. ¥* 


ENVIRONMENT DIVISION, 
CONFIGURATION SECTION. 
SOURCE-COMPUTER., IBM-4331. 
OBJECT-COMPUTER., IBM-4331. 


* 


DATA DIVISION. 
WORKING-STORAGE SECTION. 
O1 STORED-AREAS,. 


oS EOF PIc 9 VALUE 0, 
O1 NAME-IN PIC K(20),. 
O1 ADDRESS-IN PIC K(20), 
Ol PRINT-OUT, 
95  NAME-OUT PIC K(20). 
v3 FILLER PIC X10} VALUE SPACES, 
v5 ADDRESS-OUT PIC K(20), 


* 


PROCEDURE DIVISION. 
MAIN-MODULE. 


PRINT-RTNe 


ll. 
12. 
13. 


14, 
15. 


DISPLAY ‘ENTER NAME ON 1ST LINE+ ADDRESS ON 2ND’. 
DISPLAY ’ENTER LAST WHEN DONE’, 

ACCEPT NAME-IN. 

ACCEPT ADDRESS-IN,. 

PERFORM PRINT-RTN UNTIL NAME-IN = ‘LAST’. 

STOP RUN, 


MOVE NAME-IN TO NAME-OUT. 

MOVE ADDRESS-IN TO ADDRESS-OUT. 
DISPLAY PRINT-OUT. 

ACCEPT NAME-IN, 

ACCEPT ADDRESS-IN. 


T or F) The POINTER is used with the STRING statement to count the number of 
sending fields. 


(T or F) Several fields may be joined together to form one field using the STRING 
statement. 


T or F] A delimiter is used to specify when data transfer is to terminate. 
T or F) A literal specified as a delimiter may be numeric or alphanumeric. 
(T or F] The UNSTRING statement separates one field into several fields. 


II. General Questions 


1. 


2. 


ndicate the devices that can be used with a DISPLAY statement and the corre- 
sponding size of the display. 

Indicate the devices that can be used with an ACCEPT statement and the corre- 
sponding size of the display. 

Why are the ACCEPT and DISPLAY statements sometimes used in place of the READ 
and WRITE statements? 


. A terminal is used for entering control data in a particular program. If the line 


begins with an X in column 1, then the MONTHLY-UPDATE routine is to be per- 
formed. If it has a Y in column 1, then the WEEKLY-UPDATE routine is to be per- 
formed. Write the control record routine, with proper edit tests to accept and 
process this line. 


. When a particular error condition occurs, the program is to pause, print the mes- 


sage ‘ERROR CONDITION X‘ ona terminal, which is the system’s logical output 
device. If the operator types ‘OK’ in response, the program is to continue. If the 
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operator types ‘NO GO’ in response, a STOP RUN instruction is to be executed. 
Write the routine necessary to perform these operations. Include logic that will 
cause a STOP RUN if NO rather than NO GO was typed. 


Consider the following for Questions 6 and 7: 


6. 


O1 STUDENT-REC PIC X(40),4 
: 


+ 
‘ 


OL STUDENT-PRINT. 


oS SSNO PIC K(9), 

0S FILLER PIC X(10), 
OS FIRST-NAME PIC X(10), 
05 MIDDLE-NAME PIC X(10), 
05 LAST-NAME PIC xX(11), 
OS FILLER PIC K(83), 


Write a STRING statement that will condense STUDENT-PRINT into STUDENT-REC. 
The sending data fields are delimited by a space. 

Assume there is data in STUDENT-REC, Write an UNSTRING statement to put the 
data into STUDENT-PRINT in the appropriate areas. 

The purpose of the STRING is to 

The purpose of the UNSTRING is to 

The POINTER option of the STRING and UNSTRING is used to 

The ON OVERFLOW option of the STRING and UNSTRING is used to 


. If the POINTER field in a UNSTRING statement contains a 5, then —______ will 


occur. 


Consider the following: 


13. 


14. 


15. 


16. 


II. 


O1 SS-NO-IN PIC X(11)5 


SSNO-IN has a format of XXX-XX-XXXX. Convert $SNO-IN to SSNO in condensed 
format by eliminating the dashes so $$N0 has the following format: 


Ol SSNO PIC X(9). 


Assume the data appears in S$NO in condensed format with a PIC X(9). Transmit 
it to SSNO-OUT so that there are dashes in the appropriate places. 


Consider the following: 
OS MESSAGE~1 PIC X(S00), 


MESSAGE~1 is a text. Remove all ANDs from the text and replace with commas. 
Consider the MESSAGE-1 field again: 
OS MESSAGE-1 PIC K(S00), 


Print the message with each output line containing a single sentence from the 
field called MESSAGE-1. 


Write a program.to perform an edit test on input read from a terminal. 
(a) Column | must have a ’C’. 

(b) Columns 2-5 must contain a number between 1256 and 7826. 

(cl) Cotamns 6-20 must be alphabetic. 


If any of these conditions are not met, print a corresponding error message. 


Note: Write this program so that the ENVIRONMENT DIVISION is not required. 


Validating Data 


Modify the Practice Problem so that it includes coding to (1) test for all errors and 
(2) print a control listing of totals (records processed, errors encountered, hash total). 
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EE DEBUGGING EXERCISES 


Consider the following: 


PROCEDURE DIVISION, 
MAIN-MODULE: 
OPEN INPUT TRANS-FILE OUTPUT PRINT-FILE, 
ACCEPT TRANS-FILE AT END MOVE 1 TO EOF, 
PERFORM CALC-RTN UNTIL EOF = i, 
CLOSE TRANS-FILE» PRINT-FILE,. 
STOP RUN. 
CALC-RTN. 
MOVE IN-REC TO OUT-REC,. 
IF AMT © 0 
DISPLAY ‘ERROR IN AMT’. 
WRITE PRINT-REC FROM OUT-REC 
BEFORE ADVANCING 2 LINES, 
ACCEPT TRANS-FILE AT END MOVE 1 TO EOF. 


1. The ACCEPT statements result in syntax errors. Correct the errors. 

2. When ANT < 0, ’ERROR IN AMT’ prints on the same line as OQUT-REC. Explain why 
and fix the error. 

3. Is the ACCEPT statement used appropriately in this program? Explain your answer. 

. Is the DISPLAY statement used appropriately in this program? Explain your answer. 


5. Would it have been better to DISPLAY an error message on a terminal or on the 
printer? Explain your answer. 


- 


Figure 24.4 
Problem definition for Pro- 
gramming Assignment 1. 


PROGRAMMING ASSIGNMENTS 


1. Write a program to create an indexed sequential disk file from student tape records. 
See Figure 24.4 and the top of the next page for the problem definition. 


Systems Flowchart 


STUDENT-MASTER 
80-position records 
standard labels 

20 records/block 


STUDENT-GRADES 

So poste eee 

standard labels Loma rmeanacimemistoarsce 
20 records/block —s 


ERROR DISPLAY 


Record Layout for STUDENT-GRADES and STUDENT-MASTER 


i 56 25 26 28 29 31 32 34 35 37 38 
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Notes 

a) Only write on disk those records where each exam grade is valid (not more than 100). 

(b) If any record has one or more grades that are more than 100, display the entire record on 
the printer. Do not edit or space the fields in any record that is displayed. 

c) Do not use an FD for the printed output. 


2. Write a program to create an indexed sequential disk file from payroll tape records. 
See Figure 24.5 for the problem definition. 


Notes 
a) Perform a validity routine to ensure that: 
(1) All fields except Employee Name are numeric. 
(2) Annual salary is not greater than $125,000. 
b) For any record with invalid data, display the entire record on the printer without editing. 
c}) Do not use an FD for the printed output. 


3. Redo Programming Assignment 1 in Chapter 16 to have the chart go from a mini- 
mum weight on Earth to a maximum weight, in increments of 1 lb., where the low 
weight and the high weight are ACCEPTed from a terminal. 


Notes 
(a) There is no FD for input. 
(b) DISPLAY a message to indicate what is to be entered on the terminal. 


4. Redo Programming Assignment 4 in Chapter 16 so that there is no input Fo. Instead, 
accept the following from a terminal: 


1. Principal amount (up to six integers). 
2, Rate (.XXX). 

3. Number of periods of investment. 
(Continued on the next page.) 


Systems Flowchart 
settncnrasr 
\ 


PAYROLL-MASTER 
80-position records 
standard labels 

20 records/block 


PAYROLL-INFO i 

Ep position ieeeerdls j 

standard labels rovinnasimeamaencusstc 
20 records/block = 


ERROR DISPLAY 


Record Layout for PAYROLL-INFO and PAYROLL-MASTER 


25 26 27 28 2930 =©35 36 44 45 46 47 4849 53 54 58 59 80 


Figure 24.5 
Problem definition for Pro- 
gramming Assignment 2. 


1 56 
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DISPLAY a message to indicate what is to be entered on the terminal. 

5. Read input records containing a series of valid passwords or codes. The codes are 
separated by slashes, and the last code ends with two slashes to designate it as the 
end of record. Each code is numeric, and its maximum size is five digits; all codes 
are unsigned. A typical input record would appear as follows: 


/227/25/4/12773/2263// 


Write a program to retrieve each number from the input records and to display the 
valid passwords in list form. 


UNIT Vil 


ADDITIONAL 
COBOL OPTIONS 
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OBJECTIVES 


To familiarize you with: 

1. The COPY statement for copying parts of a program stored in a library. 

2. The CALL statement for accessing external subroutines and for calling into 
your program external files and modules. 

3. The USAGE clause for maximizing the efficient use of storage. 


I. COPY Statement 


A. Introduction 


By this time, you probably have debugged and successfully run a number of 
COBOL programs. During the course of running these programs, it might have 
occurred to you that the preparation by each person of certain parts such as 
the FILE SECTION within an assigned program is redundant. It would greatly 
facilitate coding if standard FD’s existed that could be used by each program- 
mer without having to re-code them. 

It is, in fact, possible to establish a library containing, for example, the FD 
and 01 entries for a disk, tape, or any other type of file. In this way, each 
programmer can simply copy the required entries from the library rather than 
code extensive file and record description entries. Calling in FDs and record 
description entries from a library is performed with a COPY statement. 

Similarly, a complex arithmetic routine may be included in a library. The 
routine may then be copied into any COBOL program. 

The use of a library in conjunction with a COPY statement in COBOL serves 
several major purposes. 


PURPOSE OF COPY STATEMENT 

1. Minimizes programming effort 
It saves programming effort by minimizing redundant coding. 

2. Facilitates program modification 
It is easier to modify or maintain a library element since such an 
element needs to be modified only once even if it is accessed by 
numerous user programs. 

3. Facilitates standardization 
It helps in standardization by requiring all programmers to use the 
same data-names and other programmer-supplied words in order to 
access common files and routines. 

4. Results in better documentation 
It provides for better documentation since the library element can 
be extensively annotated. 


The COBOL program segment is coded and stored in a source statement 
library. These library elements typically include file and record description 
entries, but for users of 1974 and 1985 ANS COBOL, ENVIRONMENT and PRO- 
CEDURE DIVISION entries may also be stored or catalogued in a library. With 
the use of the COPY statement, the entries are then added to the programmer's 
COBOL source program and compiled with it. 

Storing the entries in the library and retrieving them with a COPY statement 
usually requires several system-dependent job control statements. Check with 
your computer center for the job control to be used. 

Most frequently, programmers use the COPY statement to include file and 
record descriptions, although routines and ENVIRONMENT DIVISION entries 
may also be copied from a library. Typical applications for accessing file and 
record descriptions from a library include (1) systems or programs that share 
files, (2) systems that use common data bases and other shared facilities, and 


686 


ADDITIONAL COBOL OPTIONS 


(3) programming courses in which assignments are made requiring a uniform 
sample or test data file to be used for testing a program. Routines that are 
commonly employed by numerous programs such as edit checks or total pro- 
cedures may also be stored in a library and copied as needed. 


B. Entries that Can Be Copied 


The COPY statement permits programmers to include prewritten ENYIRON- 
MENT, DATA, or PROCEDURE DIVISION entries in their source programs. That 
is, with the COPY statement you can extract entries from a library. The general 
areas where the COPY statement may be used are as follows: 


ENVIRONMENT DIVISION 
Option 1 (within CONFIGURATION SECTION): 


SOURCE-COMPUTER. Copy library-name. 
OBJECT-COMPUTER. COPY library-name. 
SPECIAL-NAMES. COPY library-name. 


Option 2 (within INPUT-OUTPUT SECTION): 


FILE-CONTROL. COPY library-name. 
1-0 CONTROL. COPY library-name. 


DATA DIVISION 
Option 1 (within FILE SECTION): 


FD filename Cory library-name. 


Option 2 (within a File Description entry): 


o1 data-name COPY library-name. 


PROCEDURE DIVISION 


aragraph-name. COPY library-name. 
paragrap. cory y 


The library-name must be defined as an external-name: 1-8 characters, 
letters, and digits only. 

A great variety of entries may be copied from a library. Most medium- and 
large-scale companies with well-organized information processing installa- 
tions have many file descriptions and frequently-used routines stored on a 
library. In such installations, the programmer often extracts entries from the 
library to be included in his or her program, as needed. 

Consider the following examples: 


1. The library entry or member is called PAYFILE, and it has the following 
specification in the library: 


FD PAYFILE 
LABEL RECORDS ARE OMITTED 
RECORD CONTAINS 80 CHARACTERS. 
O1  PAY-REC PIC X(80), 


To copy the PAYFILE member of the library into your program, called the 
user program, we code: 
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FD PAY-~IN COPY PAYFILE,. 


When the user program is listed and compiled, it will contain the following: 


ia 


20 


8 


a 28 Er EG a0 cn a8 Be EG 60, 


T FD name assigned in user program | | 


IE] tert 
MUTED Entries copied from 


ize) 
inane 


RI 
“ 


i 
| 
i 


NS| 180 ICHIARIACITE| a eT tt 
PGC HEHEHE 


“top mo 


I 


FD and record entries have been added to the user program. 


of the entries copied. 
The programmer codes: 


he PAYFILE from the library has been renamed PAY-IN, and the specific 


Some systems will place a ¢ for copy on the source listing, in the margin 


FD fileename COPY library-name. 


The system generates the following source listing: 


FD PAY-~IN 
LABEL RECORDS ARE OMITTED 
RECORD CONTAINS 80 CHARACTERS. 
O1 PAY-REC PIC X(BO), 


ono 


2. Consider the following library member: 


O14 PAYROLL-~RECORD . 
OS NANE-IN PIC X(20), 
OS ADDRESS-IN PIC X(20), 


To copy this record description into your user's program, code: 


a O1 PAY-IN COPY PAYROLL-RECORD, 


Some systems require a period after the user-defined record-name as 


follows: 
O1 PAY-IN, COPY PAYROLL-~RECORD, 
This entry will be listed and compiled as follows: 


28 EY 36 40 cy 78 2 36 0, co 


few | } Coded by the programmer ig 


L 
[ | 
| f ine from the |~ | | | | 
co HPL reece 


The format for copying a record description is as follows: 


1 record-name Cory library-name. 


3. Library member: 


ADD-RTNs 
ADD AMT1 TO TOTAL, 
ADD TOTAL TO FINAL-~TOT, 
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To obtain this exact routine in a user program, we code: 


PROCEDURE DIVISION. 


’ 
‘ 


COPY ADD-RTN; 


The program listing would include: 


ECE ET 
Lt TTT TT 
a || 

Haragiaa ERED 
ANN IAMT4 flo mot AL [| imate TELL HERONE 
ETT iApot froma iol Tri ALTO | LHL LW 


Note that AMT1 and TOTAL would need to be defined and described in the 
DATA DIVISION of the user program. 
The format for copying a procedure is as follows: 


paragraph-name. COPY library-name. 


The copy statement may have slight variations from one system to another. 
Moreover, there are job control statements that need to be used to (1} catalogue 
or store the library entry and (2) retrieve the library entry. 


C. Using the REPLACING Clause with the COPY Statement 
The full format of the COPY statement is: 


Format 


At this point we reintroduce the term identifier, which is used in most 
manuals in format statements to denote a data-name. With the REPLACING 
option, data-names or identifiers in the library can be replaced with data- 
names or identifiers defined in the user program. Identifier-1 is the library 
name and identifier-2 is the corresponding name in the user program. 

In summary, the COPY statement is most frequently used to bring in file 
and record descriptions for data bases and files used for several programs and/or 
systems, A data base is a large collection of data centrally stored at a specific 
computer installation. 


Example Consider the following user program entry: 
O1 PAYROLL COPY PAYLIB REPLACING A BY AMT,» B BY PAY-CODE+ 
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Suppose that PAYLIB in the library has the following specification: 


QO1 PAYLIB. 
os A PIc s9g, 
os 6B PIC 59(5)¥g9, 


oS C OCCURS 40 TIMES PIC 99. 


The source listing would include the following: 


26, Er 36, 40 cn a8 BD 56 co cy oo P| 


Al. 


= po} jst 


ee 
2. 


TE 


| 
af i 


ror 


The names have been replaced by the system and printed on the listing 
with programmer-supplied replacement entries. 

The above format including the REPLACING option does not alter library 
functions or routines in the library itself but changes their specifications within 
the calling or user program. 


Self-Evaluating Quiz 


Solutions 


1, A single File Description or COBOL routine may be used in many programs by 
placing it in a —_______ and _________ it when needed. 

2. The ________ clause permits the COBOL programmer to include prewritten entries 
in his or her program. 

3. The format for copying files is _____.. 

. The library-name must conform to the rules for forming : 

5. (T or F) It is possible for the source program to copy library routines and make 
changes to the names used. 

6. (T or F) Using the REPLACING option of the COPY statement, it is possible to alter 
the routines in the library itself. 

7. Two purposes for using library functions are to_______ and to 


a 


1, library; copying 

2. COPY 

3. FD filename copy library-name. 

. external-names 

T 

F—This option only alters library functions for the source program. 

facilitate coding; increase standardization; make it easier to make modifications 


NAS 


I. CALL Statement 


A. Why Use a CALL Statement? 


You will recall that structured programs should consist of a series of inde- 
pendent modules that are executed from the main module as follows: 
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The structured technique facilitates coding, debugging, and the use of docu- 
mentation by enabling each module to be written and tested independently. 
The modules may be written in different stages or even by different program- 
mers, as the need arises. Moreover, if a specific module needs to be modified, 
the entire logical flow may still function properly without the need for exten- 
sive revision of other parts of the program. Both flexibility and efficiency are 
gained by using this modular approach. 

Thus, one program may call or reference independent modules with a PER- 
FORM; similarly, a program may CALL or reference independent subprograms 
as needed. The main or user program that references or calls a subprogram is 
referred to as the calling program. The subprogram that is linked and executed 
within the main program is referred to as the called program. 


TERMS 


Main or user program Calling program 
Subprogram Called program 


The called program would need to be compiled, debugged, and catalogued 
or stored in a library so that it may be called when needed. Typical subpro- 
grams include routines such as editing, error control checks, standard calcu- 
lations, summary and total printing. Some programming languages use the 
term “external subroutines” to refer to these; the term “‘subprogram’”’ is used 
in COBOL. 

The technique of enabling a main program to call a subprogram has the 
following advantages: 


ADVANTAGES OF CALLING SUBPROGRAMS 


1. Avoids duplication of effort 
When specific routines need to be included in more than one pro- 
gram, it is best to write them separately and call them into each 
program as needed. 

2. Improves programmer productivity 
Programmers with advanced skills will typically be responsible for 
coding complex subprograms that need to be written as efficiently 
as possible. In an era of programmer shortage, this technique can 
result in more effective use of programmers’ time. 


Name used in 
CALL 


Includes fields -———}+~— LINKAGE SECTION, 


to receive results 
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3. Provides greater flexibility 
Subprograms may be written in any programming language; they 
are typically written in a language best suited to the specific task 
required. Moreover, changes to the called program can be made 
without the need to modify the calling program. 

4, Advances the use of structured programming as a stylistic tech- 
nique and as a standard 
Since a subprogram is really an independent module that is external 
to the main program, it may be called in just as one would use a 
PERFORM to execute an internal module. 


The CALL statement should not be confused with the COPY statement. The 
Copy brings into a user program an ENVIRONMENT, DATA, or PROCEDURE 
DIVISION segment as is. The CALL causes an entire subprogram to be exe- 
cuted and enables data to be transmitted from one program to another. 


B. Format of the CALL Statement 


Before focusing on the options available with the CALL statement, we will 
consider a sample of both the calling and called programs requirements. This 
will provide an overview of the entries to be used: 


CALLING PROGRAM 


IDENTIFICATION DIVISION, 
PROGRAM-ID, MAIN, 


+ 


WORKING-STORAGE SECTION, 


’ 


o5 Will receive the 

O85 results of 
PROCEDURE DIVISION. calculations 

‘ performed in 


: 
CALL ‘SUBPROG’ USING [Ay By subprogram 


CALLED PROGRAM 


IDENTIFICATION DIVISIO 
PROGRAM-ID. | SUBPROG, 


‘ 


‘ 


os x 
os Y 
PROCEDURE DIVISIO USING Xe Fields will be 
- passed to A, 
Se 
calculations 


Passes control to 
main program 
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A subprogram may be called into a main program with the CALL statement. 
The following is the format for the 1974 and 1985 ANS versions of COBOL. 
There is no standard for the 1968 version of ANS COBOL, so that if you are 
using a 1968 ANS compiler check your reference manual for the format.) 


CALL literal-1 [USING data-name-l .. .] 


Literal-1 is the name of the program as specified in the PROGRAN- ID state- 
ment of the called program or subprogram. It conforms to the rules for forming 
external-names: 1 to 8 characters, letters and digits only. Literal-1 must also 
be catalogued as the subprogram name if it is to be called. This is performed 
with job control commands that are system-dependent. 

The USING clause of the CALL statement is required if the subprogram 
performs any operations that require results or data to be passed from one 
program to another. CALL «+,» USING specifies items in the main or calling 
program that will contain the results. Since the purpose of calling a subpro- 
gram is to perform operations or calculations to produce results, we almost 
always employ the USING option. 


1, Called Program Requirements 


(a) PROGRAN-1D, The literal used in the CALL statement of the main 
program to extract a subprogram or routine from a library and execute it must 
be identical to the called program’s PROGRAM-ID: 


CALLING 
CALL literal-1 USING... 


CALLED 
PROGRAM-ID. literal-1. 


(b) LINKAGE SECTION, A LINKAGE SECTION must be defined in the called 
program or subprogram for identifying those items that will be passed to the 
called program or passed back from the called program to the main program. 

The LINKAGE SECTION of the called program, then, describes all items to 
be passed between the called program and the calling program. 

The LINKAGE SECTION, if used, is coded after the FILE SECTION and WORK ~ 
ING-STORAGE SECTION. The format of entries is similar to WORK ING-STOR- 
AGE entries except that VALUE clauses for initializing fields are not permitted. 


(c) PROCEDURE DIVISIONUSING, The items specified in the USING clause 
in the PROCEDURE DIVISION entry include all LINKAGE SECTION fields used 
for passing data from one program to another. The items specified will be 
passed to and from the corresponding items specified in the CALL +++ USING 
of the main program. 

The calling program will have the following entry: 


CALL... USING data-name-1, data-name-2,... 


Data-name-1, data-name-2, ... must be defined in the calling program. 
The called program will include the following PROCEDURE DIVISION 
entries: 


PROCEDURE DIVISION USING data-name-1A, date-name-2A, ... 
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Data-name-1A, data-name-2A, ... must be defined in the LINKAGE SECTION 
of the called program. 

When the called program is executed, the contents of data-name-1A of the 
called program will have the same contents as data-name-1 of the calling 
program, the contents of data-name-2A of the called program will be the same 
as data-name-2 of the calling program, and so on. In this way, initial data may 
be passed from the calling program to the called program for execution and, 
similarly, resultant data may be passed from the called program to the calling 
program for subsequent processing by the user program. 


(d) EXIT PROGRAM EXIT PROGRAM must be the Jast executed statement 
in the called program. It signals the computer to transfer control back to the 
main module. 


2. Calling Program Requirements 

To execute a subprogram stored in a library, the only statement required in 
the calling program is the CALL ++, USING statement. The literal specified 
with the CALL. of the calling program must be identical to the PROGRAM-ID 
of the called program. The data-names specified in the CALL are defined in the 
DATA DIVISION of the calling program. The first item after the word USING 
will contain data specified in the first item of the PROCEDURE DIVISION 
USING statement in the called program. Data is passed in sequence so that 
the corresponding items in each statement are made equivalent. The PIC 
specifications for corresponding items must be the same. The names of data 
fields passed from a calling program to a called program may be the same, as 
in the following illustration: 


Calling Program 


IDENTIFICATION DIVISION, 
PROGRAM-ID, MAIN, 


' 


OS JULTAN-DATE 


PROCEDURE DIVISION, 


* 


CALL ‘SUBPROGR’ USING JULIAN-~DATE. 
MOVE ‘JULIAN-DATE’ TO JULIAN-DATE-OUT. 
* 
* JULTAN-DATE IS COMPUTED IN SUBPROGR 
* 


Called Program 


IDENTIFICATION DIVISION, 

PROGRAM-ID. SUBPROGR, 
*THIS CALLED MODULE CALCULATES DAY OF YEAR * 
* FROM CURRENT MO/DA/YR 
*DAY OF YEAR IS CALLED JULIAN DATE * 
DATA DIVISON, 

WORKING-STORAGE SECTION, 

O1 WS-DATE PIC 9(8). 

OL WS-DATE-X, 

o3 YR PIC 99, 


* 
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oS MO PIc 99, 
oS DA PIC 99, 
LINKAGE SECTION: 
Oi STORED-AREAS. 
a3 JULTAN-DATE PIC 9(3), 
PROCEDURE DIVISION USING JULIAN-DATE, 
ACCEPT WS-DATE FROM DATE. 


INCLUDES CALCULATIONS FOR CONVERTING MO/DA/YR 
TO DAY OF YEAR 


Ok OK OK 


EXIT PROGRAM; 


Subprograms must have a LINKAGE SECTION, the entry PROCEDURE 
DIVISION USING, and an EXIT at the end of the module. 


C. Examples 


It is quite likely that a series of programs at a given installation need to use 
a Julian date, which is the actual day of the year. One programmer writes the 
full four divisions of a COBOL program to compute JULIAN-DATE. The pro- 
gram is called SUBPROGR and is called into each main program as necessary. 
After it has been called and executed, the computed result called JULIAN- 
DATE is available to the calling program by using the same name, JULIAN~- 
DATE. The called program must be a full COBOL program beginning with an 
IDENTIFICATION DIVISION and a PROGRAM-1D, which is the name used to 
access it. Since JULIAN-DATE is calculated in SUBPROGR and then passed to 
the calling program, we code CALL ‘SUBPROGR’ USING JULIAN-DATE in the 
calling program and code PROCEDURE DIVISION USING JULIAN-DATE in the 
called program. 

The EXIT PROGRAM will be the Jast statement executed in the called pro- 
gram; this indicates to the system the end of the subprogram so that control 
can return to the calling program. The LINKAGE SECTION in the called pro- 
gram includes all fields passed from it to the calling program. 

Frequently, data from a called program or subprogram must be passed to 
the calling program as a different field name, as in the following: 


CALLING PROGRAM 


5 DATE-OF-RUN <———+— We want the computed 
JULIAN-DATE stored 
in DATE-OF -RUN 


M+++0 


ALL ‘SUBPROG* 


SUBPROG 


‘ 
' 
’ 


LINKAGE SECTION, 
05 JULIAN-DATE.<4— After supproc has been 
‘ executed, result will be 


; 
EXIT PROGRAM, stored here 
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To pass the data from JULIAN-DATE of the SUBPROGR to DATE-OF-RUN of 
the calling program, we code the following: 


CALLING PROGRAM 


+ 
+ 
’ 


05 DATE-OF-RUN 


CALL ‘SUBPROG’ USING DATE-OF-RUN,<«———+— Will place result 
in DATE~OF-RUN 


CALLED PROGRAM 


IDENTIFICATION DIVISION. 
PROGRAM-ID, SUBPROG, 


’ 


LINKAGE SECTION, 


+ 


95 JULTAN-DATE 


PROCEDURE DIVISION USING JULTAN-DATE, «+ JULIAN-DATE will 
‘ be passed to 
EXIT PROGRAM, DATE-OF-RUN of 

calling program 


The USING option is required, however, by both programs when passing 
data from a subprogram to a calling program whether we use a different name 
or the same name: 

1, Calling program 

CALL literal-l USING data-name-1 
Data-name-| is the field in the calling program that data is passed to. 


2. Called program 
The first sentence of the PROCEDURE DIVISION of the called program 
should have: 


PROCEDURE DIVISION USING data-name-2 
Data-name-2 is the result field calculated in the subprogram. 


With the USING clause, data will be passed from data-name-2 in the called 
program to data-name-1 in the calling program. 

In this way, a series of fields may be passed from a called program to a 
calling program: 


CALLING PROGRAM 


O1 STORED-AREAS. 
oS A 
oS B 
oS C 
o3 D 
OS iE 
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+ 
‘ 


CALL ‘SUBPROGX’ USING As 


CALLED PROGRAM 


LINKAGE 
oS 


+ 


Os 


SEC 
KL 


KS 


PROCEDURE D 


TON, 


VISION USING Kis K2s KBs Kay KSe 


n the above, after X1, X2, X3, X4, and x5 have been calculated in SUBPROGX, 
the results will be passed to 4, B, €, D, and E, respectively, in the calling 
program. That is, 4 will contain the contents of x1, 6 will contain the contents 
of %2, and so on. This occurs because of the sequence of the data-names in 
the USING clause and is not influenced by the sequence of the data-names as 
they are defined in the DATA DIVISION. Thus, the following would produce 
the identical results: 


| CALL SUBPROGX USING A» C+ Es Bs De | 


| PROCEDURE DIVISION USING Xl» X3+ XSs K2s Kay 


Note that the P1¢ clauses of corresponding fields must have the same spec- 
ifications. That is, the PIC clauses of A and X1 must have the same number 
of characters as must B and x2, ¢ and X3, D and x4, and E and x5. 

Frequently it is necessary for data to be passed from the calling program to 
the called program. Suppose, for example, that the called program is to deter- 
mine the Social Security contribution of each employee. This field is com- 
monly referred to as FICA (Federal Insurance Compensation Act} and is based 
on the employee’s annual salary, which is read in by the calling program. The 
contents of ANN-SAL, a field in the calling program, must be passed to the 
called program before the calculation can be made. 

Passing data from the calling program to the called program is also per- 
formed with a USING clause. As indicated, the USING clause of both programs 
indicates fields to be copied. Thus, USING defines data passed from main to 
called and from called to main. The following will clarify these points: 


IDENTIFICATION DIVISION. 
PROGRAM-ID. MAIN. 


’ 


+ 
O1 EMP-REC, 
‘ 


O53 ANN-SAL PIE 3. ———— 


+ 
ry 


WORK ING-STORAGE SECTION, 


+ 


To be passed from 
calling to called 


To be passed from 
called to calling 


OS SO0C-SEC 


Pic §(4)vog, }+——— 
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CALL ‘FICAPROG’ USING ANN-SAL + SO0C-SEC,. 


IDENTIFICATION DIVISION, 
PROGRAM-ID. FICAPROG, 


+ 
+ 


LINKAGE SECTION, 


O1 STORED, 
O5 SALARY PIC 9(6), 
95 FICA PIC ao(4)va9, 


4 
‘ 


PROCEDURE DIVISTON USING | SALARY + FICA, 
COMPUTE FICA = .0705 * SALARY 


+ 
’ 


EXIT PROGRAM, 


Note the following about the subprogram: 


1, PROGRAM-ID, name. 

Same name as used in CALL of calling program. 
2. LINKAGE SECTIO 
All data-names to be passed from called program to calling program and 
from calling program to called program must be defined here. Appears 
after WORKING-STORAGE SECTION. Has a format similar to WORKING~ 
STORAGE but VALUE clauses are not permitted. 

3. PROCEDURE DIVISION USING «as 

Arguments or fields in the CALL are matched by position in the USING, 
not by location in the LINKAGE SECTION. 

4. EX11 ROGRAM, 
The last entry in the called program. 


= 


On some systems you may only be permitted to pass group items or inde- 


pendent elementary items. 


Self-Evaluating Quiz 


I. 


To execute a module or subprogram as an independent entity separate from your 
program, use a ______ statement. 


. To call in a module from a library and to make it part of your program, use a 


statement, 


. The CALL statement is particularly useful in structured programs because 


. When using a CALL statement, your program is referred to as the _______ pro- 


gram; the other executed program is referred to as the —_______ program. 
To CALL a program, you code 


. In Question 5, the literal specified must be the same as 


If you specify USING with the GALL statement, the data-names defined must be 
described in the (calling, called) program. 
The program being called usually has a _______. SEC TION in which data to be 
passed to the calling program is defined. 


. The PROCEDURE DIVISION entry for the called program is 

. The data-names in the USING clause for Question 9 are defined in 

. The last statement in the called program is 

. (T or F) The data-names in both the called and allie’: program must be the same. 
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1. CALL 

2. Gory 

3. programs being called can be executed as independent modules 
4. calling (or main); called (or subprogram) 

5. CALL literal-1] USING data-name ... 

6. the PROGRAM-1ID entry in the called program 
7. calling 

8. LINKAGE 

9. PROCEDURE DIVISION USING data-name... 
10. the LINKAGE SECTION of the called program 
ll. EXIT PROGRAM 

12, F—They may be different. 


Il. USAGE Clause 


A. Introduction 


There are different ways in which numeric data is stored internally within 
the computer. The particular method for representing numeric data internally 
affects the type of processing that can be performed as well as the program’s 
efficiency. 

The USAGE clause specifies the form in which data is stored within the 
computer. It is a clause associated with either a group or elementary item in 
any section of the DATA DIVISION. 

The format for the USAGE clause is: 


DISPLAY 


COMPUTATIONAL 
[USAGE 18] 4 comp 


PACKED-DECIMAL 


PACKED-DECIMAL is only available for 1985 COBOL users, but IBM and 
IBM-compatible computers permit a similar clause for all their compilers: 


COMPUTATIONAL-3 
[USAGE zal Eee } 


Note that this format does not represent all the options that can be associated 
with a USAGE clause, but it includes the most common ones. Note also that 
the PACKED-DECIMAL, COMPUTATIONAL -3, or COMP-3 option is not available 
with all compilers, although it is widely used. Consult your specifications 
manual for a complete list of options available with this clause. 


Examples 
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1. Of TABLE-X USAGE 18 COMPUTATIONAL. 
05 ITEM-X OCCURS 40 TIMES PIC S9(10). 
O5 ITEM-Y OCCURS 40 TIMES PIC S9(5). 


2. 05 LISTX PIC K(5) USAGE IS DISPLAY. 
3. 05 LISTY PIC XXX USAGE DISPLAY. 


The USAGE clause may be associated with a group or an elementary item. 
If it is used with a group item, then it refers to al/ elements in the group. 

To understand the USAGE options fully, we must consider the various meth- 
ods employed by the computer for storing characters of data. Although the 
following methods are not universal, they are applicable to most computers: 


B. USAGE 18 DISPLAY: Zoned Decimal Format of Data 


The computer uses its own code for representing data in storage. The two 
common codes used are called (1) EBCDIC, or Extended Binary Coded Decimal 
Interchange Code, and (2) ASCII, for American Standard Code for Information 
Interchange. In each case, every byte or position of storage is used to store one 
character of data in external or zoned decimal format.' We will focus here on 
the EBCDIC code because of its widespread use. As with the Hollerith code 
representation, each storage position contains both a zone and digit portion. 

The EBCDIC representation is referred to as external or zoned decimal rep- 
resentation. If a USAGE clause is omitted from a data description entry, the 
standard EBCDIC representation is assumed by the computer. 

Similarly, the clause USAGE 18 DISPLAY calls for an external or zoned dec- 
imal format. Thus, the DISPLAY option can be either explicit, when specified, 
or implicit, when omitted. It indicates that data is stored in character form, 
one character per single byte of storage. This representation corresponds to 
the form in which card input, using the Hollerith code, is entered, and the 
form in which printed output is produced. Each character is represented by a 
zone and a digit portion. 


C. USAGE IS PACKED-DECIMAL, COMPUTATIONAL -3, or COMP-~3 


Thus far, we have seen that data may be represented in zoned decimal format 
using one byte of storage for each character. This is an inefficient method for 
storing numeric items, since the zone portion, representing a sign, is really 
not required for every digit within the field. 

Suppose we have a five-character numeric field. Instead of representing this 
numeric field in five positions or bytes, it is possible to use a zone for each 
field’s sign rather than for each digit’s sign. In this way, all but one storage 
position can hold two digits rather than a single digit. Only one storage po- 
sition for the entire field will have a single digit plus the zone or sign. 

Thus, it is really unnecessary to include a zone for each digit within a 
number. One zone for the entire field, indicating a positive or a negative sign, 
would suffice. There is a method that the computer can use to eliminate or 
strip the zone of all digits except one, which is retained for representing the 
sign. In this way, the zone portion of each byte can be employed to represent 
another digit. That is, two digits can be represented within a single byte. This 
technique for optimizing the efficient use of storage is called packing. 

A number in zoned decimal format occupies more bytes than in packed 
format. One major advantage of packing numbers, then, is to conserve storage. 


' For a more thorough discussion of internal data representation, see Stern and Stern, An Intro- 
duction to Computers and Information Processing, 2nd ed., (John Wiley and Sons, Inc., 1985). 
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Consider the following unpacked format for the number 12345: 


zone digit zone digit zone digit zone digit zone digit 


WEBER ERESEVETE EE 


Packing this field strips all zones except for one in the rightmost position: 


12 | 34 | 5F 


Thus, in unpacked format, 12345 occupies five bytes; in packed format, it 

occupies three bytes. Packing reduces the size of a field by approximately 50%. 

Actually, the size of a packed field is equal to (the number of digits + 1) / 2. 
Consider the data elements represented by: 


Ol TABLE-K-+ 
OS ITEM-xX OCCURS 40 TIMES PIC Sd(1i0), 
OS ITEM-Y OCCURS 40 TIMES PIC Sa(5),. 


TABLE-~X occupies 600 storage positions. To reduce this area by approximately 
50% (two digits/byte), we could use the PACKED-DECIMAL or COMPUTA- 
TIONAL-3 (COMP-3) clause, which packs the data. 


O1 TABLE-X USAGE IS COMPUTATIONAL-3,. 
OS ITEM-X OCCURS 40 TIMES PIC §9(10), 
OS ITEM-Y OCCURS 40 TIMES PIC S9(5). 


The COMPUTATIONAL-3 or COMP-3 option that results in packing should be 
used for numeric fields only. As in the above example, it can also be used on 
the group level, if the corresponding elementary items are numeric. 

Note that the fields specified as PIC $9(10) COMP~3 are in reality fields 
with a length of six bytes. Because (10 + 1) / 2 = 5.5, six bytes are needed. 
Each six-byte field can actually hold 11 digits. 

The PACKED-DECIMAL, COMPUTATIONAL-3, or COMP-3 option should not 
be used for printing output because the data is not readable in packed form. 
Since each byte does not contain a zone and digit as in normal EBCDIC format, 
printing it will produce undecipherable results. To print packed data, it must 
first be moved to a zoned decimal numeric field or report-item. 

Thus, for numeric fields we can save considerable storage space by using 
the packed format. In addition, the computer requires numeric fields to be 
packed for it to perform arithmetic operations. 

Consider the following field: 


O35 AMT PIC 99, 
This entry is zoned decimal since no USAGE clause is specified. To perform 
an arithmetic operation on AMT, the computer automatically: 


1. Packs AMT. 
2. Performs the arithmetic operation. 
3. Unpacks amt. 


If AMT were originally specified as a packed field, two of these three operations 
would be unnecessary. Thus, for the sake of efficiency, we may revise the 
coding of AMT as follows: 


24 


FT B eg 20 a 7 Ed i) oa oo 72 


49 ACKED- DECIMAL. 11 tor 1985'ANS COBOL users | 


le} 10) Be} <t For IBM and IBM-compatible 
La computers + 


MAXIMIZING PROGRAM EFFICIENCY 701 


Establishing ANT as a packed field eliminates compiler-generated instructions 
that would be required if the numeric fields were not packed. 

As a general rule, numeric WORKING-STORAGE items to be used in arith- 
metic operations should be specified with USAGE COMP-3 or COMPUTATIONAL - 
3. Input is usually not entered in packed format, and output is usually not 
produced in packed format; thus, the COMP-3 option of the USAGE clause 
would usually be inappropriate in the FILE SECTION. 

The computer automatically handles conversions from packed to unpacked 
form and vice versa, so you need not worry about moving a packed numeric 
field in WORK ING-STORAGE to an unpacked numeric field, for example. Such 
a move would result in the unpacked format transmitted to the receiving field 
with no additional programming effort. 

Note that COMP-3 is not part of the standard and, despite its widespread 
use, is employed only with IBM and IBM-compatible computers that use the 
EBCDIC code. PACKED-DECIMAL. is part of the new standard and is not avail- 
able for 1968 and 1974 ANS COBOL users. 


D. USAGE 1S COMPUTATIONAL or COMP: Binary Format of Data 


Instead of representing numeric data in zoned decimal format, it is possible 
to represent data in binary form. When numeric data is to be entered, operated 
on, or produced as output in binary form, the clause USAGE 1S COMPUTA- 
TIONAL or USAGE 1S COMP must be specified. 

The COMPUTATIONAL or COMP usage is used for numeric items only to rep- 
resent data strictly in binary form. All fields designated as camp should be 
signed. For some mathematical purposes, binary arithmetic is more efficient. 
That is, the binary format is desirable when many repetitive computations 
must be performed. Similarly, for some operations, it is more efficient to 
produce binary output, so that when the data is read in again at a later date, 
conversion to binary is not necessary. 

Subscripts are typically generated in binary form on many computers. To 
avoid compiler-generated conversions of fields such as subscripts from binary 
to decimal, they should be defined as COMP or COMPUTATIONAL. 


E. SYNC or SYNCHRONIZED Clauses for COMP Data 


This clause is used to align binary numeric data on required boundaries. If the 
SYNCHRONIZED or SYNC clause is omitted, the compiler will generate a series 
of instructions to align the field. The SYNC clause makes for a more efficient 
program by minimizing the need for such compiler-generated instructions. 
SYNC is used only with elementary numeric items and can be coded as SYNC 
LEFT or SYNC RIGHT. SYNC LEFT means that the elementary item is positioned 
such that it begins at the leftmost position of a natural boundary. SYNC RIGHT 
means that the elementary item is positioned so that it will terminate on the 
rightmost position of a natural boundary. 


CHAPTER SUMMARY 
I, COPY Statement 
A. To copy entries stored in a library into a user program. 
B. Can copy ENVIRONMENT, DATA, and PROCEDURE DIVISION entries. 
C. Most often used for copying standard file and record description entries 
or routines to be used in the PROCEDURE DIVISION, 
D. Entry coded is: copy library-name 
Il, CALL Statement 
A. To call or reference subprograms stored in a library. 
B. User program is referred to as the calling program; subprogram ac- 
cessed from the library is referred to as the called program. 
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C. Passing data from the called program to the calling program 


1. 


CALL entry can include a USING clause which lists the names of the 
fields in the calling program that are to include results of calcula- 
tions performed by called program. 

Called program: The PROCEDURE DIVISION entry also includes a 
USING clause to indicate data-names specified in the subroutine that 
will correspond to entries in the calling program. 


. Data-names in the called and calling program may be the same or 


they may be different. 
Example 


Calling program: 
PROCEDURE DIVISION, 


’ 


CALL X1 USING A» By C, 
4, 8, and C are defined in the calling program. 


Called program: 
LINKAGE SECTION. 


os @ 
oS R 


oS W 
‘ 


PROCEDURE DIVISION USING Q+ Ry We 


+ 
+ 


EXIT PROGRAM. 


(a) 9, R, W from called program are passed to A, B, C, respectively, in 
calling program. 

(b) Called program must have a LINKAGE SECTION in which fields 
to be passed to called program are defined. 

(c) Called program must end with an EXIT PROGRAM statement. 


IIL. USAGE Clause 
A. Used to specify how data is to be stored internally during processing. 
B. Options available 


Is 


2. 


USAGE IS DISPLAY 

a) Data is stored in zoned decimal format—eight bits per byte. 

(b) If the clause is omitted, zoned decimal is assumed. 

Used for printing output or reading in data in standard form. 
PACKED-DECIMAL 


USAGE IS {COMPUTATIONAL 
COMP-3 


GS) 


a) Stores numeric data in packed format—two digits per byte. 

b) Arithmetic is typically performed in packed format. 

c) Increases efficiency by reducing the number of bytes needed to 
store numbers. 

d) PACKED-DECIMAL is only available for 1985 ANS COBOL users 
and COMPUTATIONAL-3 or COMP-3 is only available on IBM or 
IBM-compatible computers. 


. USAGE IS COMPUTATIONAL 


a) Stores numeric data in binary form. 
b) Makes certain operations such as subscripting more efficient. 
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Solutions 


CHAPTER SELF-EVALUATING QUIZ 


FR ey e 


. The USAGE clause is used to specify 
. The USAGE clause is used with a 


(T or F) The USAGE clause may be used in any section of the DATA DIVISION. 
(T or F) The USAGE clause may precede or follow the PICTURE clause. 


. Input is usually entered in _______ format. 
Zoned Decimal Format means that a single ________ of data is represented in one 
byte of storage. 
In Zoned Decimal Format, each character is represented by a ________ portion 
and a ________ portion. The entire character represents one _________ off storage. 
Zoned Decimal Format for storage of data is obtained by specifying USAGE 18 

or by 

. The purpose of packing data is to _____ and 

. Only ________ items can be packed. 

. In general, packing numbers saves approximately ________ percent storage. 


. In addition to saving storage space, defining a field that will be used in an arith- 


metic operation as a packed field results in 


. (T or F) Any storage field may be packed. 

. (T or F) If an output field is specified as CaMP-3, it will be readable when produced. 
. To specify fields in binary form, the ________ option of the USAGE clause is used. 
. To duplicate in your program a series of record description entries, use a 


statement. 


. To execute an external subroutine and then return to your program, use a 


statement. 


. For both Questions 16 and 17, the entries specified must be stored in a 


. Suppose you define an 01 entry as X-REC. Into the area specified as X-REC you 


want to copy Y-REC stored in a library. The coding for this is 


. Suppose you have three fields AMTi, AMT2, and AMT3 that are to receive results 


from a called module which operates on three fields called 41, A2, 43. The calling 
statement would be coded as ________ and the PROCEDURE DIVISION entry of 
the called program would be 


Page 

the form in which data is stored 698 
record description entry—either group or elementary level item 698 
T 698 

. F—It must follow the PICTURE clause. 699 
. External or Zoned Decimal 699 
. character 699 
zone; digit; byte or position 699 
DISPLAY; omitting the USAGE clause 699 
conserve storage; make more efficient use of the computer 699 

. numeric 699 
. 50% 700 


. fewer compiler-generated instructions (computer does not have to pack field 701 


before operation and then unpack it after the operation) 


. F—Only numeric fields. 699 
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14. F 700 
15. COMPUTATIONAL, (COMP) 701 
16. COPY 686 
17. CALL 690 
18. library 690 
19. 01 X-REC COPY Y-REC. 686 
20. CALL ‘SUBPR’ USING AMT1+ AMTZ+ AMT. 691 

PROCEDURE DIVISION USING Ai+ AZ? AB. 691 


Figure 25.1 
Problem definition for the 
Practice Program. 


PRACTICE PROGRAM 


Consider the problem definition in Figure 25.1. The input consists of an address entered 
with street, city, state, and zip separated by /. The output requires this address com- 
ponent to be separated into individual fields using the UNSTRING. The UNSTRING rou- 
tine is called in from a program called UNSTR. 

The program with sample output is illustrated in Figure 25.2. 


Systems Flowchart 


— 


EMPLOYEE-DISK 
standard labels 


EMPLOYEE-DISK Record Layout 


REPORT-FILE Printer Spacing Chart 


29 30 


REPORT-FILE 
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Sample Input Data 


345234231JU0HN WAYNE 
PB66S4543BURT REYNOLDS 
6S48978S53SGEORGE BURNS 
8765674653STEVE_McQUEEN 


145 WEST ST/MIDDLETOWN/NY/10096/ 

S& EAST AVE/ANYTOWN/NJU/OC874/ 

100 NORTH ST/NEW_YORK/NY/10000/ 
452 WEST MAIN ST/WARYING/CA/90006/ 


z 
eT aacetinon Maite BLUMMER Ae EAST 63 ST/NEW YORK/NY/00987/ 


6111023B88NICK NOLTE 
345443344ART CARNEY 
6546554566HARRISON FORD 


2 CONCORD RD/HOLLYWOOD/CA/90078/ 
98 WARD ST/WESTVILLAGE/VT/097898/ 
100 DELLWOOD RD/CENTERTOWN/ND/78776/ 
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Figure 25.2 


1 IDENTIFICATION DIVISION. 
2 BROGRAN-1D. Sal F ¥ 
3 BORER’ CHRISTOPHER HAMMEL. Solution to the Practice 
$ EN IOMNEN DIVISION P. 
6 FILE-CONTROL age aN 
7 SELECT EMPLOYEE-DISK ASSIGN TO DISK1S. 
8 SELECT REPORT-FILE | ASSICN TO SYSSOUTPUT. 
9 DATA DIVISION. 
10 FILE SECTION. 
il FD EMPLOYEE-DIS 
12 EABEL RECORDS ARE STANDARD. 
13 01 EMPLOYEE-REC. 
14 03 EMPLOYEE-NUMBER PIC 9(9) 
15 05 EMPLOYEE-NAME PIC x(20) 
16 03 ENPLOVEE-ADDRESS PIC X(50) 
17 FD REPORT=FIL 
18 CAgEL RECORDS ARE OMITTED. 
19 o1 EC PIC x(1ga) 
20 KORKING-STORAGE SECTION 
21 Of WORK=AR 
28 O83 or, PIC 9 VALUE ZERO 
29 01 BATA: TO-BE-SENT-TO-UNSTRING. 
24 09 EMPLOYEE -ADDRESS-STR PIC x¢50) 
25 08 DATACUNSTRU 
26 10 STREET ADBRESS PIC X(19) 
27 10 PIG X(20) 
28 10 State PIG Xx 
29 10 ZIP-CODE PIG x(S) 
30 01 HEADERI 
31 OS FILLER PIG X(51) VALUE SPACES. 
32 FICCER Pic x(a@) 
39 ALUE EMPLOYEE ADDRESS’ 
34 05 FILLER Pic x(s0) VALUE SPACES 
39 01 HEADERS 
36 03 FILLER PIC X(20) VALUE SPACES. 
37 05 FILLER PIC X(a5) 
38 VALUE ‘EMPLOYEE NUMBER EMPLOYEE NAME’ 
39 05 FILLER PIC X(28) VALUE SPACES. 
40 05 F PIG X(1&) 
41 VALUE “EMPLOYEE ADDRESS‘ 
42 05 F PIG X(36) VALUE SPACES. 
43 01 DETAIC=LINE 
44 08 FIt PIG X(2a) VALUE SPACES 
45 05 EMPLOYEE-NUMBER-OUT PIC 9(9) 
46 05 F PIG x(@) VALUE SPACES. 
47 05 EMPLOVEE-NAME~OUT PIG X(20) 
4g 05 FI PIC X(S) VALUE SPACES. 
49 99 STREET-ADDRESS-OUT PIC X(19) 
50 05 FI PIG XX VALUE SPACES 
51 68 CITY-0UT PIG X(20) 
52 05 FILLER PIC Xx VALUE SPACES 
53 05 STATE-OUT PIG XX 
54 05 FILLER PIG XX VALUE SPACES. 
55 05 Z1P-COpE-OUT PIG X(9) 
56 05 FILLER PIC x(20) VALUE SPACES 
57 PROCEDURE DIVISION, 
58 MAINA. 
59 QPEN INPUT EMPLOYEE-DISK 
60 QUTPUT REPORT-FILE. 
61 READ EMPLOVER-Disk AT END MOVE 1 TO EOF. 
62 BERPORM HEADING-RIN, 
63 PERFORM REPORT-RTN UNTIL EOF IS EQUAL TO 1 
ea CLOSE EMPLOYEE -D1SK 
68 T 
&7 REPORT=R 
68 PLOYEE-ADDRESS, TO, EMPLOYEE~ADDRESS-STR. 
6? GALE SUNSTRY USING DATA=TO-BE-GENT- TG-UNSTRING 
70 MOVE EMPLOYEENUMBER TO EM =N 
7 MOVE EMPCOYEE-NAbt 9 EMPLOYEE NAME eur: 
72 MOVE STATE 19 
73 MOVE CITY To erty: 
74 move ZiP-co ZIP-coD 
73 STREET ADORE G) StREey-ADDREaS-oV 
76 TRY FE REBORTCRES FROM DETALL“LINE AFTER ADVANCING 2 LINES. 
77 READ EMPLOYEE-DISK AT END MOVE 1 TO Et 
78 HEADING-RTN, 
79 WRITE REPORT-REC FROM HEADER1 AFTER ADVANCING PAGE, 
80 WRITE REPORT-REC FROM HEADER AFTER ADVANCING 4 LINES. 
UNSTR 
Source Listing 
4 ADENTIFICATION DIVIGION. 
3 AUTHOR, CHRISTOPHER HAMMEL, 
4 ENVIRONMENT DI 
5 DATA DIVISION. 
é LINKAGE SECTION 
7 ATA SENT -EROM=CALLING-PROG, 
8 08 eMpLOVEE<A PIG X(50) 
9 05 UNSTR-ADD 
10 10 STREET-ADDR PIC X(15) 
iL 10 CLTY=AD PIG X(20) 
12 10 STATE-ADDR PIC XX 
13 10 ZIP-CoDI PIC X(5) 
14 PROCEDURE BIVISTON USING DATA-SENT-FROM-CALL ING-PROG 
16 UNSTRING EMPLOVEE- ADD 
17 DELIMZTED BY "/" 
18 INTO STREET-ADDR 
19 ITY=A 
20 STATE-ADDR 
Py ZIP—CODEX 
23 EXIT=PARA. 
23 EXIT PROGRAM. 
EMPLOYEE ADDRESS 
EMPLOYEE NUMBER EMPLOYEE NAME EMPLOYEE ADDRESS 
aas2a42a1 JOHN: WAYNE 165 WEST ST MIDDLETOWN NY 10098 
984454543 BURT REYNOLDS 56 EAST AVE ANY TOWN NU 00876 
654878535 GEORCE BURNS 100 NORTH ST NEW YORK NY 10000 
876567653 STEVE McQUEEN 1452 WEST MAIN WARYING CA 70006 
567744544 CHRISTOPHER PLUMMER 77 EAST 63 ST NEW YORK NY 00987 
611102988 NICK NOLTE 492 CONCORD RD HOLLYWOOD cA 90078 
249449344 ART GARNEY 9@ WARD ST WESTVILLAGE VT 09898 


§4594566 HARRISON FORD 100 DELLWOOD RD CENTERTOWN ND 78776 
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CALL Library 

Called program LINKAGE SECTION 
Calling program Packing 

Catalogue Source statement library 
COMPUTATIONAL (COMP) Subprogram 
COMPUTATIONAL-3 (COMP-3) SYNCHRONIZED (SYNC) 
COPY USAGE clause 

DISPLAY (in USAGE clause) Zoned decimal format 


EXIT PROGRAM 


| REVIEW QUESTIONS 


I. True-False Questions 


1. 
2. 
3. 


4, 


T or F) copy and CALL may be used interchangeably in a COBOL program. 
T or F) In order to CALL or COPY an entry, it must be stored in a library. 
T or F) A copy statement enables several users to call into their program stand- 
ardized record description entries. 
T or F) A COPY may not be used for referencing PROCEDURE DIVISION entries. 
T or F) When using a CALL statement, the data names specified must be identical 
in both the called and calling program. 
T or F) When using a CALL statement, the called program is typically referred to 
as the user program. 
T or F) A called program must have a LINKAGE SECTION. 
T or F) All calling programs must end with an EXIT PROGRAM entry. 
T or F) A called program is not altered when it is accessed by a calling program. 
T or F) Another term for a called program is a subprogram. 
T or F) If the USAGE clause is omitted, data is assumed to be in zoned decimal 
format. 
T or F) Packed decimal format is only used for numeric fields. 
T or F) The 1974 standard does not itself include a clause for packing data. 
T or F) To pack a field using the 1985 standard, we code USAGE IS PACKED- 
DECIMAL. 
T or F) To represent data in binary form, we code USAGE IS COMPUTATIONAL. 

. General Questions 


Indicate the differences between the cory and CALL statements. 

Code a statement to COPY a record description called INVENTORY-REC from a library. 
Code the shell of a calling program to access a subroutine called VALIDATE that 
will place into a user-defined field called couNT1 the total number of errors found. 
For Question 3, assume that the called program stores the count of errors in a field 
called SUM-1T. Code the shell of the called program. 

Indicate how and why each of the following would be used in a COBOL program: 
(a) USAGE IS DISPLAY. 

(b) USAGE IS PACKED-DECIMAL. 

(c) USAGE IS COMPUTATIONAL. 
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III. Validating Data 


Modify the Practice Program so that it includes coding to (1) test for all errors and 
(2) print a control listing of totals (records processed, errors encountered, hash total). 


DEBUGGING EXERCISES 


1. Consider the following: 
OS ITEM PIC X(5) PACKED-DECIMAL. 


Assume you are using a 1985 compiler. What error will occur and why? 
2. Consider the following: 


CALL ‘SUBPROG’ USING X+ ¥. 


(a) Suppose x and Y are defined in SUBPROG. Will an error occur? Explain your 
answer, 
(b) Does the program including the above CALL need to be coded by the program- 
mer? Explain your answer. 
3. Suppose SUBPROG for Exercise 2 has the following: 


LINKAGE-SECTION. 


+ 
’ 


oS @ 
OS R 
PROCEDURE DIVISION USING K+ Yy 


’ 


EXIT. 

(a) The line containing LINKAGE SECTION results in a syntax error. Find the error 
and correct it. 

(b) The PROCEDURE DIVISION entry results in a syntax error. Find and correct it. 

(c) The last line results in a syntax error. Find and correct it. 


PROGRAMMING ASSIGNMENTS 


1. A subroutine called strdEP calculates straight-line depreciation as illustrated in 
Figure 16.7. Write a program to call in this subroutine and to pass to the calling 
program all the calculated variables. See the Problem Definition in Figure 25.3. 

2. A subroutine called BENEFITS is used to calculate certain benefits to which an 
employee is entitled, based on the employee’s Job Classification Code. Write a 
program to call in this subroutine and to pass to the called program the following: 
(a) Number of vacation days. 

(b) Number of sick days. 


The purpose of the program is to create an indexed sequential master payroll file 
that adds vacation days and sick days to each employee’s record. See the Problem 
Definition in Figure 25.4. 

3. Modify the Practice Program in Chapter 23 so that it includes USAGE clauses that 
will maximize the efficiency of the program. 

4, Modify the program in Figure 24.2 on p. 669 so that it includes USAGE clauses that 
will maximize the efficiency of the program. 
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Figure 25.3 — Systems Flowchart 
Problem definition for Pro- 
gramming Assignment 1. 


STRDEP 
SUBROUTINE 


DEPRECIATION-RECORDS 
43-position records 
standard labels 

20 records/block 


INVENTORY-MASTER 
36-position records 
standard labels 

20 records/block 


Record Layouts 
1, INVENTORY-MASTER 


27 28 34 35 


2, DEPRECIATION-RECORDS 


43 


20 21 27 28 34 35 36 37 


wo 
+S 
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Systems Flowchart 


BENEFITS SUBROUTINE 


PAYROLL-MASTER 
80-position records 
standard labels 

20 records/block 


PAYROLL-DATA 
80-position records 
standard labels 
20 records/block 


Record Layouts 
1. PAYROLL-DATA 


58 59 80 


56 2526 862728 2930 3536 44 45 48 49 53 54 


2, PAYROLL-MASTER 


5859 6162 6465 80 


46 47 48 49 53 54 


1 56 2526 = =2728 2930 3536 44 45 


Figure 25.4 
Problem definition for Pro- 
gramming Assignment 2. 
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Advanced Debugging 
Concepts and Improving 
Program Performance 


|, DEBUGGING AIDS 
A. Isolating Individual Errors 
1, Obtaining a Listing of the Actual Address of Each Instruction 
2. Obtaining a Memory or Storage Dump 
B. Deciphering Program Interrupts 
Il. USING CHECK DIGITS TO VALIDATE DATA 
A. Check Digit Defined 
B, Calculating Check Digits 
Il]. GUIDELINES FOR IMPROVING PROGRAM EFFICIENCY 
CHAPTER SELF-EVALUATING QUIZ 
KEY TERMS 
REVIEW QUESTIONS 
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ee OBjECTIVES 


To familiarize you with: 

1. More sophisticated methods used to debug COBOL programs. 

2. Techniques used for isolating errors. 

3, Suggestions for standardizing and improving the form of COBOL programs. 


By now you have learned how to code and debug elementary, intermediate, 
and even some high-level COBOL programs. In fact, you should be able to 
function competently in any COBOL environment once you learn the basic 
specifications of your system. 

This chapter will describe some additional debugging features. It will also 
provide a general overview of elements to be included in a COBOL program 
to check the validity of the input data and to make the program more efficient. 


CN 1. Debugging Aids 


A. Isolating Individual Errors 


We have seen in Chapter 11 how the use of debugging tools such as READY 
TRACE or EXHIBIT can help to find logic errors. Two additional techniques 
can be used to pinpoint logic errors further. 


1, Obtaining a Listing of the Actual Address of Each Instruction 
On many systems, job control commands can be used to instruct the computer 
to provide a PROCEDURE DIVISION map. This map is a list of each instruction 
and the actual storage location where it is placed. If an abend condition occurs, 
the computer will automatically indicate the actual storage location of the 
instruction that caused the abend. If you have a listing of the PROCEDURE 
DIVISION map, you can use it to determine the specific instruction or clause 
that was in error. This is even better than the READY TRACE, which only lists 
the paragraph that contained an error. 
The job control command to obtain this procedure division map varies from 
system to system, but MAP=YES as part of the OPTION command is common. 
The range of machine addresses varies from computer to computer, as does 
the representation of an address. On some systems, an address such as ABSF 
is not uncommon. To actually determine the decimal equivalent of this ad- 
dress is beyond the scope of this text. For our purposes, it is sufficient to locate 
the COBOL instruction at AB9F, for example; we need not concern ourselves 
with where this location is in storage. 


2. Obtaining a Memory or Storage Dump 

Through job control, you can instruct the computer to print the entire con- 
tents of storage if an abend condition occurs. In this way, you can examine 
the contents of all data fields when an error has occurred. This might, in fact, 
eliminate or at least minimize the need for an EXHIBIT statement. 

A storage dump usually lists the contents of storage in both internal ma- 
chine code format and in character form, for ease of reading. Typically, a job 
control command such as DUMP=YES is used with the OPTION command. 

Here, again, knowledge of machine language representation is not neces- 
sary. Most computers print the contents of storage in character form as well 
as in machine language. 
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B. Deciphering Program Interrupts 


Each time an abend or abnormal end condition occurs, the computer prints a 
brief code designed to specify the type of error that has occurred. The following 
is a list of common program interrupts and typical reasons why they occur. 


COMMON PROGRAM INTERRUPTS 


Interrupt Cause 

DATA EXCEPTION 1. You may be performing an arithmetic 
operation on a field that contains blanks 
or other nonnumeric characters. 
You may be attempting to use a numeric 
field in a comparison and it contains 
blanks or other nonnumeric characters. 
3. You may have failed to initialize a 

subscript or index. 


iy 


DIVIDE EXCEPTION This error will occur on some systems if 
you attempt to divide by 0; on other 
systems an attempt to divide by 0 will 
not cause an interrupt but will produce 
unpredictable results. 


ADDRESSING ERROR 1. This usually means there is an incorrect 
value in a subscript or index so that a 
table look-up exceeds the number of 
entries in the table. 

. This error will also occur if there is an 
improper exit from a paragraph being 
performed. This may result if nested 
PERFORMs or GO TOs are used improperly. 


i) 


OPERATION ERROR You may be attempting to access a file 
with a READ or WRITE before opening it. 


SPECIFICATION ERROR You may be attempting to access an 
input area after an AT END condition or 
attempting to access an output area 
directly after a WRITE. 


HEP I. Using Check Digits to Validate Data 


In Chapter 15 we discussed the majority of validity checks commonly used 
to minimize the risk of errors. In this chapter we will consider the use of a 
check digit, which is an advanced concept for improving data validity for some 
types of programs. 


A. Check Digit Defined 


As noted, key fields are used to identify records in a file. For payroll files, a 
key field may be Social Security number or employee number; for accounts 
receivable files, a key field may be customer number or transaction number. 

The key field is the most crucial field on a record because it uniquely 
identifies each record. If it has been entered incorrectly, the record will not 
be easily accessible and the error will be difficult to find. For procedures that 
update an accounts receivable file, for example, a transaction customer num- 
ber must be entered correctly. If it is not, the transaction would be posted to 
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the wrong account. The two primary types of data entry errors are transcrip- 
tion (entry of incorrect characters) and transposition (reversal of characters). 

Because key fields are usually numeric, they are initially entered by an 
operator as a series of unrelated numbers. This means there is no immediate 
control procedure that the operator can use to check the field as it is keyed. 
An error in a name field, for example, is easier to detect since vowels are 
expected in specific positions and there is some intuitive realization when a 
name is misspelled. Suppose BROWN were to be entered as a name; BRXMN or 
BRIWN would easily be seen by a data entry operator as an error. 

Names, however, are not generally useful as unique key fields since it it 
possible that two or more people might have the same name. Thus, numeric 
key fields are used. Note, however, that the problem of checking them during 
data entry is a more difficult one to resolve. 

As we have previously seen, one way to minimize any keying error is to 
verify all data entry by using a re-keying procedure, This method of verifica- 
tion will allow for immediate correction of approximately 90% of all data 
entry errors. Although this minimizes problems, there is still an error rate of 
10%. To further reduce the chance of errors, many systems use check digits. 

A check digit is a computed integer tacked onto a key field such as Social 
Security number. The check digit becomes part of the key field and is used 
along with the key for identification purposes. Thus, a Social Security number 
key field will become a 10-digit field—nine for the actual Social Security 
number and one for the check digit. 

When a new record is added to a file, the check digit is determined by 
performing a mathematical computation on the digits in the key field. Hence- 
forth, the key field will include the check digit. Thus, if a nine digit Social 
Security number is to serve as a key field, a tenth digit called the check digit 
will be added and all ten digits will serve as the overall key field. 


B. Calculating Check Digits 


Various techniques are used to calculate a check digit, some of which we will 
consider shortly. Each time a transaction record or a query is entered to update 
or inquire about a master record, it will contain the full 10-digit code (Social 
Security and check digit). The computer will use the first nine digits to cal- 
culate a computed check digit and determine if the tenth digit that was entered 
is, in fact, the correct check digit. If it is, processing continues. If the tenth 
digit is not the same as the computed check digit, the computer will assume 
that the Social Security number was entered incorrectly. An error message 
will be displayed, and the record will not be processed. 

Computations used to calculate a check digit are primarily designed to 
minimize the risk that transposition key errors will go undetected. A trans- 
position error is one in which two or more adjacent digits are transposed or 
inadvertently rearranged. 1094 and 1904 have transposed digits. 

Most check digit routines will be able to pinpoint a transposition error 
because the check digits computed for 1094 and 1904 will be different. 

Numerous methods are used for calculating a check digit. Some are most 
useful in minimizing errors caused by: 


1. Keying a wrong digit. 

2. Single transposition error. 
{i.e., 5274 instead of 5724) 

38. Multiple transposition errors. 
(i.e., 58736 instead of 53876) 


One of the most useful techniques for computing a check digit is called the 
modulus-11 method. This method can detect approximately 97% of all trans- 
position errors, including both single and multiple transposition errors. The 
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rules for forming a check digit using the modulus-11 method with an illus- 
trative example are as follows: 


Moputus-11 METHOD 


Rules for Calculation Example 
of a Check Digit (Using a 9-digit 
Social Security number) 
1. Assign a factor of 2 to the Social Security number 
units position, 3 to the tens, O 8 7 B25 8 6 I 


4 to the hundreds, and so on 

until the sixth digit, which 

would be assigned a value of Factor 

7. If there are more than six 432765 43 2 
digits, begin again by 

assigning the seventh digit a 

2, the eighth a 3, and so on. 


2. Multiply each digit of the 087325 8 61 
field by its respective factor eek KR RK KR XK 
and obtain individual 4332765 4383 2 
products for each place. | | | | | | | | | 

0 24 14 21 12 25 32 18 2 

3. Add the individual products. 04244 144+21+12+25 + 

32 + 18 +2 = 148 

4. Divide the sum of the 
individual products by 11 and 11)148 Remainder = 5 
retain the remainder. 

5. Check Digit = 11 — Check Digit = 11 — 5 
Remainder =6 


Once calculated, the check digit becomes part of the Social Security number 
for the key field of each record on the master file and on all transaction files. 
Thus, each record would be entered with a 10-digit Social Security number as 
the key field. Before updating the master file, however, the computer will 
compute a check digit using the leftmost nine digits, which actually corre- 
spond to the Social Security number. The computed check digit would be 
compared to the low-order or rightmost digit entered as the check digit. If the 
computed check digit does not match the digit entered, then an error message 
is printed and the record is not processed. 

Check digits are used extensively for key fields where data integrity is 
critical. It is not, however, used for other data fields for several reasons: it 
requires additional space per field, the calculations required could prove cum- 
bersome, and additional keying is necessary for entering the code, which in- 
creases the risk of more transcription errors. 

To calculate a check digit in COBOL, we must redefine the key field as 
individual digits so that we can operate on them independently: 


ol xX PIC S9(3)+ 
Ol IN-REC, 
oS SSNO-IN PIC 3(9)+ 
O5 SSNOX REDEFINES SSNO-IN 
OCCURS 9 TIMES PIC 9, 


+ 
’ 
’ 
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O1 OUT-REC, 
OS KEY-FIELD 
10 SSNO-OUT PIC 9(9), 
10 CHECK-OUT PIC 9. 


The calculations for a modulus-11 check digit would be as follows: 


MOVE 2 TO FACTOR 

PERFORM CHECK-DIGIT VARYING KX FROM 9 
By -1 UNTIL X = 3. 

MOVE 2 TO FACTOR, 

PERFORM CHECK-DIGIT VARYING X FROM 3 
BY -1 UNTIL X # Q, 

DIVIDE 11 INTO SUM-PROD 
REMAINDER Y. 

COMPUTE CHECK-OUT = 11 - Y, 

MOVE SSNO-IN TO SSNO-OUT, 

CHECK-DIGIT. 

COMPUTE PROD = SSNOX (X) * FACTOR, 

ADD PROD TO SUM-~PROD, 

ADD 1 TO FACTOR, 


Many systems establish key fields with check digits as part of all records. 
Others use check digits only with critical data. In any case, you should un- 
derstand the meaning of check digits and know how to create and check them. 
We have illustrated the creation of check digits with modulus-11 arithmetic. 
Other methods are also available. 


(Ra pat Ill. Guidelines for Improving Program Efficiency 


Chapter 11 specified some techniques used to minimize errors, improve effi- 
ciency, and make debugging easier. The following is a set of guidelines for 
improving program efficiency that specifically relates to items in the last half 
of the text, although early elements are also mentioned as a review. 


GUIDELINES FOR IMPROVING PROGRAM EFFICIENCY 


1, Establish numeric fields as COMP or COMP-3 (or PACKED~DECIMAL] 
where feasible. 

2. The statement MOVE ZEROS TO data-name is only valid for ele- 
mentary items or group items designated as DISPLAY. If the data- 
name is a COMP or COMP~3 (PACKED-DECIMAL), MOVE ZEROS will 
result in an error. To obtain zeros in the field, you must use the 
numeric literal 0. 

3, LOW-VALUES and HIGH-VALUES may only be moved to alpha- 
numeric fields. 

4, Subscripts and indexes should be initialized before used. 

5. Avoid the THRU option with a PERFORM statement where possible 
because it may introduce errors if the paragraphs in the range of 
the PERFORM are executed from other parts of the program as well. 

6. Minimize the use of the DISPLAY statement except for operator 
messages or for debugging. Use the WRITE statement for normal 
record processing. 

7. Minimize the use of the ACCEPT statement. Use the READ state- 
ment for normal record processing. 
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8. Avoid the use of implied operands in a conditional statement. Ex- 
plicit operands are more user-friendly. For example, IF A = 7 OR 
A = 8 «++ isbetterthan IF A = 7 OR B vss 


9. Use parentheses in COMPUTE and compound conditionals even if 
they are not absolutely necessary. This will help make programs 
more readable. 


10. Avoid the use of the ON $1ZE ERROR clause. Instead, make certain 
that result fields are large enough. 


11. Avoid the use of section-names unless required, as in the SORT. 


12. When specifying the USAGE clause, omit the optional words USAGE 
and 1. They consume space on the coding line and do not really 
add meaning for the user. 


13. In general, COMP-3 or PACKED-DECIMAL is better than COMPUTA- 
TIONAL if it can be used. 


14. Use SYNC for proper alignment. 
15. Avoid the use of 18. For example, use PIC instead of PIC 15. 


16. Use PIC instead of PICTURE. 
17. Avoid commas as punctuation. 
18. Code one COBOL sentence, statement, or clause per line. 


19. Indent when doing so makes a statement easier to understand, 
especially when using IF +++ ELSE. 


20. Use a binary search (SEARCH ALL) instead of a serial search 
(SEARCH) where possible and where there are at least 50 elements. 


21. Use one OPEN statement, rather than numerous OPEN statements 
where feasible. 


22. Use condition-names where feasible. 

23, Use READ +++ INTO and WRITE .++ FROM where feasible. 
24. Test for the most likely conditions first. 

25. Use $ ina PIC clause when a field may be negative. 


26, Use indexes rather than subscripts, because they result in more ef- 
ficient processing. 


27. Use paragraph-names with a numeric portion to help identify the 
location of routines in long programs. For example, 


200010-MAIN+ 


CHAPTER SELF-EVALUATING QUIZ 


I. 


Sa ag - 


\o 


A may be used to list every paragraph encountered during program 
execution. 


To print fields that have been processed during program execution, you may use 
a(n) ________ or _______ statement. 


If you need to find the exact line on which an error has occurred, you will need 
to obtain a ________ map. 


(T or F) Obtaining a PROCEDURE DIVISION map requires job control commands. 
A_______ lists the contents of storage. 

(T or F) Storage dumps are typically listed in machine code only. 

A _______ is a condition that causes an abnormal end to a program. 


Attempting to add a field that contains blanks to another field will cause a 
error to occur. 


. (T or F) The error in Question 8 will not result in an abend condition. 
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Solutions 


10. (T or F) A check digit is typically used only with key fields. 


11. (T or F) A check digit is used for determining if arithmetic operations have been 
performed properly. 

12. Numeric fields are best established as ___ or ________ rather than as 

13, LOW-VALUES and HIGH-VALUES may only be moved to ______ fields. 

14. If possible, use the ________ statement in place of the ACCEPT statement. 

15. If possible use the WRITE statement in place of the ______ statement. 

Page 

1. READY TRACE 257 
2. EXHIBIT; DISPLAY 258 
3. PROCEDURE DIVISION 711 
4. T 711 
5. storage dump 711 
6. F—Storage dumps print data in character form as well as in machine form. 711 
7. program interrupt 712, 
8. data exception 712 
9, F 712 

10,. "EE 713 

ll, F 713 

12. COMP-3 (or PACKED-DECIMAL); COMP; DISPLAY 715 

13. alphanumeric 715 

14. READ 715 

15. DISPLAY 715 

KEY TERMS 

Addressing error PROCEDURE DIVISION map 

Check digit Program interrupt 

Data exception Specification error 

Divide exception Storage dump 


Operation error 


REVIEW QUESTIONS 


I, True-False Questions 


dy 


T or F 
T or F 
within 
(T or F 
T or F 


T or F 


(T or F) 
T or F 


If an abend condition occurs and a READY TRACE has been included in the 


program, then the error is located in the last paragraph listed. 


A READY TRACE may also be used for determining the actual instruction 
a paragraph that contains an error. 


The only way of determining what is in storage when an abend condition 


occurs is by exhibiting or displaying all data fields. 


All computers automatically initialize alphanumeric fields with blanks 


and numeric fields with zeros. 


Attempting to access an input area after an AT END condition will result 


in a specification error. 


As a rule-of-thumb, always use check digits with all numeric fields. 
Verifying data by re-keying it will detect all data entry errors. 


T or F) The modulus-11 method of calculating check digits is used to detect 


transcription errors but not transposition errors. 


718 


ADDITIONAL COBOL OPTIONS 


9. (T or F) The word 18 is always optional and is best avoided in programming. 
10. (T or F) Using parentheses unnecessarily in a COMPUTE statement will result in a 
syntax error. 


II. General Questions 
1. Using modulus-11 arithmetic, calculate the check digit for the Social Security num- 
ber 087 37 0667. 
2. Using modulus-11 arithmetic, calculate the check digit for a part number of 62513. 
3. Indicate the meaning of the following program interrupts: 
(a) DATA EXCEPTION. 
(b) DIVIDE EXCEPTION. 
(c) ADDRESSING EXCEPTION. 
(d) OPERATION ERROR. 
(e) SPECIFICATION ERROR. 
4. Indicate the difference between a transcription and a transposition error. 
5. Suppose your colleague’s program abends and she cannot find the error. Describe 
what procedures you would recommend for trying to isolate the error. 


Appendix A 


COBOL Characters, 
Reserved Words, and ANS 
COBOL Format Summary 


I. COBOL Characters 


The following lists are in ascending order, 


COLLATING SEQUENCE 


EBCDIC 

space 

period, decimal point a 
less than $ 
left parenthesis i 
plus symbol ( 
dollar sign ) 
asterisk, multiplication * 
right parenthesis + 
semicolon ‘ 
hyphen, minus sign - 
slash, division 


comma / 
greater than 0-9 
single quotation mark j 
equal sign < 
quotation mark = 
lowercase letters > 
uppercase letters A-Z 
digits a-z 


ASCIL 
space 
quotation mark 
dollar sign 
single quotation mark 
left parenthesis 
right parenthesis 
asterisk, multiplication 
plus symbol 
comma 
hyphen, minus sign 
period, decimal point 
slash, division 
digits 
semicolon 
less than 
equal sign 
greater than 
uppercase letters 
lowercase letters 


II. COBOL Reserved Words 


Each COBOL compiler has a list of reserved words that: 


1. Includes most entries of the ANS COBOL standard. 
2. Omits some ANS entries not used by the specific compiler. 


3. Includes additional entries not part of the standard but that the specific 


compiler accepts. 
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Hence, no list of COBOL reserved words will be complete. The following 
is based on the 1974 and 1985 American National Standard. You may find 
that your computer has additional reserved words. Diagnostic messages will 
print if you are using a reserved word incorrectly. 

New reserved words that are not relevant for 1974 ANS COBOL, but are 
only relevant for 1985 ANS COBOL, are denoted with a single asterisk (). 
1974 reserved words that are not reserved in the new standard are denoted 
with a double asterisks (#*). 


ACCEPT COMP EMI 

ACCESS COMPUTATIONAL ENABLE 

ADD COMPUTE END 

ADVANCING CONFIGURATION END-ADD # 

AFTER CONTAINS END-CALL * 

ALL CONTENT # END-COMPUTE * 

ALPHABET * CONTINUE * END-DELETE * 

ALPHABETIC CONTROL END-DIVIDE * 

ALPHABETIC-LOWER * CONTROLS END-EVALUATE * 

ALPHABETIC-UPPER * CONVERTING * END-IF * 

ALPHANUMERIC * COPY END-MULTIPLY * 

ALPHANUMERIC-EDITED * CORR END-OF-PAGE 

ALso CORRESPONDING END-PERFORM * 

ALTER COUNT END-READ * 

ALTERNATE CURRENCY END-RECEIVE * 

AND END-RETURN * 

ANY DATA END-REWRITE * 

ARE DATE END-SEARCH * 

AREA DATE-COMPILED END-START * 

AREAS DATE-WRITTEN END-STRING * 

ASCENDING DAY END-SUBTRACT * 

ASSIGN DAY-OF-WEEK * END-UNSTRING * 

AT DE END-WRITE * 

AUTHOR DEBUG-CONTENTS ENTER ** 
DEBUG-ITEM ENVIRONMENT 

BEFORE DEBUG-LINE EOP 

BINARY * DEBUG-NAME EQUAL 

BLANK DEBUG-SUB-1 ERROR 

BLOCK DEBUG-SUB-2 ES 

BOTTOM DEBUG-SUB-3 EVALUATE * 

BY DEBUGGING EVERY ¥* 
DECIMAL-POINT EXCEPTION 

CALL DECLARATIVES EXIT 

CANCEL DELETE EXTEND 

cD DELIMITED XTERNAL * 

CF DELIMITER 

CH DEPENDING FALSE * 

CHARACTER DESCENDING FD 

CHARACTERS DESTINATION FILE 

CLASS * DETAIL FILE-CONTROL 

CLOCK-UNITS #* DISABLE FILLER 

CLOSE DISPLAY FINAL 

COBOL ** DIVIDE FIRST 

CODE DIVISION FOOTING 

CODE-SET DOWN FOR 

COLLATING DUPLICATES FROM 

COLUMN DYNAMIC 

COMMA GENERATE 

COMMON EGI GIVING 


COMMUNICATION ELSE GLOBAL * 
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co 
GREATER 
GROUP 


HEADING 
HIGH-VALUE 
HIGH-VALUES 


-O 
~Q-CONTROL 

IDENTIFICATION 
F 


DEX 

DEXED 
DICATE 
ITIAL 
ITIALIZE * 
INITIATE 

PUT 
PUT-OUTPUT 
SPECT 
STALLATION 
TO 

VALID 


JUST 
JUSTIFIED 


KEY 


LABEL 
LAST 
LEADING 
EFT 
LENGTH 
LESS 
LIMIT 

LIMITS 

LINAGE 
L.INAGE-COUNTER 
LINE 
LINE-COUNTER 
LINES 

LINKAGE 

LOCK ; 
LOW~VALUE 
LOW-VALUES 


ORY #% 
RGE 
SSAGE 

DE 

DULES #% 
YE 
Ma ca Val 
LT EP LY: 


cCeogonrmm 


NATIVE 
NEGATIVE 

NEXT 

NO 

NOT 

NUMBER 

NUMERIC 
NUMERIC-EDITED 


OBJECT~COMPUTER 
OCCURS 

OF 

OFF 

OMITTED 

ON 

OPEN 
OPTIONAL 

OR 

ORDER * 
ORGANIZATION 
OTHER * 
OUTPUT 
OVERFLOW 


PACKED-DECIMAL * 
PADDING * 

PAGE 
PAGE~COUNTER 
PERFORM 


PF 


PH 
PIC 
PICTURE 
PLUS 
POINTER 
POSITION 
POSITIVE 
PRINTING 
Ls 
fa 
P 
P 
P 
Fi 


ROCEDURE 
ROCEDURES 
ROCEED 
ROGRAM 
ROGRAM-ID 
URGE * 


QUEUE 
QUOTE 
QUOTES 


RANDOM 

RD 

READ 
RECEIVE 
RECORD 
RECORDS 
REDEF INES 
REEL 
REFERENCE 


REFERENCES 
RELATIVE 
RELEASE 
REMAINDER 
REMOVAL 
RENAMES 
REPLACE * 
REPLACING 
RT 
RTING 
RTS 
ee 
RVE 


commooocor 


RN 
RE D 
REWRITE 


ROUNDED 


SECTION 
SECURITY 
SEGMENT 


SEGMENT-LIMIT 


SENTENCE 
SEPARATE 
SEQUENCE 
SEQUENTIAL 


SORT-MERGE 
SOURCE 


* 
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SOURCE ~COMPUTER 


SPACE 
SPACES 


TANDARD 
ANDARD~1 
ANDARD-2 
ART 

ATUS 
0 


is) 


8 
8 
$ 
§ 
8 
$ 
8 


STRING 
SUB-QUEUE-~1 
SUB-QUEUE-2 
SUB-QUEUE-3 
SUBTRACT 
SUM 


PECTAL~NAMES 


*% 
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SUPPRESS TRAILING WORK ING-STORAGE 
SYMBOLIC TRUE * WRITE 
SYNC TYPE 
SYNCHRONIZED 

UNIT ; 
TABLE UNSTRING oes 
TALLYING UNTIL aERHE 
TAPE uP 
TERMINAL uPO 
TERMINATE USAGE 
TEST * USE is 
TEXT USING - 
THAN 
THEN * YALUE / 
THROUGH VALUES ** 
THRU VARYING 
TIME < 
TIMES WHE = 
TO WITH >= * 
TOP WORDS ¥* <= % 


ree ee luasm aka ase III. Complete COBOL Language Formats 


This appendix contains the composite language formats skeleton of the Amer- 
ican National Standard COBOL. It is intended to completely display all COBOL 
language formats. 


General Format for IDENTIFICATION DIVISION 
IDENTIFICATION DIVISION. 
PROGRAM-ID. program-name. 


[AUTHOR. [comment-entry] .. .] 
[INSTALLATION. [comment-entry] ...] 
[DATE-WRITTEN. [comment-entry] . ..] 
[DATE-COMPILED,. [comment-entry] . . .] 
(SECURITY. [comment-entry] .. .] 


General Format for ENVIRONMENT DIVISION 

ENVIRONMENT DIVISION. 

CONFIGURATION SECTION, 

SOURCE-COMPUTER. computer-name [WITH DEBUGGING MODE]. 
OBJECT-COMPUTER. computer-name 


WORDS 


, MEMORY SIZE integer CHARACTERS 
MODULES 


[, PROGRAM COLLATING SEQUENCE IS alphabet-name] 
|, SEGMENT-LIMIT IS segment-number] . 
[SPECTAL-NAMES. |, implementor-name 
IS mnemonic-name [, ON STATUS 18 condition-name-1 |, OFF STATUS IS condition-name-2] | 
8 mnemonic-name [, OFF STATUS 1S condition-name-2 [|, ON STATUS IS condition-name-1] | 


ON STATUS IS condition-name-] |, OFF STATUS 18 condition-name-2] 
OFF STATUS IS condition-name-2 [, ON STATUS IS condition-name-1] 


APPENDIX A 723 


STANDARD-1 
NATIVE 
implementor-name 
THROUGH 
, alphabet-name 18 ¢ literal-1 THRU 
ALSO literal-3 [, ALSO literal-4] .. . 


} literal-2 


THROUGH 
literal-5 THRU 


ALSO literal-7 |, ALSO literal-8]... 


literal-6 


[|, CURRENCY SIGN IS literal-9] 
|, DECIMAL-POINT IS COMMA ]. | 


[INPUT-OUTPUT SECTION, 
FILE-CONTROL, 


{file-control-entry} .. . 
[L-0-CONTROL. 


RERUN E a }] 
———s implementor-name 


REEL 

UNIT 

EVERY ¢ linteger-] RECORDS 
integer-2 CLOCK -~UNITS 
condition-name 


[END OF] { OF file-name-2 


RECORD 


; SAME | SORT AREA FOR file-name-3 {, file-name-4} ... 
SORT-MERGE 


[; MULTIPLE FILE TAPE CONTAINS file-name-5 [POSITION integer-3] 
[, file-name-6 [POSITION integer-4]]...]....]] 
General Format for FILE-CONTROL Entry 
FORMAT 1s 


SELECT [OPTIONAL] file-name 
ASSIGN TO implementor-name-| [, implementor-name-2] .. . 


‘ AREA 
: RESERVE integer-1 ee 


[, ORGANIZATION IS SEQUENTIAL] 
[; ACCESS MODE IS SEQUENTIAL] 
[; FILE STATUS 18 data-name-l] . 


FORMAT 2: 
SELECT file-name 
ASSIGN TO implementor-name-1 [, implementor-name-2] . . . 


= 7 AREA 
: RESERVE integer-1 ae 


; ORGANIZATION IS RELATIVE 
SEQUENTIAL [, RELATIVE KEY 18 data-name-l] 
; ACCESS MODE 18 inane 


sane | , RELATIVE KEY 15 data-name-1 
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[; FILE STATUS 1S data-name-2] . 


FORMAT 3: 
SELECT file-name 
ASSIGN TO implementor-name-! [, implementor-name-2] ... 


5 AREA 
|: RESERVE integer-1 El 


; ORGANIZATION IS INDEXED 


SEQUENTIAL 


; ACCESS MODE IS RANDOM 
DYNAMIC 


; RECORD KEY 18 data-name-1 
[; ALTERNATE RECORD KEY IS data-name-2 (WITH DUPLICATES]]... 


[; FILE STATUS IS data-name-3] . 


FORMAT 4: 
SELECT filename ASSIGN TO implementor-name-l [, implementor-name-2] . . . 


General Format for DATA DIVISION 
DATA DIVISION, 


[FILE SECTION. 
{FD file-name 


c ; : RECORDS 
f BLOCK CONTAINS [integer-1 TO] integer-2 an 


[; RECORD CONTAINS [integer-3 10] integer-4 CHARACTERS] 
RECORD IS STANDARD 
; LABEL esate a aa } 


; VALUE OF implementor-name-1 IS Saeeematisetl 
literal-1 


: data-name-2 
implementor-name-2 I eae | ‘es | 


RECORD 1S — : ; : 
: DATA pene a data-name-3 [, data-name-4] . . | 


,Liwace rs {2@tanameS | tyes |, with FOOTING AT data-name-6 
integer-5 integer-6 


, LINES AT TOP dataname-7\}) | veg at poTTOM catpipamert 
integer-7 integer-8 


; CODE-SET 18 alphabet-name] 
[ eee 18 
i 


REPORTS eh report-name-1 |, report-name-2]. .. I 


[record-description-entry]...]... 
[sD file-name 
[; RECORD CONTAINS [integer-1 TQ] integer-2 CHARACTERS] 


[ RECORD 1S 
[' DATA (aise meet data-name-1 [, data-name-2].. . | ‘ 
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{record-description-entry}...]... ] 
WORKING-STORAGE SECTION, 


| | 


record-description-entry 
LINKAGE SECTION. 
77-level-description-entry 
record-description-entry | ‘‘" 


COMMUNICATION SECTION, 
communication-description-entry 
record-description-entry]...]... ] 
[REPORT SECTION, 

RD report-name 

[; CODE literal-1] 


_ J CONTROL 1S data-name-1 [, data-name-2]... 
* (CONTROLS ARE | FINAL [, data-name-] [, data-name-2] . . .] 
: PAGE NER | integer-1 ed [|, HEADING integer-2] 
[, FIRST DETATL integer-3] [, LAST DETAIL integer-4] 


|, FOOTING integer-5] |. 
{report-group-description-entry} ...]. . .] 


General Format for Data Description Entry 
FORMAT 1s 


level-number | 


FILLER 
|; REDEFINES data-name-2| 


I ‘ 
j (ee 18 character-string | 


COMP 
DISPLAY 
INDEX 


COMPUTATIONAL 


LEADING 
; [SIGN IS] faa | [SEPARATE cnaracrer]| 


occurs J imteger-1 TO integer-2 TIMES DEPENDING ON data-name-3 
cas linteger-2 TIMES 


ASCENDING | _. 
ere | KEY 18 data-name-4 [, data-name-5]... | via 


[INDEXED BY index-name-] |, index-name-2].. .] | 


_ ) SYNCHRONIZED LEFT 
"1 SYNC RIGHT 


JUSTIFIED 
{avert } exch 
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[; BLAN 
[; YALU 
FORMAT 2: 


Es 


WHEN ZERO] 
TS literal] 


m 


APPENDIX A 


THRU 


66 data-name-1; RENAMES data-name-2 ee datanames | 


FORMAT 3: 


88 condition-name; { 


WALUE IS F THROUGH | ). 
VALUES wet literal-1 ten } lieral2 


' literal-3 la lieral-] ae 


General Format for Communication Description Entry 


FORMAT 1: 
CD cd-name; 


FOR [INITIAL] INPUT 


FORMAT 2: 
CD cd-mame; FOR OUTPUT 


[[, SYMBOLIC QUEUE 1 data-name-1] 
, SYMBOLIC SUB-QUEUE-1 18 data-name-2] 
; SYMBOLIC SUB-QUEVE-2 18 data-name-3] 
, SYMBOLIC SUB-QUEUE-3 1 data-name-4| 
; MESSAGE DATA IS data-name-5] 
; MESSAGE TIME 18 data-name-6] 
[; SYMBOLIC SOURCE 1S data-name-7] 
; TEXT LENGTH 1S data-name-8] 
; END KEY 18 data-name-9] 
; STATUS KEY 18 data-name-10] 

[; MESSAGE COUNT IS data-name-11} ] 
[data-name-1, data-name-2, .. ., data-name-11] 


; DESTINATION COUNT 18 data-name-1] 

; TEXT LENGTH 1S data-name-2] 

; STATUS KEY IS data-name-3] 

; DESTINATION TABLE OCCURS integer-2 TIMES 


[; INDEXED BY index-name-1 [, index-name-2] . . .] ] 
; ERROR KEY 1S data-name-4] 
; SYMBOLIC DESTINATION IS data-name-5] 


General Format for Report Group Description Entry 


FORMAT 1: 
01 [data-name-1] 


[, LINE NUMBER IS { 


integer-1 [ON NEXT PAGE] 
PLUS integer-2 


integer-3 
; NEXT GROUP IS ) PLUS integer-4 
NEXT PAGE 


REPORT HEADING 
RH 


= 
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a HEADING } 

NTROL HEADING | | data-name-2 
oo FINAL 
DETAIL 
DE 


NTROL FOOTING | | data-name-3 
FINAL 


REPORT FOOTI s} 
F 


[; [USAGE IS] 
FORMAT 2: 
level-number [data-name-1] 

integer-1 [ON pate) 
PLUS integer-2 


i | 


, LINE NUMBER IS { 


; [USAGE IS] DISPLAY]. 
FORMAT 3: 
level-number [data-name-1] 
; BLANK WHEN ZERO] 
; GROUP INDICATE] 


[ JUSTIFIED 
i i } exon | 


integer-1 [ON NEXT PAGE] 
PLUS integer-2 


; LINE NUMBER 5 


; COLUMN NUMBER 18 integer-3] 


{i CTURE 
Sta 


PIC } 1§ character-string 


; SOURCE IS identifier-1 
; VALUE 1S literal 

{; SUM identifier-2 |, identifier-3 |... 

UPON data-name-2 [, data-name-3]...]}... 


[ data-name-4 
RESET ON jee 


[; [USAGE IS] DISPLAY]. 


General Format for PROCEDURE DIVISION 
FORMAT 1: 


PROCEDURE DIVISION [USING data-name-l [, data-name-2]...]. 


[DECLARATIVES, 
{section-name SECTION [segment-number] . declarative-sentence 


{[paragraph-name. [sentence]...]...}... 
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END DECLARATIVES:] 
{section-name SECTION [segment-number] . 
[paragraph-name. [sentence]...]...}... 


FORMAT 2: 
PROCEDURE DIVISION [USING data-name-l |, data-name-2]...]. 
{paragraph-name. [sentence] ...}... 


General Format for Verbs 

ACCEPT identifier [FROM mnemonic-name] 
DATE 

ACCEPT identifier FROM 4 DAY 
TIME 


ACCEPT cd-name MESSAGE COUNT 


identifier-1 | | , identifier-2 ; , 
ADD Laee } : literal. } ... 70 identifier-m [ROUNDED] 


|, identifier-n [ROUNDED]]...[; ON SIZE ERROR imperative-statement| 


An identifier-1 identifier-2 | | , identifier-3 

=== | literal-1 ’ | literal-2 , literal-3 — 

GIVING identifier-m [ROUNDED] [, identifier-n [ROUNDED]]... 
; ON SIZE ERROR imperative-statement| 


ADD a identifier-1 To identifier-2 [ROUNDED] 


; ON SIZE ERROR imperative-statement| 
ALTER procedure-name-1 TO [PROCEED 10] procedure-name-2 


, procedure-name-3 T0 [PROCEED TQ] procedure-name-4] ... 
ft ee 


CALL 1 vitoral-1 } [USING data-name-l [, data-name-2] . . .] 


; ON OVERFLOW imperative-statement| 
EL. oot | _ 


DB 


c literal-1 , literal-2 


UNIT FOR REMOVAL 


sect | Ee ca 
CLOSE file-name-1 
WITH { 


NO REWIND 
LOCK 


UNIT FOR REMOVAL 


sca Ee no | 
, fileename-2 
WITH { 


NO REWIND 
LOCK 


CLOSE file-name-l [WITH LOCK] [, file-name-2 [WITH LOCK]]... 
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COMPUTE identifier-1 [ROUNDED] [, identifier-2 [ROUNDED] ]... 
= arithmetic-expression |; ON SIZE ERROR imperative-statement| 
DELETE filename RECORD |; INVALID KEY imperative-statement| 


INPUT [TERMINAL] identifier-1 
DISABLE ) output 


i cry 
cd-name WITH KEY eee 


—1 


DISPLAY 


identifier-1 
literal-1 


identifier-2 .. [UPON mnemonic-name] 
|, literal-2 


DE ee INTO identifier-2 [ROUNDED] 


iteral-1 ae 

[, identifier-3 [ROUNDED] |]... [; 0 ERROR imperative-statement] 
DIVIDE oral INTO fat) WING identifier-3 [ROUNDED] 

[, identifier-4 [ROUNDED]]...[; 0 ERROR imperative-statement] 
DIVIDE feeae BY oe 2}, GIVING identifier-3 [ROUNDED] 

|, identifier-4 [ROUNDED]]...[; ON SIZE ERROR imperative-statement| 
DIVIDE oe INTO aa | GIVING identifier-3 [ROUNDED] 

REMAINDER identifier-4 |; ON SIZE ERROR imperative-statement] 

DIVIDE ae BY — | GIVING identifier-3 [ROUNDED] 


REMAINDER identifier-4 [; ON SIZE ERROR imperative-statement| 


INPUT [TERMINAL] ae identifier-1 
OUTPUT } cd-name WITH KEY { ‘ 


ENABLE { literal-1 


ENTER language-name [routine-name| . 
EXIT [PROGRAM] . 


data-name } 


GENERATE { 
“~~ | report-name 


a 
oO 


TO [procedure-name- 1] 


TO procedure-name-1 [, procedure-name-2] ... , procedure-name-n 
DEPENDING ON identifier 


statement: | } f ELSE statement-2 } 


ca 
oa 


NEXT SENTENCE ; ELSE NEXT SENTENCE 


INITIATE report-name-1 [, report-name-2] . 
INSPECT identifier-1 TALLYING 


ALL. } eis 2 ‘ wai 
: sr — : BEFORE identifier-4 
, identifier-2 FOR 4 , oe literal-1 = } INITIAL eo 
CHARACTERS 
INSPECT identifier-] REPLACING 


IF condition; { 
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CHARACTERS BY oa fees INITIAL (eae 


literal-4 AFTER literal-5 
ALL ; 
ee identifier-5 identifier-6 BEFORE identifier-7 
LEADING a \ Deron’ 
“em | heer } = ee } free } iilcaie cor 


INSPECT identifier-1 TALLYING 


. = ALL identifier-3 BEFORE identifier-4 
, identifier-2 FOR 1, hee I ial ae } ez INITIAL } jiteral-2 


CHARACTERS 
REPLACING 
identifier-6 BEFORE identifier-7 
CHARACTERS BY on } hie: } INITIAL is 
ALL 4 sige 5 re ‘ igs 
= identifier-5 identifier-6 BEFORE identifier-7 
LEADING ‘ es : 
leirst : oe } BY ee AFTER INITIAL } jiteral-5 
: ASCENDING |. 
MERGE file-name-1 ON ean KEY data-name-1 [, data-name-2] .. . 
ASCENDING |. ; 
[os cara KEY data-name-3 [, data-name-4]... ave 


[COLLATING SEQUENCE 18 alphabet-name] 
USING file-name-2, file-name-3 [, file-name-4] ... 


THROUGH 


OUTPUT PROCEDURE IS section-name-1 ae 


} section-name-2| 
GIVING file-name-5 


MOVE identifier-1 TO identifier-2 [, identifier-3] . . . 

——= | literal 

MOVE CORRESPONDING | dentifier-1 TO identifier-2 

MONE ) CORR 

wuctipLy 4 dentifier-1| 5 identifier-2 [ROUNDED] 

= | literal-1 ——-— 

{, identifier-3 [ROUNDED]]...[; ON SIZE ERROR imperative-statement] 

muctrecy {identifier-1| ,, J identifier-2) 511g identifier-3 [ROUNDED] 

— i | literal-1 literal-2 — ———— 
|, identifier-4 [ROUNDED]]...[; ON SIZE ERROR imperative-statement] 

; REVERSED ' REVERSED 
INPUT file-name-1 Ee NO REWIND file-name-2 ue NO | : 


OPEN 4 gutput file-name-3 [WITH NO REWIND] {, filename-4 [WITH NO REWIND]]... 
1-0 file-name-5 [, file-name-6] ... 
EXTEND file-name-7 [, file-name-8]... 


INPUT file-name-l [, file-name-2] . . . 
OPEN 4 OUTPUT file-name-3 [, file-name-4]... 
1-0 file-name-5 [, file-name-6] ... 
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procedure-name-2 


HROUGH 
PERFORM procedure-name-1 ae 


integer-1 


PERFORM procedure-name-1 procedure-name-2 | UNTIL condition-1 


THROUGH 


PERFORM procedure-name-1 | 
PERFORM procedure-name-1 


a aa HROUG ut procedure-name- | { identifier-] } TIMES 


} procedure-name-2, 


identifier-2 


i index-name-2 
index-name-1 


identifier-3 
} FROM 
literal-1 


VARYING { 


identifier-4 


’ 


; dition-1 
BY are } UNTIL condition 


identifier-6 
} FROM 4 index-name-4 
literal-3 


identifier-5 


id : 
ATER ee. 


BY 


es 


iveralcd } UNTIL condition-2 


identifier-9 
} FROM 4 index-name-6 
literal-5 


identifier-8 


AETER ae 


py J identifier-10) 71. condition-3 
— | literal-6 eee 


READ filename RECORD [INTO identifier] [; AT END imperative-statement| 

READ file-name [NEXT] RECORD [INTO identifier] 

; AT END imperative-statement] 

READ file-name RECORD [INTO identifier] [; INVALID KEY imperative-statement] 
READ filename RECORD [INTO identifier] 

; KEY 18 data-name] 

[; INVALID KEY imperative-statement] 


RECEIVE cd-name el INTO identifier-1 [; NO DATA imperative-statement] 


m 


RELEASE record-name [FROM identifier] 
RETURN filename RECORD [INTO identifier] ; AT END imperative-statement 


REWRITE record-name [FROM identifier] 
REWRITE record-name [FROM identifier] [; INVALID KEY imperative-statement] 


identifier-2 


i ae \] [; AT END imperative-statement-1] 


SEARCH identifier-1 | varvins { 


imperative-statement-2 
NEXT SENTENCE 


; WHEN condition-1 { 


imperative-statement-3 
NEXT SENTENCE a 


HEN condition-2 { 
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SEARCH ALL identifier-1 [; AT END imperative-statement-1] 


EQUAL TO 


literal-1 


identifier-3 
arithmetic-expression-1 


Is 
data-name-1 { 1s 


— 1 


IS EQUAL TO 


data-name-2 { IS = literal-2 


identifier-4 
arithmetic-expression-2 


AND 


condition-name-2 


imperative-statement-2 
NEXT SENTENCE 


SEND cd-name FROM identifier-1 


WITH identifier-2 


‘ 7 WITH EST 
SEND cd-name [FROM identifier-1 9 tty EMT 


WITH EGT 


identifier-3 | | LINE 
integer LINES 


mnemonic-name 
PAGE 


BEFORE 
AFTER 


} ADVANCING 


index-name-3 


acne [, identifier-2] ea} a identifier-3 


SET ) index-name-l [, index-name-2] ... ome | 
‘ ‘ ¥ identifier-4 
set indexname- | intsename'..($88ry} meer | 


i ASCENDING . 
SORT file-name-1 ON eee KEY data-name-l [, data-name-2]... 


ASCENDING , 
[on ee KEY data-name-3 [, data-name-4] .. | esd 


[COLLATING SEQUENCE 18 alphabet-name] 


| THROUGH 


THRU } section-name-| 


INPUT PROCEDURE IS section-name-1 


USING file-name-2 [, fileename-3] ... 


A U : 
OUTPUT PROCEDURE IS section-name-3 [ aa section-name-4 


GIVING file-name-4 


data-name 


I 
I 
tf 
START file-name | KEY ¢ 7 
ue 
I 


{; INVALID KEY imperative-statement] 


RUN 
SILO {ita} 
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identifier-3 
... DELIMITED BY 4 literal-3 


identifier-1 } ! identifier-2 
oe yt 


STRING hese , literal-2 


identifier-6 
| ... DELIMITED BY 4 literal-6 


fn eal |! identifier-5 
SIZE 


literal-4 , literal-5 


NTO identifier-7 [WITH POINTER identifier-8 
ON OVERFLOW imperative-statement] 


ae |, identifier-2 


i 


... FROM identifier-m [ROUNDED] 


SUBTRACT 4 jiteral-1 [, literal-2 
, identifier-n [ROUNDED]]...[; ON SIZE ERROR imperative-statement| 
identifier-1 i identifier-2 identifier-m 
SUBTRACT ) jiteral-1 } |, literal-2 FROM) titeral-m 


GIVING identifier-n [ROUNDED] |, identifier-o [ROUNDED] ]... 
; ON SIZE ERROR imperative-statement| 


SUBTRACT ae identifier-1 FROM identifier-2 [ROUNDED] 


; ON SIZE ERROR imperative-statement] 
SUPPRESS PRINTING 

TERMINATE report-name-1 [, report-name-2]... 
UNSTRING identifier-1 


[ identifier-2 identifier- 

INTO identifier-4 |, DELIMITER IN identifier-5] [, COUNT IN identifier-6] 

, identifier-7 |, DELIMITER IN identifier-8] [, COUNT IN identifier-8]]... 
[WITH POINTER identifier-10] [TALLYING IN identifier-11] 

{, ON OVERFLOW imperative-statement| 


file-name-1 [, file-name-2] ... 


i INPUT 

USE AFTER STANDARD EXCEPTION PROCEDURE ON 4 QUTPUT 
ERROR a 

EXTEND 


file-name-1 |, file-name-2] .. . 


EXCEPTION INPUT 
USE AFTER STANDARD inn } PROCEDURE ON 9 a yreqy 
to 


USE BEFORE REPORTING identifier. 
cd-name-1 
[ALL REFERENCES OF] identifier-1 

USE FOR DEBUGGING ON 4 file-name-1 

procedure-name-) 

ALL PROCEDURES 


cd-name-2 
[ALL REFERENCES OF] identifier-2 
, file-name-2 
procedure-name-2 
ALL PROCEDURES 


WRITE record-name [FROM identifier-1] 
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cg LINE 
BEFORE integer LINES 
ae } aovanernc ; 

aia mnemonic-name 
PAGE 


END-OF-PAGE|. ¥ 
i AT) EGP imperative-statement 


WRITE record-name [FROM identifier] [; INVALID KEY imperative-statement] 


General Format for Conditions 
RELATION CONDITION: 


1S [NOT] GREATER THAN 
identifier-1 1s [NOT] LESS THAN identifier-2 
literal-1 1s {wor EQUAL TO literal-2 
arithmetic-expression-1 Is [NOT] > arithmetic-expression-2 
index-name-1 hee $ index-name-2 


CLASS CONDITION: 


, 4 MER 
identifier 15 [NOT] | 


SIGN CONDITION: 
POSITIVE 


arithmetic-expression is [NOT] } NEGATIVE 
ZERO 


CONDITION-NAME CONDITION: 
condition-name 
SWITCH-STATUS CONDITION: 
condition-name 

NEGATED SIMPLE CONDITION: 
NOT simple-condition 
COMBINED CONDITION: 


ay AND 
condition ae } condition} 


ABBREVIATED COMBINED RELATION CONDITION: 


relation-condition ae } [NOT] [relational-operator] object}. 


Miscellaneous Formats 
QUALIFICATION: 


data-name-1 OF 
bi data-name-2 |... 
condition-name IN 
OF 
paragraph-name fe section- name | 


text-name [ {sa} library- name 


SUBSCRIPTING: 


— 


endl a, (subscript-1 [, subscript-2 [, subscript-3]]) 
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INDEXING: 
ce } oe f+} ae 


condition-name literal-1 


i 


IDENTIFIER: FORMAT 1 


— 


index-name-2 [{+} literal-4 index-name-3 [{+} literal-6] 
literal-3 ’ | literal-5 


data-name-1 {35} data-name- ... [(subscript-1 [, subscript-2 


if subscript 


IDENTIFIER: FORMAT 2 


Sueaatarnned {3a} data-name2 va f ee ig {+} sisal 


IN literal-1 
index-name-2 [{+} literal-4] index-name-3 [{+} literal-6] 
ase } . heat Wh 
General Format for COPY Statement 
COPY text-name a library-name 
= =pseudo-text = = = =pseudo-text-2 = = 
remacinc enon! yy fda 


word-1 word-2, 
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Magnetic Tape Concepts: 
For File Processing and 
Auxiliary Storage 


I. What Is File Processing? 


In this text we have used input and output media to specify individual files 
to be processed. A terminal, for example, may be the input device for entering 
purchase orders that are used to print a status report file on a line printer. 

A file is defined as the entire collection of data pertaining to any given 
application. If it is the major collection of data used for storing critical infor- 
mation, answering inquiries and producing output such as bills and state- 
ments, then this file is called a master file. 

For most business applications, a master file of data contains a major col- 
lection of information pertaining to that application. A payroll system, for 
example, would use a master payroll file containing all data necessary for 
processing paychecks and maintaining salary history information. Similarly, 
an accounts receivable system would use a master accounts receivable file 
containing all pertinent accounts receivable data. 

Master files are typically stored on media such as magnetic tape and mag- 
netic disk that can be processed at high speeds. Tape and disk devices not 
only are fast, but they are capable of storing large volumes of data in a rela- 
tively small area. 

The design of all files is the responsibility of the systems analyst. Thus, 
systems analysts must determine (1] the specific files necessary for processing 
data in a system, (2) whether these files should be stored on tape, disk, or 
some other medium, and (3) the format of records within each file. 

Because of the following features of both tapes and disks, they are ideal 
media for storing master files or other high-volume data files. 


FEATURES OF TAPE AND DISK PROCESSING 


1. Input/output capability of tape and disk drives. 
A tape or disk drive can serve as both an input and an output de- 
vice for a given application. We can instruct a computer to read 
from a tape or write onto a tape that is mounted on a tape drive; 
similarly, we can program a computer to read from or write onto 
disks mounted on a disk drive. 


Figure B.1 
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2. High-speed processing. 
Disks and tapes can process data at extremely fast rates. 


3. Ability to store hundreds of thousands of records on one reel of 
magnetic tape or in one disk pack. 


4. Ability to process any record size or format. 


Tapes are typically used for storing a master file if processing is performed 
in a batch mode; disks are best used if master file processing is performed 
immediately, in an on-line or real-time environment. That is, if a terminal is 
to access information from a master airline reservation file, that master file 
would usually be stored on disk. 

Disks can be used for either batch or immediate processing. As a result, 
some computer centers use disks for all file processing and use tapes only for 
backup, Other computer centers have used tapes for batch processing for many 
years and continue to do so. 

In this appendix we consider the specific features of tapes and their corre- 
sponding drives. Chapter 23 considers the features of disk processing. 


Il. Magnetic Tape Files and Tape Drives 


A. Features of Magnetic Tape 


A magnetic tape drive is a high-speed device that is very similar to a home 
cassette or tape recorder. It can read (play) data from a magnetic tape and can 
also record data onto a tape. 

The tape itself, then, is a file type that can serve as input to a computer or 
as output from a computer. It is one of the most common file types for storing 
high-volume data that is typically processed in a batch mode. See Figure B.1 
for an illustration of magnetic tapes and tape drives. 


Magnetic tapes and tape drives. (Courtesy McNeil Pharmaccuticals.} 
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1. Physical Characteristics 

A typical magnetic tape is generally 2400 to 3600 feet long, but larger and 
smaller sizes exist. Most tapes are 1/2 inch wide. The tape is made of plastic 
with an iron oxide coating that can be magnetized to represent data. The 
magnetized spots or bits are extremely small and not visible to the human 
eye. One main advantage of tape is that large volumes of data can be condensed 
into a relatively small area of tape. Data that can be punched into an 80- 
column card or displayed on an 80-character line of a CRT, for example, can 
typically be stored in 1/10 inch of magnetic tape, or less. The average tape, 
which costs approximately $20, can store 100 million characters or more. After 
a tape file has been processed and is no longer needed, the same tape may be 
reused repeatedly to store other information by erasing and writing over the 


old file. 


2. Representation of Data on a Magnetic Tape 


(a) Nine-track Representation. Data is represented on tape in a manner very 
similar to the CPU's internal code. There are nine longitudinal tracks or 
recording surfaces on a tape, each capable of storing one magnetized bit: 


The EBCDIC code frequently used for representation of data within a com- 
puter uses a similar 9-bit code: 


4 zone bits 
4 digit bits 
1 parity bit 


The parity or check bit is used to minimize the risk of transmission errors. 
On even-parity computers there must always be an even number of bits on 
in one storage position at any time. Thus, the parity bit is turned on when 
the code for a character results in an odd number of bits on; otherwise the 
parity bit is turned off. In this way, the loss or gain of a single bit in trans- 
mission would be easily detected by the computer itself since any time an 
odd number of bits is on, an error has occurred. There are odd-parity computers 
as well, which require an odd number of bits to be on in each storage location. 

The 9-bit EBCDIC code including the parity bit illustrated in Figure B.2 
uses the very same code as a 9-track tape. 

The representation of the number 173 on a 9-track tape, using even parity, 
would directly conform to the EBCDIC representation as follows: 


Figure B.2 
Representation of characters 
on 9-track, even-parity tape. 
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9-track tape 


The representation of data on tape as magnetized bits results in two of the 
main advantages of tape: 


1. Tapes can be written or read at high speeds. 
2. Large volumes of data can be stored on a single tape. 


(b) Tape Density. Millions of characters can be recorded as magnetized bits 
on a single magnetic tape. The primary reason for this storage capacity is the 
fact that bits are exceedingly small so that hundreds of them can be placed 
on a very condensed area of tape. The actual number of characters that can 
be represented in an inch of tape is called the tape density. Since each character 
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Figure B.3 
Physical tape records separated 
by interblock gaps (IBGs). 
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is represented by a series of bits in a specific position, tape densities are measured 
in bits per inch (bpi). The term bytes per inch would be more appropriate, 
since the density indicates the number of characters per inch of tape where 
each character may require numerous “on” bits. Despite the misnomer, the 
term bits per inch is still used. The most common tape densities are 800 bpi, 
1600 bpi, and 3200 bpi, but some tapes have densities of 6250 or more char- 
acters per inch. Thus, on most tapes, 800 to 1600 characters of data or the 
equivalent of 10 to 20 cards of data can be represented in a single inch of tape. 
This density and resulting high storage capacity are two reasons why magnetic 
tapes are so frequently used at computer installations. 


(c) Specifying Tape Records. 


(1) Size of Records. As previously noted, a tape can have any record size; 
it is not restricted, like cards or a line entered on a terminal, to an 80-column 
format. Moreover, all tape records within a given file need not have the same 
length. That is, tapes can store (1) fixed-length records, where all records are 
the same size, or (2) variable-length records, where the lengths differ. We focus 
on fixed-length tape records in this text because they are easier to process. 


(2) Interblock Gap. Between physical tape records the computer automat- 
ically reserves a fraction of an inch of blank tape called an interblock gap 
(IBG). Thus, when a tape is created as computer output, it is created as indi- 
cated in Figure B.3, with interblock gaps between physical records. 

When a tape record is read at high speeds, it takes a fraction of a second for 
the drive physically to stop when it senses the end of the record. This delay 
is analogous to that of applying the brakes on a car: it takes several feet before 
the automobile physically comes to a halt. The interblock gap (IBG) is created 
so that, when a record is read, the mechanism will not pass over data from 
the next record in the time it takes to come to a halt. 

This interblock gap is a fraction of an inch, being as large as .6 of an inch 
for some tape systems. Thus, if small record sizes are used, there will be a 
significant amount of unused tape between each actual record. See Figure B.4 
for an illustration of how interblock gaps can result in inefficient use of a 
tape. 


(3) Blocking Records to Minimize Wasted Space and To Save Time. To min- 
imize wasted space and save access time, tape records are frequently blocked 
so that several actual or logical tape records are grouped together in a block 
as in Figure B.5. Blocking of logical records maximizes the efficient use of the 
tape by increasing the speed at which data is transferred to or from the CPU. 

In COBOL, it is relatively simple to instruct the computer that there are, 


Figure B.4 
Representation of data show- 
ing unused tape (IBGs). 


Figure B.5 
Blocking of tape records. 
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100 chars. 


| 100 chars. 
z 100 chars. 


1/8 3/5 1/78 8/5 1/78 3/5 
inch inch inch inch inch inch 
(125) (6) (125) (6) (125) (6) 


Blocking of tape records 
blocking factor; 8 
8 records = 1 block 


1 block 1 block 


for example, 100-character logical records that are blocked 20. We may use 
the following coding in the DATA DIVISION for this purpose: 


FD TAPE-IN 
LABEL RECORDS ARE STANDARD 
RECORD CONTAINS 100 CHARACTERS 
BLOCK CONTAINS 20 RECORDS, 


In that case, the computer will read in a block of 2000 characters (100 x 
20), processing each logical record within the block in sequence. In short, 
blocking makes more efficient use of computer time, moreover, the handling 
of blocked tape files is relatively easy for the COBOL programmer. 


(d) Recording Data on a Magnetic Tape. A program can be written to read 
data from some input device such as a terminal and to produce, as output, a 
magnetic tape by activating the read/write head of the tape drive. 

A tape drive has a read/write head, as in Figure B.6, that is programmed to 
either read data or write data depending on the job requirements. 
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Figure B.6 

(a) Read/write head on tape 
drive. (b) How tape travels be- 
neath reading head. 
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magnetic tape 


Encoded 
magnetic 


B. Characteristics of Magnetic Tape Drives 


1. A Tape Drive Is Like a Tape or Cassette Recorder 
A magnetic tape drive functions like a home cassette recorder. 


1. Data can be recorded onto a tape and stored for future processing. 

2. Data can be read from the same tape at any time to produce output 
reports or other data. 

3. When data is written on a tape, all previous information is written over 
or destroyed. For this reason, precautions must be taken to prevent the 
inadvertent destruction of important tape files. These precautions will 
be discussed later in this appendix. 


2. Tape Drives Have High-Speed ro omc 

Because tape drives read data electronically by sensing magnetized areas and 
write data electronically by magnetizing tape areas, this results in high-speed 
processing. Data can be read or written at speeds of from 100,000 to 300,000 
characters per second on the average, that is, approximately 200 inches/second. 


C. Characteristics of Magnetic Tape Processing 


1. Tapes are Used for High-Volume Files 
Because magnetic tapes can be processed very quickly and can store large 
amounts of data, they are frequently used for high-volume master files. 
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2. Tapes Are Used for Sequential Processing 
Sequential processing means that we begin with the first record on a tape, 
process it, then read the second record in sequence, process it, and so on. 

To access a record with TRANSACTION NUMBER 254, for example, from a 
tape file that is maintained in TRANSACTION NUMBER sequence, we must read 
past the first 253 records. We instruct the computer to read a record, test if it 
contains TRANSACTION NUMBER 254, and, if it does not, read the next record, 
Thus, 254 records are read. There is no convenient method to instruct the 
tape drive to skip the first few inches of tape or to go directly to the middle 
of the tape. Because tapes are read through a single read/write head, they must 
be processed sequentially. 

This sequential feature of tape processing makes it ideally suited for batch 
processing. That is, if a master file is updated or made current with input 
records that have been collected into one file, batch processing is best per- 
formed and magnetic tape is the best file medium for the master file. See the 
following schematic for an illustration: 


Part 
number Updating a Master File 


Changes to the master file 
(in part number sequence). 


New master inventory tape file 
(in part number sequence) 


As a result of this sequential feature, tape is not generally used for on-line 
processing. When a master file is to be accessed randomly, it is unlikely that 
a tape drive would be fast enough to find the corresponding records. 

If an inventory file is created on tape with 100,000 records and only a 
handful of these are to be printed in an immediate mode, then tape would 
once again not provide the best file type. Processing time and, thus, cost would 
be excessive, since most of the file must be read even to process only a small 
number of records. Sequential processing is beneficial only when most records 
on a high-volume file are required for normal processing. 

In short, tapes are well-suited for batch processing but not for immediate 
processing. Since disks can be used for both batch and on-line processing, 
many organizations use disks for all their file processing. 


3. It Is Not Practical to Rewrite or Alter Records on a Tape 
If an input tape file is to be modified or altered so that it includes additional 
information, two tape files are required: one for the original file and one for 
the new file that will incorporate the changes. Thus, each master tape update 
procedure requires three SELECT clauses: one for the current master tape file, 
one for the file of changes, and one for the new, updated master tape file. 

In short, the same tape cannot usually be read from and then written on 
with additions or changes. Consider the following schematic of an update 
procedure using tape: 
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Figure B.7 
External tape labels. 
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on 


Master file 
Tape drive 1 


New master 
Tape drive 2 


Change records Floppy disk drive 
on floppy disk 


One advantage of this tape update procedure is that an automatic backup 
tape always exists after updating. That is, the tape that served as input can 
be used for backup in case the new tape is damaged or inadvertently erased. 


4. The Need for Controls to Maintain the Integrity of Tape Files 

Many medium- and large-sized organizations have hundreds or even thousands 
of magnetic tapes, each used for a specific application. These tapes are usually 
stored in a separate room called a tape library. 

Because data recorded on these tapes is not visible to the naked eye, it is 
often difficult to maintain control of the tapes. If a master accounts receivable 
tape is inadvertently ‘written over,” or used as output for some other job, the 
result could be an expensive re-creation process, since the writing of the out- 
put would destroy the existing information. Several control measures have 
been implemented at most installations to prevent such occurrences, or to 
reduce the extent of damage, should they occur. 


(a) Use of External Tape Labels. External gummed labels are placed on each 
tape (see Figure B.7), identifying it and indicating its retention cycle, or how 


ro i ~ae errs mal mation seaeiniaamiiadl 


Figure B.8 
Magnetic tape library 
and librarian, 
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long it should be maintained. These labels are clearly visible to anyone, so 
that the chances of inadvertent misuse of a valuable tape are reduced. The 
problem with gummed labels, however, is that they sometimes become un- 
glued. Their effectiveness is also directly related to the diligence of the com- 
puter staff. If operators are negligent, then the labels may be ignored. 


(b) Hiring a Tape Librarian Many medium- and large-sized companies have 
numerous tapes that must be filed or stored and released for reuse when no 
longer required. Such companies employ a tape librarian to maintain control 
of the tape files in the tape library. See Figure B.8 for an illustration of a tape 
librarian in a tape library. 


(c) Programming Standard Tape Labels on the Tape. To make the identifi- 
cation of tapes more reliable, most programs include a built-in routine that 
creates a tape label record on each output tape. This label is produced as the 
first tape record, using magnetized bits. When the tape is entered as input, at 
some later date, then this first label record, called a header label, is checked 
as part of the program to ascertain that the correct tape is being used. 

Thus, the header labels are created on output tapes and later checked on 
input tapes. Since label creation and label checking use the computer to verify 
that the correct tapes are being used, there is less danger of errors resulting 
from carelessness. 

Each FD that describes a tape file should include the clause LABEL RECORDS 
ARE STANDARD to ensure that a header label is created for an output tape or 
that a header label is checked for an input tape. 


(d) Use of a File Protection Ring. Those available tapes that may be written 
on, or used as output, have a file protection ring inserted in the back. See 
Figure B.9 for an illustration. The tape drive will not create an output record 
unless this ring is in its proper place. For those tapes that are to be maintained 
and not “written over” the ring has been removed. This is similar to removing 
the tabs of a cassette tape in order to save its contents. Thus, if an operator 
erroneously attempts to use a magnetic tape for an output operation, the com- 
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Figure B.9 
File protection ring. 
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File protection 
ring in place | 


puter prints a message that states, in effect, “NO RING-NO WRITE.” If the 
operator is cautious, he or she will examine the external label and realize that 
the wrong tape is being used. Sometimes, however, an operator will merely 
place a ring on the tape (any file protection ring fits all tapes) and restart the 
job. Thus, this method, alone, minimizes the misuse of tapes, but it does not 
totally eliminate the problem. 


(e) Maintenance of Backup Tapes. Since tapes can sometimes be written 
over or become physically damaged, it is necessary to maintain backup tapes 
so that the re-creation process, should it become necessary, is not enormously 
costly and cumbersome. 

Suppose a new master tape is created each month. After processing, it is 
best to store the old master tape and transactions used for updating as backup 
to the new master tape. In this way, if some mishap should befall the new 
master tape, it is a simple task to re-create it. Normally, operators maintain 
two previous tapes as backup in addition to the present one, in order to prevent 
any serious problem. 


D. Other Types of Tapes 


It is not practical to have large tape drives with minicomputer or microcom- 
puter systems. Instead, these systems use tape cassettes or tape cartridges 
along with the smaller computers. 


E. The Future of Tapes 


Since disks have all the advantages of tape plus some very useful additional 
benefits for immediate processing, many companies have begun to phase out 
tapes altogether and are focusing exclusively on disks for file processing and 
for auxiliary storage. In organizations in which data bases are used in an on- 
line environment and where inquiries into the status of records are required 
for immediate access, tapes are often considered too limiting for storing data. 


Appendix C 


A Review of Flowcharts 
and Pseudocode 


CE |. program Flowcharts 


A. Introduction 


A useful tool for mapping out the logic in a program is called a flowchart, A 
flowchart is a diagram, or pictorial representation, of the logic flow of a pro- 
gram, it is a program planning tool drawn before the problem is coded. It is 
like the blueprint an architect prepares before a house is built, Through the 
use of a flowchart, the programmer can organize and verify the logic that will 
be employed in the program. 

This section is designed to illustrate the elements of program flowcharting, 
Those students already familiar with flowcharting will note that the illustra: 
tions in this appendix vary slightly from those used in introductory textbooks. 
The examples illustrate the structured approach to programming. Using the 
method of flowcharting presented here will enable the reader to code a struc- 
tured COBOL program directly from a flowchart. 


B. Illustrations 


Consider the flowchart in Figure C.1. This is a simple chart that reads disk 
records and prints the data contained in them. 


FLOWCHART RULES 


1. A logic flow is read from top to bottom unless a specific condition 
alters the path. 

2. Different symbols are used to denote different functions, 

3. All symbols have explanatory notes indicating the specific oper- 
ations. Since a symbol denotes a major class of functions such as 
input-output or processing, a note is required within the symbol to 
describe the specific operations to be performed. 


You will note that there are two separate sequences or modules indicated 
in this flowchart. The main routine, which begins with a symbol labeled 
BEGIN, performs the following operations: 
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Files are opened or prepared for processing. 

2. AO (zero) is moved to EOF. EOF is a special end-of-file indicator that 
is initialized at 0 and changed to 1 only after the last input record 
has been read and processed. Thus, EOF is zero throughout the en- 
tire sequence except when there are no more records to process. 

3. A record is read. If there are no more records, an AT END condition 
is denoted, and 1 is moved to EOF. 

4. A separate routine called CALC-RTN is executed repeatedly until 
EOF = 1, that is, until there are no more records to process. 

5. CALC-RTN will be executed until all input records have been 
processed; then the files are deactivated by closing them. 

6. The job is terminated by a STOP RUN command. 


CALC-RTN is the sequence or set of steps that performs the required oper- 
ations for each record. When CALC-RTN is executed for the first time, a record 
has already been read in the routine labeled BEGIN. That is, an initial READ is 
performed in the BEGIN module. CALC-RTN operates on that first record and 


Figure C.1 


PERFORM 
CALC-RTN 
UNTIL 
EOF = 1 


COBOL Code 


BEGIN. 

OPEN INPUT DISK-FILE OUTPUT PRINT-FILE. 
READ DISK- FILE AT END MOVE 1 TO EOF. 
PERFORM CALC-RTN UNTIL EOF = 1. 

CLOSE DISK-FILE, PRINT-FILE. 


STOP RUN. 
CALC-RTN. 
MOVE IN-REC TO PRINT-REC. 
WRITE PRINT-REC. 
READ DISK-FILE AT ENDMOVE 1 TO EOF. 
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then reads and processes subsequent ones until there is no more data. At 
CALC-RTN, we have the following: 


CALC-RTN 


1. The input data is moved from the input area to the print area. 

2. A line is written. 

3. A new record is read. 

4. The sequence of steps at CALC-RTN is repeated until an AT END 
condition occurs. When an AT END occurs, a 1 is moved to EOF, the 
sequence is terminated and control returns to the sequence labeled 
BEGIN, where files are closed and a STOP is executed. 


Consider now the program flowchart indicated in Figure C.2. 
This flowchart depicts the logic used to print salary checks for all sales- 
people in a company. If a salesperson has made more than $100 in sales, the 


Figure C.2 


COBOL Coding 

MAIN-MODULE, 
OPEN INPUT SALES-FILE OUTPUT CHECK-FILE, 
MOVE 0 TO EOF, 
READ SALES-FILE AT END MOVE 1 TO EOF. 
PERFORM CALC-RTN UNTIL EOF = 1, 
CLOSE SALES-FILE, CHECK-FILE, 
STOP RUN. 

CALC-RTN, 

fies |S GREATER THAN 100.00 MULTIPLY .10 BY SALES GIVING COMMISSION 


MULTIPLY .05 BY SALES GIVING COMMISSION. 
COMPUTE AMT-OUT = SALARY + COMMISSION, 
MOVE NAME TO NAME-OUT. 

WRITE CHECK-REC. 

READ SALES -FILE AT END MOVE 1 TO EOF, 


RETURN 
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commission is 10% of sales, which is added to the person’s salary. If a sales- 
Ca. has made $100 or less in sales, then the commission is only 5% of 
sales. 

Here, again, there are two sequences: one beginning with MAIN-MODULE 
and the other with CALC-RTN. Note that the MAIN-MODULE sequence has the 
very same set of instructions as the previous illustration. The major difference 
in this flowchart is the actual operations to be performed on input records. 
This is indicated at CALC-RTN. 

If sales are greater than $100, 10% of sales is used to determine the com- 
mission; otherwise, 5% is used. After the commission has been determined, 
the amount is calculated, and a check is written with name and amount. 
Another salesperson’s record is read, and CALC-RTN is repeated until an AT 
END condition exists. When AT END occurs, a 1 is moved to EGF and control 
is returned to the MAIN-MODULE, where files are closed and the run is termi- 
nated. 

The flowchart excerpt that compares sales to 100.00 is referred to as an 
IFTHENELSE sequence and has the following general format: 


C. Describing Symbols Used in Flowcharts 


The following symbols are the ones most frequently used in program flow- 
charts. 


Symbol Name Use 
Input/Output Used for all I/O operations. For 
example, the reading of a disk 
record, the writing of a line, and 
the writing of a magnetic tape 
are considered I/O functions. 


Processing Used for all arithmetic and data 
transfer operations. For 
example, moving of data from 
one area of storage (input) to 
another area (output) and 


multiplying percentage by total 
sales are processing functions. 


Decision Used to test all conditions. For 
example, testing whether one 
field is larger than another and 
testing whether a given field has 
specific contents (zeros, blanks) 

¥ are considered decision 
4 functions. 
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Terminal Used to indicate the beginning 
and end of a program or routine. 


Connector Used to indicate the point at 
which a transfer of control 
operation occurs. 


Logical Control Used to indicate a sequence 
under the control of a PERFORM 
statement... 


D. Logical Control Sequences | 
The full range of logical control sequences is as follows: | 


1, Sequence 
Instructions are executed in sequence from top to bottom. 


2. IFTHENELSE 


YES 


won in - 
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3. PERFORM 
Control is passed to a different module. After that module is executed, control 
returns to the statement following the PERFORM. 

i 


5 


i 
uy 
v 


4, PERFORM . . . UNTIL 

The processing symbol with two parallel bars is used to denote a sequence 
under the control of a PERFORM statement. That is, control is passed to the 
sequence of steps and is then returned to the point directly following the 
PERFORM when the condition is met. A flowchart for the PERFORM ... 
UNTIL sequence is as follows: 


NO 


een | 


oe 
YES 
| 


E. Additional Illustrations 


Let us consider another illustration. From the following record format, we 
wish to print the names of (1) all blue-eyed, blonde males and (2) all brown- 
eyed, brown-haired females. 


1-20 Name 
91 Sex (M—male, F—female) 
22 Color of eyes (1—Blue, 2—Brown, 3—Other) 
93 Color of hair (1—Brown, 2—Blonde, 3—Other) 
24-80 Not used 


The flowchart for this problem is shown in Figure C.3 on pages 753-754. 

The drawing of flowcharts is a difficult task for beginners in information 
processing. One advantage of COBOL is that elementary programs (and flow- 
charts) are relatively simple to code. For intermediate level programs, where 
the logic flow is often complex, a flowchart can be even more helpful, but 
more difficult to draw. We suggest that even when the logic is not complex, 
you draw flowcharts for documentation purposes. 


Self-Evaluating Quiz 


1. A flowchart is used for analyzing the —_____ necessary in a program. 
9. A flowchart is drawn (before/after) the problem is coded. 
3. A program flowchart is read from —__—— to 


4. Different ________ are used to denote different functions. 
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wn 


. The input/output symbol is coded as 
. A processing symbol is coded as . 
The symbol is called a ______ symbol. 


NO 


8. The symbol is used to denote a 


9. After a transfer of control is executed, the logic flow continues with j 
10, All symbols have _______ indicating the specific operations to be performed, 


Figure C.3 


PERFORM 
CALC-RTN 
UNTIL 
EOF = 1 
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Figure C.3 
Continued 


NO 


logic 

before 

. top; bottom 
symbols 


Solutions 


yg REP e 


decision 

branch or transfer of control 

. the next sequential statement (after the transfer) 
10. explanatory notes 


Ves 


Lee. Pseudocode 


In the previous section, we saw how flowcharts may be used for depicting the 
logic flow coded in programs. Such flowcharts have been the traditional tool 
of the programmer for planning the sequence of program steps. 


Figure C.4 
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In recent years, however, flowcharts have been widely criticized for being 
cumbersome and difficult to follow. Moreover, the techniques of structured 
programming do not entirely lend themselves to simplified representation by 
flowcharts. An alternative method for depicting the logic flow in a program 
has, therefore, been developed and is called pseudocode. The name implies 
that the representation is a code, like that used in a program, the term “pseudo” 
implies that while this code is similar to that used in a program, it is merely 
a representation, not a language itself. 

Pseudocode has been designed to represent a structured approach easily. 
Each processing or input/output step is denoted by a line of pseudocode. Just 
as with flowcharts, the pseudocode need not indicate all the processing details; 
abbreviations are permissible. 

The logical control instructions are indicated by: 


1. PERFORM statements. 
2. IFTHENELSE specifications—to test specific conditions. 


A. PERFORM Statements 
The structure of a PERFORM is as follows: 
PERFORM 


—— | Instructions to be performed 
——— f (indented for ease of reading) 
ENDPERFORM 


The indented statements would be those under the control of a PERFORM. 
We can also use a PERFORM ... UNTIL this way. See the pseudocode for 
Flowchart C.1 (Figure C.4), which illustrates the use of a PERFORM. 


B. IFTHENELSE Specifications 
To indicate the testing of conditions, the following format is used: 
IF (condition) 


THEN (operations to be performed) 


ELSE (operations to be performed if condition is not met) 


ENDIF 


PsEUDOCODE FOR FLowcuart C.1 


Housekeeping Operations 
Read an Input Record; At End Move 1 to EOF 
PERFORM ... UNTIL EOF = 1 

Move Input Data to Print Area 

Write a Line 

Read an Input Record; At End Move 1 to EOF 
ENDPERFORM 
End-of-Job Functions 
Stop Run 


Note: (1) Only the transfer-of-control functions are capitalized. 
(2) Operations under the control of PERFORM or other transfer instruc- 
tions are indented. 
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Figure C.5 
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See the pseudocode for Flowchart C.2 (Figure C.5) for an illustration. 


Pseudocodes are being used for structured programs with increasing fre- 
quency, both for documentation and for assisting the programmer in mapping 


out the most efficient and accurate logic flow necessary. 


PsEUDOCODE FOR FLOWCHART C.2 


Open Files 
Move 0 to EOF 
Read a Sales Record; At End Move 1 to EOF 
PERFORM CALC-RTN UNTIL EOF = 1 
IF Sales Greater than 100.00 
THEN 
Multiply 10% (.10) by Sales Giving Commission 
ELSE 
Multiply 5% (.05) by Sales Giving Commission 
ENDIF 
Calculate Amount of Check = Salary + Commission 
Move Name to Check 
Write Check 
Read a Sales Record; At End Move | to EOF 
ENDPERFORM 
Close Files 


Stop Run 


Self-Evaluating Quiz 


Solutions 


1, Pseudocodes have been used with increasing frequency in place of 
representing the logical flow to be used in a program. 


2. Pseudocodes are used for depicting the _______ of a program. 
3. The transfer of control or decision specifications are denoted by a 
, respectively. 


4. The last step in a PERFORM sequence is 
. The last step in an IF sequence is 


nn 


1. flowcharts 

2. logic 

3. PERFORM, IFTHENELSE 
4. ENDPERFORM 

5, ENDIF 


for 


and 


REVIEW QUESTIONS 


. Give four examples of input/output functions. 
. Give four examples of processing functions. 
. Give two examples of decision functions. 


nrownHre 


. What is the purpose of EOF? 


. (T or F) A program flowchart is required before any programs are written. 


PROBLEMS 


1. Consider the flowchart in Figure C.6 on pages 757-758. 
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Figure C.6 


PERFORM 
CALC-RTN 

UNTIL 
EOF = 1 
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Figure C.6 
Continued 


With the following input records, what will be the contents of TOTAL at the end 
of all operations? 


Contents of Contents of 
Record No. Record Position 18 Record Position 19 

1 1 2. 

2 1 3 

3 1 2 

4 1 0 

5 (blank) (blank) 

6 (blank} 1 

v4 1 (blank) 

8 1 2 

9 1 2 
10 (blank) 2 


2. Use the flowchart in Figure C.7 (pages 759-60) to answer the following questions. 
a) In this system, a record is written on disk after reading how many input records? 
Explain. 
b} The system is printing a record after reading how many input records? Explain. 
c} The system is writing on tape after reading how many input records? Explain. 
3. Use the flowchart in Figure C.8 to answer the following questions. Input is in 15 
records. Codes in the 15 records (in position 1) are: 

1, 2, 3, 2,1, 1, 2,2, 3,3,1,2,3, 1,2, 
How many records will be read? 
What is the value of SHITCH when a STOP RUN occurs? 
What is the value of ACCUM when STOP RUN occurs? 
How many records would have been read if ACCUM were originally set to 1 
instead of 0? 


aoe 


APPENDIX C 759 


Figure C.7 


PERFORM 
CALC-RTN 
UNTIL 
EOF Si 1 
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Figure C.7 
Continued 
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YES 


NO 
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Figure C.8 


PERFORM 
CALC-RTN 
UNTIL 
EOF = 1 
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ee 


Communicating with the 
Operating System 


I. The Control System 


A. The Supervisor 


The supervisor is a special program, usually supplied by a computer manu- 
facturer or vendor, that must be stored within the CPU before a program can 
run. That is, a supervisor resides in memory for the purpose of controlling the 
operations of the computer. The supervisor is part of a larger control system 
called the operating system, which is typically stored on a high-speed in- 
put/output device such as a disk. The supervisor must be loaded into main 
memory prior to any processing. It then calls in each program and extracts 
items, as needed, from the control system. That is, if a program needs to be 
compiled, the supervisor calls in the corresponding compiler. If a complex 
input/output function is required by the program, the supervisor accesses the 
control system and calls the appropriate routines into memory. Thus, the 
supervisor controls the operations of the computer. When the end of a program 
is reached, the supervisor calls in the next program. 


B. The Operating System 


As noted, the control system that is typically stored on a high-speed device 
such as a disk is referred to as an operating system. Numerous operating 
systems are available for both mainframes and micros. OS, an abbreviation 
for full operating system is common for IBM computers, VS or VMS is a virtual 
storage operating system that is common for many computers. Most micros 
use PC-DOS or MS-DOS for IBM and IBM-compatible systems; CP/M and 
UNIX are also common operating systems for micros. 
The supervisor must be provided with instructions that may indicate: 


Figure D.1 

Example of IBM job control 
commands used with a 
COBOL source program for 
compilation purposes. 
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SUPERVISOR IS PROVIDED WITH THE FOLLOWING INFORMATION 
The options used with the program. 
The language the program is written in. 
Whether a program is to be compiled and/or executed, 
The header labels to be included with tape and disk files. 
The specifications for the tapes and disks used. 


a ol 


One way that the programmer can inform the supervisor of this type of 
information is to use certain job control or systems commands in conjunction 
with the source program, as shown in Figure D.1. 

Note that the job control or systems commands in Figure D.1 indicate to 
the supervisor what operations the programmer wants the computer to per- 
form on the COBOL source program. The illustrated job control applies to a 
specific computer. Although job control on all computers can accomplish sim- 
ilar tasks, the specifications may differ from machine to machine. 


JOB Control Commands 
denoting requirements 
of run 


IDENTIFIES PROGRAM 
REQUESTS OBJECT DECK 
CALLS IN COBOL COMPILER 


|@® 


COBOL Source Program 


(/& may be // on 
some computers) 


| JOB Control Command 
denoting End of Run 


END OF COBOL PROGRAM 
END OF JOB 
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Il. Interactive Processing 


You will be running your programs either interactively while at a terminal or 
micro or in batch mode. For interactive processing, you should be aware of 
the systems commands used to perform the following: 


ADVICE FOR INTERACTIVE USERS 
Ask your instructor or computer center aides how to: 


1. Access the system. 

2. Log-on. 

3. Transmit a line. 

4. Access the COBOL compiler. 

5. Delete a character or backspace. 
6. Delete a line. 

7 


. If possible, go back to a previous line and make direct changes. 
Note: You can always retype the entire line. 


8. Store or save programs. 

9, Load previously stored programs. 
10. Create test data. 
11. Erase files. 


i. 1BM OS and DOS JCL 


The illustration in Figure D.2 indicates how a programmer can direct the 
supervisor in an OS or DOS system to: 


1. Translate a COBOL accounts receivable program, and, if the translation 
is successfully achieved, 

2. Execute the resultant object program in the CPU, running it with test 
data supplied by the programmer. 


The various computer manufacturers have their own types of job control 
statements for communicating with the supervisor. Since there are usually 
many job control statements to choose from, these statements are commonly 
thought of as comprising a job control language (JCL) by itself. JCL, sometimes 
referred to as systems commands, is an integral part of all computer runs. 

System commands are required for all methods of program entry, that is, 
interactive as well as batch processing of programs. 


A. Summary of Basic DOS JCL 


Positions Begin in Leave 1 space 
1 and 2 Column 3 after last entry 
// JOB Job name 


1-8 characters 
First character is alphabetic 
(comments to 72) 


// OPTION (See Figure D.3 for entries) 
// EXEC FCOBOL 
[source program] 
[* 
// EXEC LNKEDT 
// EXEC 


[data is entered here] 


/* 
/& (or //) 


Figure D.2 
Communicating with the su- 
pervisor. 
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JOB Control commands 
denoting requirements of 
the run 


CALLS IN COBOL COMPILER ——. 


INDICATES THAT A PROCEDURE: 
DIVISION MAP LISTING IS. 
DESIRED 


IDENTIFIES RUN 


CAUSES EXECUTION 
DIRECTS SUPERVISOR TO 
PREPARE FOR EXECUTION OF 
PROGRAM 

INDICATES END OF SOURCE———|/ 


JOB Control commands 


PROGRAM 
BEGINNING OF COBOL SOURCE—} IDENTIFI( 
PROGRAM 
Enter test data in 
80-col fe 
TEST DATA 0-column format 
(/& and // are often used on @™ 
some computers) 


END OF RUN—— 
END OF TEST DATA 


JOB Control command 


B. OS JCL 


The following is a summary of the more frequently used OS JCL entries. For 
a complete description of all entries, check your OS Specifications Manual. 


SUMMARY OF OS JCL ComMANDS 


Statement Meaning 

JOB This statement signals the beginning of a job. It must be 
the first JCL command for every job. It indicates 
important information relevant to job requirements. 

EXEC This statement indicates each job step and informs the 
operating system which program or procedures to 
execute. It may also indicate options that are to be used 
with the program. 

DD Each Data Definition statement identifies and describes 
each file used for the job. 
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Figure D.3 
PARTIAL List OF DOS OPTION ENTRIES 
DUMP Prints a dump of main storage in case of abnormal 
program termination 
NODUMP Suppresses the DUMP option 


LINK Must be used if program is to be link-edited and executed 
NOLINK Suppresses the LINK option 

LISTX Prints a PROCEDURE DIVISION map 
NOLISTX | Suppresses the LISTX option 

XREF Prints a cross-reference list 

NOXREF Suppresses the XREF option 

SYM Prints a DATA DIVISION map 
NOsYM Suppresses the SYM option 

ERRS Prints compiler diagnostic messages 
NOERRS Suppresses the ERRS option 

CATAL Catalogs the program 


Check your installation’s JCL to determine which of these options are 
defaults—that is, automatically obtained without the need to specify 
them in an OPTION command. 


1. JOB Statement 
The following is the format for the JOB command: 


Format 


Examples 
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REQUIRED JOB COMMAND ENTRIES 


1. // in positions 1 and 2. 
2. Job name beginning in position 3. 
Job name: 1-8 characters; must begin with alphabetic character or 
$, #, or @. 
3, JO must be preceded and followed by at least one space. 
4. Most installations require that programmer-named entries be eight 
characters or less, letters and digits only. 


OPTIONAL ENTRIES 


1. (accounting information}—coded in parentheses—provided by instal- 
lation 
2. MSGLEVEL = a, b 
Meaning = message level 
Entries; 
a = 0 if only JOB card of JCL is to print 
a = 1 if all JCL is to print 
b = 0 if no system messages are to print 
(except for abnormal termination} 
b = 1 if all system messages are to print 
3. CLASS = job class 
Meaning: Indicates job classification, which determines what parti- 
tion or region the job is to be run in. This determines job priority. 
Entries: 
Usually letters A-F 
A is used for the most common job types. 
4. PRTY = nn 
Meaning: Job priority number. 
5. REGION = nonk 
Meaning: Region to be used by program. Normally this is included 
if the region required for processing is larger than that established 
by default. 
Entries: 
nnn = even number of bytes 
For example, 90K = 90,000 bytes 


2, EXEC Statement 
This command indicates the program or procedures to be executed. 


Examples 
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Examples 
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REQUIRED ENTRIES 
1. // in positions 1 and 2. 
_ EXEC preceded and followed by at least one space. 
3. For COBOL programs: 
copuc—for compiling a program only 
CoBuCLG—for compiling, linking, and executing (go) 


OPTIONAL ENTRIES 


1. stepname Meaning: Name assigned to EXEC 
statement 
Entries: 

1. Must begin in position 3 

2. Same rules as job name: 
1-8 characters 
Must begin with a letter, $, #, 
or @ 

2. PARM.COB = ‘values’ Meaning: A series of options called 
defaults are standard for each 
installation. The PARM.COB is used 
to override these defaults. 

Entries: Keep in mind that each 
installation establishes its own 
defaults, which are those options 
best suited to its own processing 
needs, Figure D.4 indicates all the 
possible entries that may be included 
with the PARM. The entries that are 
standard for your installation need 
not be coded. 

3. TIME = (minutes, seconds) Meaning: Indicates a limit in terms 
of CPU time to be placed on 
program execution. 


3. DD Statement 
The DD or Data Definition statement is used to define and describe each file 
identified in a SELECT statement. 

The general format for DD statements is 


// DD-name DD operands 


Consider the following SELECT statement: 


SELECT FILE-IN ASSIGN TO UR-2540R-S-SYSIN» 
SELECT FILE-OUT ASSIGN TO UR-1403-S-PRINTOUT. 


The DD statement might read: 
// Go.SYSIN DD * 
ti GO. PRINTOUT DD SsYSOUT = A 


The DD entries for unit record files—terminal, card, and print—are rela- 
tively simple. The DD entries for tape and disk files are more complex. 
The word GO is used to indicate that the data defined is to be used during 


Figure D.4 
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PARM OPTIONS 
Parameter Meaning 
CLIST CLIST prints a condensed PROCEDURE DIVISION 
NOCLIST map; not used when PMAP is used 
l omar DMAP prints a DATA DIVISION map 
| NoDMAP 
[FL AGH FLAGH prints all diagnostic messages, 
FLAGE FLAGE omits W-level diagnostics 
[Lip L1B is used when COPY statements are included in 
[ NOL TB the program 
LINECNT = nn] — Indicates the number of lines to be printed on 
source listing, if omitted, 60 is assumed 
[Loap LOAD stores the object program on a direct access 
| NOLOAD device 
PMAP Prints a complete PROCEDURE DIVISION map 
NOPMAP 
QUOTE Indicates whether quotation marks (”) or 
APOST apostrophe (’) is used to denote nonnumeric 
literals (some systems accept both) 
SEQ SE checks the sequence of source statements 
NOSEQ 
SOURCE SOURCE prints a source listing 
NOSOURCE 
SUPMAP SUPMAP suppresses PROCEDURE DIVISION map if 
NOSUPMAP an E-level diagnostic appears 
REF XREF prints a cross-reference listing 
NOXREF 


the execution phase. The ent 


Definitions required for the compile phase. 


ty COB. would be used in place of Go for all Data 


DD ENtrigs FOR CARDS ARE: 


// GO. DD * 
(external-name defined in SELECT) 


* indicates that card data will follow this entry 


DD ENTRIES FOR PRINT FILES ARE: 


// GO. DD SYSOUT = value 
(external-name defined in SELECT) 


The value is defined by the installation. sysquT = 


A is common. 
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DD entries for tape and disk require special coding. See your specifications 
manual. The Instructor’s Manual for this text has some examples. 


IV. VAX Digital Command Language (DCL) 


Use XxX%. COB for any file that will be compiled by a COBOL compiler, where 
xxXx is the filename. 

The following system commands will translate and run your COBOL pro- 
gram. 


$COBOL TEST.COB Translates the COBOL program called TEST. 
$LINK TEST. COB Links the program so that it can be executed. 
$RUN TEST Executes the program. 


Ifa SELECT statement for an input file were coded as: 
SELECT SALES-DISK ASSIGN TO SYSIN,s 


the computer would ask you to Key in the file assigned to SYSIN after you 
type RUN. In this way, you can create your test data interactively while you 
are running the program or you can create an input file that is linked with 
TEST when the program is run. 

To create a COBOL program called TEST interactively, you can use the 
editor as follows: 


$EDIT TEST.COB 
After the program has been entered, you may key: 
* EXIT 


Then code $COBOL TEST to compile the program. 
See your user’s manual for editing features that are useful in creating the 
source program and the data file. 
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i i es eee 
A Closer Look at 


COBOL Standards 
Ai a ae ar eT 


I. 1985 Advances 


The following are some major enhancements of the 1985 standard that should 
prove very useful to programmers. This list does not include every change to 
the 1974 standard, just some of the more significant ones. 


A. Structural Conditionals 
The use of the following delimiters makes coding of conditionals easier: 


END-ADD END-DIVIDE 
END-SUBTRACT END-COMPUTE 
END-MULTIPLY END-READ 
1. IF A=B 
READ FILE-1 AT END MOVE 1 TO EOF 
END-READ, 
2.1F AB 


ADD C TO D ON SIZE ERROR 
PERFORM ERR-RTN 
END-ADD, 


Chapter 11 provides a full discussion of these delimiters. 
The following are also available: 


END-CALL END-SEARCH 
END-~IF END-START 
END-PERFORM END-STRING 
END-REWRITE END-WRITE 


B. INITIALIZE Verb 


A series of elementary items contained within a group item can all be ini- 
tialized with this verb. Numeric items will be initialized at zero, and non- 
numeric items will be initialized with blanks. 
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Ol WS-REC-1. 


05 FILLER PIC X(20)+ 
035 NAME PIC X(20), 
05 FILLER PIC X(15). 
05 AMT-1 PIc 9(5)¥99. 
05 FILLER PIC X(15). 
05 AMT-2 PIc 9(5)¥99. 
05 FILLER PIC X(15)4 
05 TOTAL PIC 9(6)V99. 
95 FILLER PIC X(13). 

: 

INITIALIZE WS-REC-1. 


The above will set ANT-1, AMT-2, and TOTAL to zeros and will set all the 
other fields to spaces. 


C. EVALUATE Verb 


The EVALUATE verb allows the programmer to test a series of multiple con- 
ditions easily when each requires a different set of procedures to be performed. 


EVALUATE AGE-IN-YEARS ALSO ACCIDENT-RECORD 
WHEN © THRU 30 ALSO O OR 1 
PERFORM NO-PROBLEM 

WHEN © THRU 30 ALSO 2 
PERFORM WARNING 
WHEN © THRU 30 ALSO > 2 
PERFORM ASSIGNED-RISK 
WHEN >» 30 ALSO © THRU 3 
PERFORM NO-PROBLEM 
WHEN > 30 ALSO > 4 
PERFORM ASSIGNED-RISK. 


D. OCCURS 


1. Seven levels of OCCURS, rather than three, are permitted. 


2. OCCURS items may contain initial contents with a WALUE clause. There 
is no need to REDEFINE the table or array. 


E. Moving Report Items to Numeric Fields 


A report item such as one with a PIC $99 999,99 can be moved to a numeric 
item such as 9(5)V99. This is called de-editing. 


F. Day-Of-Week 


DAY-OF-WEEK is a COBOL reserved word with a one-digit value. If the day of 
the run is Monday, DAY-OF-WEEK will contain a 1; if the day of the run is 
Tuesday, DAY-OF-WEEK will contain a 2; and so on. 


G. Reference Points 


It is possible to reference a portion of an elementary item. Consider the fol- 
lowing: 

MOVE CODE-IN (4:3) TO CODE-1. 
This moves positions 4-6 of CODE-IN to CODE-1. Suppose CODE-IN is an 


eight-character field with contents 87325879 and CODE-1 is three characters. 
The above MOVE will result in 258 being moved to CODE-1. 
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H. STOP RUN Automatically Closes All Opened Files 


Il. Weaknesses in the 1985 Standard 


Overall, the additions to the standard are extremely helpful. Moreover, the 
degree of incompatibility with the current standard is minimal. 

The major deficiences of this standard, however, are that data base manip- 
ulations and screen handling have not been sufficiently standardized. 


Example 


IM, LINAGE Clause for 1974 and 1985 Users 


Chapter 13 illustrates how page control may be accomplished by using a line 
counter. A technique in the 1974 and 1985 standards provides an alternative 
method for performing line counting. The LINAGE clause enables programmers 
to uniquely define the format of the printed page generated by the program. 
This clause is used as part of the FD entry. The format for the LINAGE clause 
is as follows: 


urna 18 ee LINES 


integer-1 
data-name-2 
integer-2, 


aaa 


WITH FOOTING AT { 


LINES AT TOP eer 


ae || 


LINES AT BOTTOM}, 
== | integer-4 


FD PRINT-FILE 
LABEL RECORDS ARE OMITTED 
DATA RECORD IS PRINT-REC 
LINAGE I8 GO LINES 
WITH FOOTING AT 57 
LINES AT TOP 3 
LINES AT BOTTOM 3. 


The meaning of the LINAGE clause in this example is as follows: 


Clause Meaning 
LINAGE IS GO LINES 60 lines to the page 
WITH FOOTING @T 57 The last print line is line 57 
LINES AT TOP 3 3 blank lines at the top of each page 
LINES AT BOTTOM 3 3 blank lines at the bottom of each page 


The three clauses accompanying the LINAGE statement are all optional. 
The integers indicated in the example may be replaced by data-names with 
integer values that can be established in the DATA DIVISION. 
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Micros and COBOL 


I. Microsoft COBOL 


A. Features of Microsoft COBOL 


Microsoft COBOL follows most of the 1974 ANS standard guidelines. Some 
differences do exist, however; they include: 

1. / in Column 7 designates a line as a comment. 

2. A typical SELECT clause reads: 


PRINTER 

Interactive processing from and to the screen is achieved with the use 
of ACCEPT and DISPLAY statements. 

. ASCII is the internal representation. 

. The SorT and MERGE verbs are not available. 

. OCCURS +++ DEPENDING ON is not available. 

. The use of the term CORRESPONDING is not available. 

. Multiple destinations for results of arithmetic statements are not per- 
mitted. For example: 


Valid: ADD A TO B. 
Invalid: ADD A TO B; Cc, 


SELECT filename ASSIGN TO ee } 


NAO W 


8. The word REMAINDER may not be used with the DIVIDE statement. 

9. Ifa field is defined with a JUSTIFIED RIGHT clause, then when data is 
moved into the field it is moved from right to left. If a JUSTIFIED RIGHT 
is used with a VALUE clause, the former will not result in right justifi- 
cation of the literal stored initially in the field. You may recall that 
under 1974 and 1985 ANS COBOL, right justification will occur in con- 
junction with a VALUE clause. 


B. CP/M and DOS Commands 


When writing a COBOL program using CP/M and DOS (as well as many other 
operating systems), the name of the COBOL program file must end in .COB. 
We must also specify the output device for the source listing, usually TTY for 
CRT or LST for printer. To actually compile a COBOL program called, for 
example, TEST.COB, we could have: 


A? COBOL TEST.REL+TTY: = TEST,COB 
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(A denotes the 4 drive.) 
To generate an object program using CP/M and a Microsoft COBOL com- 
piler, we could have 


A> 


COBOL sTTY: = TEST/R 


7715 


EE Sy. + s00s COBOL (for Radio Shack Computers) 


A. Compiling a Program 


Example 


COBOL. file specifications {ontios| 


The file specifications include: 


File-name This is the name of the file created using an 
editor 

File-name extension Defaults to /CBL 

Password Optional 

Diskette Optional 


Options include: 


is) 


P 


x 


L 


Object file is to be generated. 

(Default: Object file is generated) 

If object program is to be displayed on the screen, code P. 
(Default: Object program is not displayed) 

To generate a cross reference listing, code x. 

(Default: Cross reference listing is not generated) 

To store source programs on list file, code L. 


RSCOBOL TEST P+X 


This compiles the COBOL program called TEST/CBL and generates an object file. A 
listing and a cross reference table are displayed. 


B. Executing a Compiled Program 
After a program has been compiled and syntax errors corrected, you may exe- 
cute a program as follows: 


RUNCOBOL file specifications 


File specifications are the same as specified above. 
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Processing Data 
Bases in COBOL 


I. Data Base Concepts 


A. Organization in a Data Base: Lists, Trees, and Networks 


We have discussed in the text four methods of file organizations that are 
typically used with direct access files. These are: sequential, indexed, relative, 
and direct. 

Many organizations use data bases that are collections of files used for 
storing data pertaining to a specific application. Data bases are frequently very 
large and typically need to be accessed randomly by many users. Moreover, 
they must be accessed quickly enough to help in decision-making. For these 
reasons, conventional organization and access methods may not suffice. In 
this appendix, we will consider methods used to organize a data base and 
illustrative techniques used to access it as well. 

When an integrated data base is to be used for on-line inquiry and/or up- 
dating, the following data base concepts and data organization techniques may 
be employed: (1) relational entities are “related” to one another, we will focus 
on chains and pointers to relate entries; (2) hierarchical entities are linked to 
one another in a hierarchical fashion; we will focus on tree structures to 
establish hierarchy; and (3) networking where a more complex hierarchical 
link exists between entities. 


B. Relational Data Bases Using Chains, Pointers, and Lists 


A pointer is a technique that will allow the accessing mechanism to locate or 
“point to’’ a specific record or entity in a data base. 

The concept of chaining associates records that have some element or at- 
tribute in common based on the record content and not the physical location 
of the record. A chain represents a logical path through a data base by linking 
groups of records together for purposes of inquiry or updating. 

Figure G.1, for example, links all programmers within an employee file. 
Even though the file is in sequence by Social Security number, statistical (or 
other) data on programmers can easily be obtained. An asterisk (*) denotes the 
last record in the file with the given attribute (i-e., title = programmer). 

Note that several pointers could be used for each record so that numerous 
chains can be established, each for a different purpose. There could be a chain 
for years of service, salary, level, etc., depending on the company’s needs. 

A simple list is a set of records with pointers indicating the physical loca- 


Figure G.1 

Simple chain structure that as- 
sociates programmers in an 
employee file. (Source: John G. 
Burch, Jr., Felix R. Strater, 
Gary Grudnitski, Information 
Systems: Theory and Practice, 
3rd Ed., John Wiley & Sons, 
1983, p. 220.) 
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Social 
Security 
N Number Name Title Pointer 
1 | 436449084 | Custer H.L. Systems Analyst 
Start —> | 2 | 435779921 | Tinsley W.A. Programmer i 


3 | 237124444 | Hamlin B.A. Operator 


4 | 761234581 | Pesnell B.R. Programmer 5 
a 
Ly 5 | 477810020 | Pesnell Glenda | Programmer * 


6 | 423871422 | Powers Vesta Scheduler 


'—» 7 | 400471748 | Cranford H.L. | Programmer 4 


tion of records with a specific attribute. Consider a file with records containing 
the data shown in Figure G.2a. Figure G.2b illustrates how a simple list can 
be established with a pointer indicating Seattle employees. Figure G.2c shows 
a pointer indicating employee names in alphabetic sequence. 

Inserting a new record into a list is a simple matter. We simply change the 
pointer in the preceding record to point to the inserted record, which, in turn, 
would point to the next record with the specific attribute. 

In a simple list, the last record contains an end-of-list indicator. A ring list 
is a list that has the last record point to the first record in the group. This 
makes it possible to locate any record in a group regardless of the starting 
point. 

There are numerous extensions of lists. An inverted list has a basic record 
that points to more specific information as needed. In this way, it is not 
necessary to access all the data for a given record unless it is all needed. See 
Figure G.3. 


C. Hierarchical Data Bases Using Tree Structure 


A tree organization permits records to be organized and accessed hierarchi- 
cally. For each item, a record is considered a main or header record to a small 
file. The header record points to all data pertaining to the item. See Figure 
G.4. 


D. Networks 


The most sophisticated form of logical data organization is the network. Any 
data element in a network may be related to any other data element. A record 
or entity may have any number of pointers into it and leaving it. It may be a 
member of several different groups and thus may have more than one header 
record. See Figure G.5. 

In Figure G.5, each record that contains an “E” serves as an entry point to 
the data base. A user may enter the inventory product master record and access 
order, shipment, and price information, as well as the inventory product mas- 
ter record itself. 
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Figure G.2 

Simple lists. (Source: John G. 
Burch, Jr., Felix R. Strater, 
Gary Grudnitski, Information 
Systems: Theory and Practice, 
3rd Ed., John Wiley & Sons, 
1983, p. 224.) 
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Physical Employee Division Job 
(a) Address Name Office Title Age 
07 Adams Boston Programmer 32, 
12 Brown Seattle Analyst 40 
10 Zebo Detroit Programmer 29 
04 Cook Seattle Operator 24 
60 Moore New York Accountant 37 
Physical Employee Division Job Seattle 
(b) Address Name Office Title Age Pointer 
07 Adams Boston Programmer | 32 
12 Brown Seattle Analyst 40 04 
10 Zebo Detroit Programmer | 29 
04 Cook Seattle Operator - 24 
60 Moore New York | Accountant 37 
c) 
Physical Employee Division Job Seattle Name 
Address Name Office Title Age Pointer Pointer 
07 Adams Boston Programmer | 32 12 
12 Brown Seattle Analyst 40 04 04 
10 Zebo Detroit Programmer | 29 
04 Cook Seattle Operator 24 60 
60 Moore New York | Accountant 37 10 


The customer credit record has basic information about each customer. For 
each customer, there may be several shipping and billing locations. This in- 
formation can be retrieved via pointers that point to appropriate “bill to’”” and 
“ship to” records. These records contain shipping and billing names and ad- 
dresses and other data relevant to that customer’s billing and shipping activ- 


ities. 


Networks have the most sophisticated order and arrangement of entities in 
a data base. 


II. Using COBOL in Conjunction with a 


Data Base Management System 


To use COBOL with any data base management system requires the use of a 
CALL statement in conjunction with parameters that are part of each individ- 
ual data base management system's terminology. 


Figure G.3 

An example of an inverted list. 
(Source: John G. Burch, Jr., 
Felix R. Strater, Gary Grudnit- 
ski, Information Systems: The- 
ory and Practice, 3rd Ed., John 
Wiley & Sons, 1983, p. 225.) 
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Search Physical 
Parameter Address 
Name: 
Adams 07 
Brown 12 
Cook 04 
Moore 60 
Zebo 10 
City: 
Boston 07 
Detroit 10 
New York 60 
Seattle 04, 12 
Job title: 
Accountant 60 
Analyst pe 
Operator 04 
Programmer 07, 10 
Age: 
21-30 04, 10 
31-40 07, 12, 60 
04 
Other data 
if desired 
07 


Other data 
if desired 


Other data 
if desired 


12 


Other data 
if desired 


71719 
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Figure G.4 

A tree structure as conceived 
by a sales analyst. (Source: 
John G. Burch, Jr., Felix R. 
Strater, Gary Grudnitski, In- 
formation Systems: Theory 
and Practice, 3rd Ed., John 
Wiley & Sons, 1983, p. 229.) 
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Figure G.5 

Practical example of a network 
structure. (Source: John G. 
Burch, Jr., Felix R. Strater, 
Gary Grudnitski, Information 
Systems; Theory and Practice, 
3rd Ed., John Wiley & Sons, 
1983, p. 231.) 


Appendix H 


The Report Writer Feature 


SS eae) I. Introduction 


ANS COBOL has provided a Report Writer Feature that greatly facilitates print 
operations. By following basic rules for DATA DIVISION entries, the Report 
Writer Feature will handle all: 


1. Spacing of forms. 

. Skipping to a new page. 

. Testing for end of page. 

. Accumulation of amount fields. 

. Testing for control breaks, 

. Printing of totals for control breaks. 

7. Printing of a final total when there are no more input records. 

The entries in the DATA DIVISION require that precise rules be followed. 
In the beginning these rules may appear somewhat complex. Keep in mind, 
however, that while these entries may be unfamiliar initially, they are standard 
for all programs using the Report Writer Feature. Thus, with some exposure 
to, and use of, these rules, they will become routine. 

Before we learn these rules, let us consider the printing of control totals 
that will illustrate the advantages of using the Report Writer Feature. 


ake NOM en ree Il. The Benefits of the Report Writer Feature 


You will recall that many reports in businesses today require: 


DNaAkwWb 


1. Detail printing—The printing of individual records. 
2, Summary or group printing—The printing of calculated totals or sums 
for specified control fields or groups. 


Detail printing usually reflects the individual input record. Summary printing 
is usually performed as a result of a control break, as illustrated in Chapter 
14, 


Consider the output in Figure H.1. The department total is printed when a 
change in department occurs in the input. That is, when input records with 
the same department number are read, the records are printed and the total 
amount of sales for each salesperson is accumulated. When a change in de- 
partment occurs, the accumulated total of all amounts of sales is printed as a 
control total. We call department a control field. Summary printing is per- 
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Figure H.1 formed as a result of the control break specified by a change in department 
(see line 17 of Figure H.1). 

Note that department is not the only control field in this illustration. A 
change in area also results in a control break that produces a control total at 
the bottom of a page. The control field area, however, is a higher level control 
field than department and is denoted with two **’s rather than one; that is, a 
change in area forces a department or minor-level control break. Thus, while 
reading input records, when a change in area occurs, the total amount of sales 
for the specific department is printed; then the total amount of sales for the 
area is printed. That is, for area 01, we have seven department totals and then 
a major area total (sce lines 29 and 31 of Figure H.1). 

Territory is a third control field. Area and department are control fields 
subordinate to territory. Thus, during the reading of input, when a change in 
territory occurs, first the corresponding department total is printed, then an 
area total is printed, and finally a major level territory total is printed. 

‘At the very end of the printed report, there would be a Final Total of Amount 
of Sales for the entire report. This is called a report footing, since it appears 
at the bottom of the report. If each page had individual totals that always 
printed as the last line, these would be referred to as page footings. 

We can call department, area, and territory, minor, intermediate, and major 
control fields, respectively. It is possible, however, to have many more control 
fields. The complexity of the summary printing will depend on the number 
of control fields specified. 

The Report Writer Feature makes it possible for the programmer to specify 
a report's format in a REPORT SECTION of the DATA DIVISION. The coding 
of PROCEDURE DIVISION instructions is minimal, all required report features 
are specified in the REPORT SECTION. 
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Ill. The Data Division—The Report Section 


The DATA DIVISION, then, can consist of three sections: 


1, ‘FILE SECTION 
2. WORKING-STORAGE SECTION 
3. REPORT SECTION 


The sections employed in the program must appear in this order. The 
REPORT SECTION is only specified when the Report Writer Feature is used. 
We generally use this feature when complex summary or group printing is 
required. 

Let us consider a sample program using the Report Writer Feature that 
produces a simplified group report as in Figure H.2. Only Customer Number 
and Final Total cause group printing operations. A report footing indicating 
the Final Cost is also printed. 


REPORT LISTING WITH SUMMARIZATION PAGE On 
TERR CUST NUMBER ITEM NUMBER = DESCRIPTION QUANTITY — PRICE cost 
i 1234567 123456 SHOVEL 12 10, 00 20. 00 
3 087600 SNOW SHOVEL 10 16. 9 169. SO 
3 007601 SMALL SNOW SHOVEL cA 9. 99 69, 93 
AMOUNT $359. 43 
2 2345678 345678 PICK 100 12. 50 1250. 00 
4 22222: AX Ee) 17.95 897. 50 
AMOUNT $2,147, 50 


Figure H.2 


Format 


Examples 


The program listing, using the Report Writer Feature, appears in Figure H.3. 
Note that lines 1-29 are similar in all COBOL programs. That is, the first two 
divisions, the input file description, and EOF as specified in WORK ING-STOR- 
AGE are all the same. The only change is in FD FILE-OUT, which indicates 
REPORT IS REPORT-LISTING. 

Do not become overwhelmed with the differences in the rest of this COBOL 
program. All items are relatively standard when using this feature. 

The FD for the print file in a program using the Report Writer contains a 
LABEL RECORDS clause but must not include the DATA RECORDS clause, which 
is otherwise optional. Instead, as indicated, the following clause is coded: 


REPORT IS LISTING-1, 
REPORTS ARE EXPENSE-LISTINGs ERROR-LISTING, 


The report-name must conform to the rules for forming data-names. In our 
program, the report-name on line 31 is REPORT-LISTING. 

Each report-name refers to a specific report, not to a specific record format. 
That is, a report may (and usually does) contain several formats. The use of 
more than one report in a program is restricted to more complex programs. 

The use of the REPORT clause within the FD section of a COBOL program 
replaces the optional DATA RECORD clause, when the Report Writer Feature is 
employed. No record description follows the FD for this file. That is, there 
will be no 01 entries following the FD. Instead, each unique report-name listed 
in an FD entry must be further described by an RD entry in the Report Section. 

If a WORKING-STORAGE SECTION is required in a program, it follows the 
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Figure H.3 
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IDENTIFICATION DIVISION. 
1G REPORT. 


ENVIRONMENT DIVISION. 
INPUT-OUTPUT SECTION. 


HODONCT SDN OOOOH 


AUTHOR. NANCY STERN CHRISTOPHER HAMMEL. 


1 FILE-CONTROL. 

1 SELECT FILE-IN ASSIGN TO DATA11. 

i LECT FILE-OUT ASSIGN TO SYSSOUTPUT. 

1 DATA DIVISION. 

1 FILE SECTION. 

1 FD FILE~IN 

1, LABEL RECORDS ARE STANDARD. 

1 O1 IN-REC. 

1 O5 TERR PIC 9 

1 05 CUST-NO PIC 9(7). 

2 05 ITEM-NO. PIC 9(6). 

2 05 DESCRIPTION PIC X(35). 
22 O05 QTY PIC 999. 

23 OS PRICE PIC 99V99. 
24 O05 COST PIC 9(5)V99, 
25 FD FILE-OUT 

26 LABEL RECORDS ARE OMITTED 

27 REPORT IS REPORT-LISTING. 

28 WORKING-STORAGE SECTION. 

29 01 EOF PIC 9 VALUE ZERO. 
30 REPORT SECTION. 

31 RD REPORT-LISTING 

32 CONTROLS ARE FINAL, CUST-NO 

33 PAGE LIMIT IS 60 LINES 

34 HEAI 

35 FIRST DETAIL 9. 

BS 01 TYPE IS REPORT HEADING 

37 LINE NUMBER IS 3. 

38 05 COLUMN NUMBER IS _ 39 PIC X(33) 
39 VALUE “REPORT LISTING WITH SUMMARIZATION’. 
40 05 COLUMN IS 85 PIC AC4) 

41 ALUE / e 

42 05 COLUMN IS 92 Pic 99 

43 SOURCE PAGE-COUNTER. 

44 O1 TYPE IS PAGE HEADING. 

45 OS LINE IS 5. 

Ab 10 COLUMN IS 5 PIC X(4) 
47 VALUE / ua 

48 10 COLUMN IS 11 PIC X¢41) 
49 VALUE /CUST NUMBER’. 

50 10 COLUMN IS PIC X¢41) 
Si VALUE ‘ITEM NUMBER’. 

52 10 COLI PIC X11) 
53 VALUE ’DESCRIPTION’ 

54 10 COL! PIC X(@) 

5S VALUE ‘QUANTITY’. 

5 10 COLUMN IS 88 PIC X(S) 
57 VALUE ‘PRICE’ 

Es] 16 COLUMN Is 98 PIC xX(4) 
60 O01 DETAIL-LINE TYPE IS DETAIL LINE NUMBER IS PLUS 1. 
& 05 COL PIc 9 

62 SOURCE IS TERR. 

63 O5 COLUMN IS 11 GROUP INDICATE PIC 9(7) 
64 SOURCE _IS_CUST-NO. 

65 05 COLUMN IS 27 PIC 9(6) 
66 SOURCE IS ITEM-NO. 

67 O5 COLUMN IS 41 PIC X(35) 
68 SOURCE IS DESCRIPTION. 

9? OS COLUMN IS 77 PIC 229 

70 SOURCE IS QTY. 

71 05 COLUMN IS 68 PIC 22.99 
72 SOURCE _IS PRICE. 

73 05 COLUMN IS 98 PIC Z(5).99 
74 SOUR: $ COST. 

75 01 TYPE_IS CONTROL FOOTING CUST-NO, LINE NUMBER IS PLUS 2. 
76 05 COLUMN IS 72 PIC X(6) 
77 VALUE ‘AMOUNT’. 

4) oS ant CoRuuN 1S 87 PIC $%$%, $$$. 99 
80 01 TYPE IS CONTROL FOOTING FINAL. 

81 05 LINE IS 60. 

82 10 COLUMN IS 16 PIC xX(, 1) 
83 VALUE ’FINAL COST IS’. 

84 10 COLUMN IS 50 PIC $$us, $%%. 99 
85 SUM AMT. 

86 PROCEDURE DIVISION. 

87 MAIN-MODULE. 

88 OPEN INPUT FILE-IN 

89 OUTPUT FILE-OUT. 

90 INITIATE REPORT-LISTING. 

a1 READ FILE-IN AT END MOVE 1 TO EOF, 

92 PERFORM CALC-RTN UNTIL EOF = 1. 

93 TERMINATE REPORT-LISTING. 

94 CLOSE FILE-IN 

95 -OUT. 

96 STOP RUN. 

97 CALC=RTN. 

98 GENERATE DETAIL-LINE. 

99 READ FILE-IN AT END MOVE 1 TO EOF. 


FILE SECTION, as noted in Figure H.3. Note that since the Report Writer 
Features handles all control breaks, summations, and reset procedures, our 
program will only use the WORKING-STORAGE SECTION for the EOF indicator. 

The REPORT SECTION, which follows, defines, in detail, every aspect of the 


printed output. It specifies: 


The record type. 


The control fields. 


OREN 


. The line on which each record is to print. 
The positions of each item of data and its value, if appropriate. 


The fields to be used as summation fields. 


General Format 
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With this information specified in the REPORT SECTION; PROCEDURE 
DIVISION coding is minimal. 


A. RD Entry 


The RD entry name corresponds to the REPORT name assigned in the FD for 
the output print file. Thus, in our program, we would have 


REPORT SECTION. 
RD REPORT-LISTING 


The RD entry, like its counterpart the FD entry in the FILE SECTION, de- 
scribes the report with numerous clauses: 


These clauses specify: 


1. The items to be established as control fields. 

2. The lines on which heading, detail, and footing records are to appear for 
each page. 

3. The maximum number of lines on a page. 


Self-Evaluating Quiz 


Solutions 


a 


. The Report Writer Feature in COBOL facilitates 
2. Ifa change in DISTRICT requires the printing of TOTAL-SALES, which is accumu- 


lated for each DISTRICT, then DISTRICT is called a ______ field. 

38. The printing of TOTAL-SALES for each DISTRICT is called ______ printing, while 
the individual printing of each record is called _______ printing. 

4. The Report Writer Feature requires the coding of the _______. SECTION in the 

DIVISION. This SECTION follows the _______ SECTION. 

5. Using the Report Writer Feature, the FD for the print file will contain the same file 
description entries except for the optional ________ clause, which is replaced by 
the.—__—_elause, 


6. The name assigned to the REPORT 1S clause must conform to the rules for 
forming 
7. The report-name specified in the REPORT clause is further described in a(n) 
entry of the _______ SECTION. 


8. (T or F) If an FD entry for a print file is further described in an RD entry of the REPORT 
SECTION, then no 01 level items are required to describe the records in the FILE 
SECTION for that file. 


1. the processing of complex print operations 

2. control 

3, summary or group; detail 

4, REPORT; DATA; FILE and then WORKING-STORAGE SECTION, if used _ 
5. DATA RECORD(S); REPORT IS or REPORTS ARE 

6. data-names 

7. RD) REPORT 

8. T 
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Format 


Format 
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1, CONTROL Clause 
The CONTROL clause specifies all fields to be used as control breaks, The 
format for this clause is: 


The sequence in which the data-names are listed indicate the level or 
hierarchy of the control item. Thus, in our illustration, the CONTROL clause 
must be specified as: 


CONTROLS ARE FINAL+ CUST-NO 


This clause specifies that FINAL is the highest level of control and cusT- 
No is another level of control. If there were several levels, they would be listed 
in sequence. Thus for Figure H.1, TERR, a data item defined as an input field, 
is the major control item; AREA is an intermediate control item, and DEPT is 
a minor control item. 

The Report Writer Feature automatically tests these control fields when 
input records are read. The highest control level is tested first, which forces 
lower level control breaks. The FINAL control break occurs after the last detail 
line is printed. It also occurs before the first detail line is printed to clear all 
counters, sums, and fields. 

The action to be taken when a control break occurs depends on the coding 
specified by the programmer. Most often, control headings and/or control foot- 
ings are to be defined. These will be defined on the 01 level within the REPORT 
SECTION, with the reserved phrase CONTROL HEADING or CONTROL FOOTING. 
PAGE HEADING and PAGE FOOTING are also entries that may be used. 

If a major level control break occurs, minor level control headings and/or 
footings are printed first, followed sequentially by the next level control head- 
ings and/or footings until the major level items are printed. Thus, in the 
illustration in Figure H.1 we have seen that a DEPARTMENT control break first 
results in the printing of a TERRITORY footing, followed by an AREA footing, 
followed by a DEPARTMENT footing. We have not attempted this in our first 
program because it is somewhat more complex. 


2. PAGE LIMIT Clause 
This clause specifies the physical format of a page of the report with respect 
to line numbering. The format is as follows: 


From this format, we can see that the PAGE LIMIT clause indicates: 


1. The number of physical lines that should be used for printing data (in- 
teger-1). Approximately 60 lines are usually allotted for a page, which 
would allow for adequate margination. 
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The line on which the HEADING should print (integer-2). 
The line on which the FIRST DETAIL line should print (integer-3). 
The line on which the LAST DETAIL line should print (integer-4). 


The line on which the last CONTROL FOOTING should begin printing 
{integer-5), Note that a CONTROL FOOTING that extends several lines 
cannot extend beyond integer-1, the last print line. 


The following is a valid entry for our illustration: 


i Ge 


PAGE LIMIT IS 60 LINES 


HEADING 3 
FIRST DETAIL 9 


The PAGE LIMIT clause is optional. If omitted, the computer assumes its 
own line numbering. If included, a PAGE-COUNTER field is maintained by the 
computer containing the number of pages generated, and a LINE-COUNTER 
field is maintained containing the number of lines generated. These fields need 
not be defined in the DATA DIVISION, they are under the control of the Report 
Writer, but they can be used in the record description entries that follow. 

A period must follow all entries for a specific RD. The REPORT SECTIO 
entries for our illustration are as follows: 


REPORT SECTION, 
RD REPORT-LISTING 

CONTROLS ARE FINAL» CUST-NO 
PAGE LIMIT IS 60 LINES 
HEADING 3 

FIRST DETAIL 9. 


Self-Evaluating Quiz 


Consider the following input record: 
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Suppose we wish to print a report like the following: 


SALES REPORT PAGE NOs KKXK 
DIV DEPT ITEM AMT OF SALES 
KK KK KKK BXKKK KK 
KK KK XKK BRKXKK 4 KK 
' 
+ 
TOTAL ITEM AMT BRANKK  MKK 
KX KX AXK XKKK KK 
KX XK XK SXXNXK KK 
' 
' 
+ 
TOTAL ITEM AMT KKKKK e KKE 
TOTAL DEPT AMT $KAXKK + AAE* 
KX XK XXX $XXKK KK 
XK KK KKK $KXXK se KX 
’ 
+ 
' 
TOTAL ITEM AMT BXXKKK o KK¥ 
TOTAL DEPT AMT BRXAAXKK  AKE* 
TOTAL DIY AMT BXXKKK KARR 
' BXXKKKK + KK 


' 


’ 


FINAL TOTAL 


NADER WSD SE 


ll. 


12. 


DIY, DEPT, and ITEM are called _______ fields. 

The first line printed is called a 

The printing of each input record is ealied, —____ printing. 

The printing of total lines for DIY, DEPT, and ITEM is called ________ printing. 
Each total line, usually printed on the bottom of a form, is referred to as a 
The major control item, as specified on the output, is 


. The intermediate control item is _____, and the minor control item is 


A change in DEPT results in the printing of (no.) lines. That is, a DEPT control 

break forces a(n) _______ control break. 

A change in D1¥ results in the printing of (no.) lines. That is, a D1Y control break 

causes a(n) line to print, followed by a________ line and then a 
line. 

A _______ prints after all records and summations print, at the end of the job. 

For complex group printing, the ________ Feature of ANS COBOL is often in- 

cluded in a program. 

The page numbers included on each page of the report will be generated by the 

computer if the _______ clause of the _______ SEC TION is included in the 

program. 


Solutions 
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13, 


14. 


15, 


16. 
17. 


18. 


9. 


20. 


eee 
Fobwrvroconw 


16. 
16. 
TP, 
18. 
19. 
20. 


AFwoNHe 


OND 


The record description entry defining the HEADING will contain a field called 
, which will automatically include the correct page numbers. 

Using the Report Writer Feature, the Fp for the above output file will have the 

following format: 

The identifier following the REPORT 18 clause must conform to the rules for 

forming 


(T or F) Record description entries must not follow the above FD entries. 
The REPORT SECTION must follow the ___ and ______ SECTION, if in- 
cluded, in the ________ DIVISION. 


The entries in the REPORT SECTION are report description entries and are defined 
by —_______.. entries. 

The name following RD is the same as the name following the _______ clause 
in the ________ SEC TION for the output file. 

Code the RD entries required for the above illustration. 


» CONTROL 
. heading 


detail 


. summary or group 
. footing 


DIV 


. DEPT; ITEM 

. two; ITEM 

. three; ITEM total or footing; DEPT total or footing; D1V total or footing 
. final total 

. Report Writer 

. PAGE LIMIT; REPORT 

» PAGE-COUNTER 

. A suggested solution is: 


FD OUTPUT-FILE 
LABEL RECORDS ARE OMITTED 
REPORT I8 REPORT-OUT, 


Note: The REPORT clause is required when using the Report Writer Feature. 


data-names 
T 
FILE; WORKING-STORAGE; DATA 
RD 
REPORT IS or REPORTS ARE, FILE 
REPORT SECTION. 
RD REPORT~1 
CONTROLS ARE FINAL» DIV, DEPT, ITEM 
PAGE LIMIT IS 6O LINES 
HEADING 2 
FIRST DETAIL 5 
LAST DETAIL 58 
FOOTING 59, 


Note: We are assuming that D1V, DEPT, ITEM are data-names assigned in the 
input record description. 
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Format for Record Entry 


Format 
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B. Record Description Entries 


The records within the REPORT SECTION are classified as headings, detail 
lines, and footings. The printing specifications and the format of each are 
defined as Record Description Entries. 

Although there are many general formats for Record Description entries in 
the REPORT SECTION, we will adopt a specific format as a standard to facilitate 
your understanding of these entries. For a more general exposure to Record 
Description entries, consult your Specifications Manual. 


Data-name-1 refers to the name of the record. In practice, data-name-1, as 
a record name, is a required entry only when the record is specifically called 
for in the PROCEDURE DIVISION. 


1.TYPE Clause—Required 

The TYPE clause specifies the report group to which the record is associated. 
The purpose of specifying report groupings is to control the relative time at 
which each record is generated. There are also established rules for the for- 
mation of each report group, which will be considered. 


Let us consider the report in Figure H.4 illustrating the various types of 
report groups. 


1. A represents the REPORT HEADING 
A REPORT HEADING (or RH] is the title of a report. It is the first item 
printed on each report. Note that there can be only one record (01 level 
item) categorized as a REPORT HEADING. 

2. B represents the PAGE HEADING 
A PAGE HEADING (or PH) indicates a report group that is produced at the 
beginning of each page. There can only be one record (01 level item) 
categorized as a PAGE HEADING. 

3. C represents the CONTROL HEADING 
A CONTROL HEADING (or CH) indicates a report group that is produced 
at the beginning of a control break for a designated control item. That 
is, when a control break occurs, a CONTROL HEADING is printed. There 
can be only one record level item for each control item, including FINAL. 

4. D represents the DETAIL line 
Each DETAIL record can be described with an 01-level item. 

5. Erepresents the CONTROL FOOTING 
The CONTROL FOOTING (or CF) record is produced at the end of a control 
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Report Writer—Sample Program 


® 


© 
© 


©- 


© 
© 


ACME MANUFACTURING COMPANY 


QUARTERLY EXPENDITURES REPORT 
JANUARY EXPENDITURES 


MONTH DAY DEPT NO-PURCHASES ‘TYPE COST CUMULATIVE-COST 


JANUARY 01 A00 2 A 2.00 
A02, il A 1,00 
A02, 2 Cc 16.00 
***CONTROL TOTAL*** 
PURCHASES AND COST FOR 1-01 5 $19.00 $19.00 anes 
JANUARY 02, AOl 2 B 2.00 
A04 10 A 10,00 
A0d4 10 Cc 80.00 
PURCHASES AND COST FOR 1-02, 22, $92.00 $111.00 
JANUARY 05 AOL 2 B 2.00 
PURCHASES AND COST FOR 1-05 2 $2.00 $113.00 
JANUARY 08 AOL 10 A 10.00 
AOL 8 B 12.48 
AOL 20 Cc 38.40 
PURCHASES AND COST FOR 1-08 38 $60.88 $173.88 
JANUARY 13 A00 4 B 6.24 
A0O 1 Cc 8.00 
PURCHASES AND COST FOR 1-13 5 $14.24 $188.12 
JANUARY 15 A00 10 D 19.20 
A02 1 Cc 8.00 
PURCHASES AND COSTS FOR 1-15 11 $27.20 $215.32 
JANUARY 21 A03 10 E 30,00 
A03 10 F 25.00 
A03 10 G 50.00 
PURCHASES AND COST FOR 1-21 30 $105.00 $320.32 
JANUARY 23 AOO 5 A 5.00 
PURCHASES AND COST FOR 1-23 5 $5.00 $325.32 


IOI IOI IOI I III I IOI IOI IOI II III II II II III II III III II II II I I II IOI tO 


REPORT-PAGE-01 
END OF REPORT 


Figure H.4 


group for a given control item. The CONTROL FOOTING is printed when 
a control break occurs. There can be only one CONTROL FOOTING per 
control item. 

6. F represents the PAGE FOOTING 
The PAGE FOOTING (or PF) represents the report group printed on the 
bottom of each page. There can be only one 01 level designated as a 
PAGE FOOTING. 

7. G represents the REPORT FOOTING 
The REPORT FOOTING (or RF) is produced at the end of the report. 
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In short, we must designate the TYPE of a record or report group so that the 
Report Writer can determine when it is to be printed. 


2, LINE Clause 
The LINE clause specifies: 


1. An actual line number on which the record is to be printed, or 
2. A line number relative to the previous entry or to the previous page. 


The format of this clause is as follows: 


Format 
Examples 1. Actual Line Numbering: (lines 36-37 of Figure H.3) 
01 TYPE IS REPORT HEADING. 
LINE NUMBER IS 3 
2. Relative Line Numbering: (line 60 of Figure H.3) 
O1 DETAIL-LINE TYPE 18 DETAIL LINE NUMBER IS PLUS 1, 
3. NEXT PAGE option may also be used, as in this illustration: 
01 TYPE IS REPORT HEADING NEXT PAGE. 
In Example 1, the report heading is printed on the third line. In Example 2, 
the detail line is printed on the line following the previous printed line. In 
Example 3, the report heading is printed on a new page. 
Rules 
Absolute Line 
TYPE NEXT PAGE Number Relative Line No. 
REPORT xP OK Line number is relative to 
HEADING HEADING integer specified 
in RD 
PAGE xX OK Line number is relative to 
HEADING HEADING integer or value 
of LINE-COUNTER, which- 
ever is greater 
CONTROL OK OK OK 
HEADING 
DETAIL OK OK OK 
CONTROL OK OK OK 
FOOTING 
PAGE xX OK Line number is relative to 
FOOTING FOOTING integer 
REPORT OK OK Line number is relative to 
FOOTING FOOTING integer or LINE 
°QOK—permitted. NUMBER, whichever is 
>X_not permitted. greater 


Format 


Examples 
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Note that a LINE-COUNTER is \ ‘ablished by the computer and used to 
control line numbering. The programn er selects the first entry of L.INE-COUNTER 
by specifying {HEADING integer}. 


3. NEXT GROUP Clause 
This clause is used in a report group entry to indicate the line spacing to be 
performed when the last line of a report group has been printed. 

The format is as follows: 


1. To maintain a report group on a page independent of other report groups, the 
following is coded: 


NEXT GROUP IS NEXT PAGE 


2. To reinitialize LINE COUNTER at a new line number after a report group is com- 
plete (line 6 for example}, the following is coded: 


NEXT GROUP IS LINE 6, 


3. To print a new group on a line, a fixed number of lines from the previous group, 
the following is coded: 


NEXT GROUP IS PLUS 3, 


Note that only CONTROL HEADING, DETAIL, and CONTROL FOOTING types may 
contain a NEXT GROUP option. Note also that a (NEXT GROUP integer-1) or 
(NEXT GROUP PLUS integer-2) causes a page change; the Report Writer Feature 
will begin on a new page with proper formatting. 

We have thus far completed those items that can be designated on the 01 
level. As in the other sections of the DATA DIVISION, we must specify the 
elements within the 01 record entry. 


Self-Evaluating Quiz 


Figure H.5 


Consider the report in Figure H.5. 


1. The line indicated by 1 is considered Ty PE 
2. The line indicated by 2 is considered TYPE 
3. The line indicated by 3 is considered TYPE 


i— ABC PRODUCTION COMPANY 
QUARTERLY REPORT 
2— MONTHLY EXPENDITURES FOR JANUARY 


TERR AREA DEPT TOTAL 
3—14 22 04 $473.25 


4——— PURCHASES FOR DEPT 04 $8725.46 


5——______4 nn OF REPORT 
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4. The line indicated by 4 is considered TYPE —_____. j 
. The line indicated by 5 is considered TYPE —_____. 

. When designating a CONTROL FOOTING or CONTROL HEADING, the ________ must 
also be specified. 


7. Code the 01 level for the REPORT HEADING. 

8. The NEXT GROUP option (may/may not) be used with the REPORT HEADING. 
9. Code the 01 level item for PAGE HEADING. 
10. Code the 01 level item for DETAIL LINE, using double spacing. 


11. Code the 01 level item for the CONTROL FOOTING allowing for individual record 
groups on a single page. 


12. In Question 11, the word YEAR is necessary to 
13. Code the 1 level item of the CONTROL HEADING. 


nun 


Solutions 1. REPORT HEADING or RH 
2. PAGE HEADING or PH 

3. DETAIL LINE 

4. CONTROL FOOTING or CF 
5. PAGE FOOTING 

6 


. specific control item (TERRITORY, YEAR, CUSTNO, etc.) as it appears in the FILE 
SECTION or WORKING-STORAGE SECTION 


7. A suggested solution is: 
01 HDG-1 TYPE IS REPORT HEADINGs LINE NUMBER 1, 


8. may not 
9, 01 PAGE-HEAD TYPE IS PAGE-HEADING; LINE NUMBER IS 5, 
10. 01 DETAIL-LINE TYPE IS DETAIL LINE, LINE NUMBER IS PLUS 2, 


11. 01 FOOT TYPE IS CONTROL FOOTING YEAR LINE PLUS 3 
NEXT GROUP IS NEXT PAGE, 


12. indicate the control item 
13. O01 HEAD1 TYPE IS CONTROL HEADING YEAR LINE IS PLUS 1, 


C. Elements Within an 01 Entry 


As we have seen in previous sections of the DATA DIVISION, entries subor- 
dinate to the 01 level follow a record description. In these other sections, we 
usually have for elementary items: 


(level-no) data-name PICTURE specification 
[VALUE specification] 


In this section we do not require a data-name, since we do not call on these 
entries in the PROCEDURE DIVISION, That is, since the Report Writer Feature 
handles all normal procedures, we do not specify a data-name. Instead, we 
indicate the specific column or position in the record in which data is to be 
placed. Thus, the subordinate items have the following form. 


(level-no) COLUMN {NUMBER 15} integer 
PICTURE specification {VALUE specification} 


The REPORT HEADING in Figure H.4 would have the following entries: 


O1 REP-HEAD TYPE IS REPORT HEADING. 
O5 LINE NUMBER IS 1+ COLUMN IS 27» PICTURE A(26). 
VALUE ‘ACME MANUFACTURING COMPANY’. 
O5 LINE NUMBER IS 3+ COLUMN IS 26, PICTURE A(29)+ 
VALUE ‘QUARTERLY EXPENDITURES REPORT’. 


Examples 


Format 


Examples 
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The format described above is not complete. In place of a VALUE clause to 
describe a field we may have a: 


1. SOURCE clause that specifies the data item to be printed from a different 
area. That is, the SOURCE clause indicates a data item that is used as a 
source for this report item. 


2. SUM clause that is used to cause automatic summation of data. 


1. 05 COLUMN 14 PICTURE 9(5) SOURCE IS COST, 
2. 08 COLUMN 55 PICTURE 9(8) SUM PRICE, 


Example 1 indicates that in Column 14 of the specified record the contents 
of the field called cost should print. COST is a FILE or WORK ING-STORAGE 
SECTION item. 

Example 2 specifies an entry probably within a CONTROL field. In column 
55 of that control field the sum of all accumulated PRICE fields will print. 
That is, PRICE is accumulated until the record (of which Example 2 is a part) 
is to print; then the sum of all PRICE fields is printed beginning in Column 
55. 

Thus, the use of SUM in an elementary item defines a summation counter. 
Each time a DETAIL report group is encounted, the field specified is summed. 


D. RESET Clause 


The RESET clause may only be used in conjunction with a SUM clause. The 
RESET clause is used to reset a SUM counter to zero. The RESET option is 
usually used after a control report group has been operated on. 

The format for the RESET clause is as follows: 


1, 05 COLUMN 6S PICTURE $###9,99 SUM COST 
RESET ON FINAL, 


2. 05 COLUMN 42 PICTURE $ZZZ,.99 SUM ANT 
RESET ON MONTH, 
E. Review 


In our program in Figure H.3, we see that there are five report formats that 
are printed: 


1. Report Heading 


O1 TYPE IS REPORT HEADING 
LINE NUMBER IS 3. 


OS COLUMN NUMBER IS 39 PIC X(33) 

VALUE ‘REPORT LISTING WITH SUMMARIZATION’. 
OS COLUMN IS 85 PIC A(4) 

VALUE ‘PAGE’, 

OS COLUMN IS 92 PIc 99 


SOURCE PAGE-COUNTER, 


) Prints on line number 3. 

) Column 39 begins the literal ’REPORT LISTING WITH SUMMARI- 
ZATION’ 

(c}) Column 85 begins the literal ‘PAGE’. 

{d) Column 92, begins the page number, which is automatically calcu- 

lated, since the COBOL reserved word PAGE-COUNTER is used. 
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2. Page Heading (two lines) 


o1 


OS LINE 5, 
10 COLUMN IS 5 
VALUE ‘ITEM’. 
10 COLUMN IS 11 


TYPE IS PAGE HEADING, 


VALUE ‘CUST NUMBER’. 


10 COLUMN IS 27 


VALUE ‘ITEM NUMBER’, 


10 COLUMN 41 


VALUE ‘DESCRIPTION’, 


10 COLUMN IS 76 


VALUE ‘QUANTITY’, 


PIC A(4) 


PIC X(1i1) 


PIC X(11) 


PIC X(8) 


(a) On line 5, 1TEM will appear, beginning in Column 22 (directly above 


NUMBER, which follows on the next line). 


(b) On line 6, in the specified columns the field headings will print. 
3. Detail Line 


O1 DETAIL~ 


os 


teks) 


COLUMN IS 5 
SOURCE IS TERR, 


COLUMN IS 11 GROUP INDICATE PIC 9(7) 


SOURCE IS CUST-NOQO. 
COLUMN IS 27 

SOURCE IS ITEM-NO, 
COLUMN IS 41 


SOURCE IS DESCRIPTION. 


COLUMN IS 77 
SOURCE IS QTY, 

COLUMN IS 88 
SOURCE IS PRICE. 

COLUMN IS 98 
SOURCE IS COST, 


LINE TYPE IS DETAIL LINE NUMBER IS PLUS i. 


PIC 


PIC 


PIC 


PIC 


PIC 


PIC 


9 


§(6) 


K(35) 


229 


22.99 


Z2(5).99 


(a) This will print on the line following the previous line (single-spaced). 

(b) In the specified columns, the input fields of TERR, CUST-NO, ITEM- 
NO, DESCRIPTION, QTY, PRICE, and COST will print. 

(c) The input field CuST-NO is a group or control indicated field. 


(d) TY, PRICE, and cost are edited. 


4. Control Footing 


O1 TYPE IS CONTROL FOOTING CUST-NO+ LINE NUMBER IS 
PLUS 2+ 
05 COLUMN IS 72 
VALUE ‘AMOUNT’. 
05 AMT COLUMN IS 87 
SUM COST. 


PIC X(6) 


PIC $$$ 949,99 


(a) CUST-NO causes this control break. 


(b) Double-spacing occurs. 
(c] The literal AMOUNT and the sum of all cast fields will print in the 
designated columns. 
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5. Control Footing 


O1 TYPE IS CONTROL FOOTING FINAL. 
O5 LINE 1S Go, 


10 COLUMN 16 PIC x(13) 

VALUE ‘FINAL COST IS’. 

160 COLUMN IS 50 PIC $46 +66%,99 
SUM AMT. 


(a) The Final total causes this control break. 
(b) This line will print at the bottom of the page. 
(c] The literal FINAL COST 1S and the sum of all AMT fields will print. 


ae ea) IV. Procedure Division Entries 


Format 


Format 


Format 


A. INITIATE Statement 


The INITIATE statement begins the processing of a report. It is usually coded 
directly after the OPEN statement. It initiates the Report Writer. Its format is: 


INITIATE report-name 


B. GENERATE Statement 


The GENERATE statement is used to produce the report. It is usually coded 
after an input record has been READ to produce a report entry. The format of 
this statement is: 


The identifier may be either the DETAIL report group name or an RD entry: 


1. If the identifier is the DETAIL report group name, then the GENERATE 
statement performs all the features of the Report Writer and detail print- 
ing is achieved. 

2. If the identifier is the name of an RD entry, the GENERATE statement 
performs all features of the Report Writer except detail printing. In this 
way, only summary printing is achieved. 


C. TERMINATE Statement 


The TERMINATE statement completes the processing of a report after all records 
have been processed. Its format is: 


It is usually coded just before files are closed. 
Note that the only record format that has a name is DETAIL-LINE. This is 
because DETAIL-LINE is the only format accessed in the PROCEDURE DIVISION. 
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Thus, the entire PROCEDURE DIVISION for a program using the Report 
Writer Feature is: 


PROCEDURE DIVISION, 
MAIN-MODULE,. 
OPEN INPUT FILE-IN 
OUTPUT FILE-OUT. 
INITIATE REPORT-LISTING, 
PERFORM CALC-RTN UNTIL EOF = 1, 
TERMINATE REPORT-LISTING, 
CLOSE FILE-IN FILE-OUT, 
STOP RUN. 
CALC-RTN, 
GENERATE DETAIL-LINE, 
READ FILE-IN AT END MOVE 1 TO EOF, 


Thus, we can see that, although the Report Writer Feature requires a fairly 
complex REPORT SECTION of the DATA DIVISION, it greatly facilitates coding 
of the PROCEDURE DIVISION. 


Self-Evaluating Quiz 


Solutions 


= 


The three verbs required in the PROCEDURE DIVISION for using the Report Writer 

Feature are , , and 

2. The first verb required after the ________ statement is the 

The identifier associated with the INITIATE verb is the : 

4. The identifier associated with the GENERATE statement is either the _______ for 
printing or the ________ for ________ printing. 

5. The GENERATE statement usually follows the 5 

6. The TERMINATE statement has the same format as the _________ and is usually part 

of the _________ routine. 


7. The TERMINATE statement must precede the ________ statement. 


o 


1. GENERATE; INITIATE; TERMINATE 

2. OPEN, INITIATE 

3. Report name (RD entry) 

4. DETAIL report group name; detail, RD name; summary 
5. normal READ statement 

6. INITIATE; end-of-job 

7. CLOSE 


REVIEW QUESTIONS 


1. What is the Report Writer Feature and when is it used? 
2. Explain the meaning of the following terms: 
(a) Control heading. 
(b) Control footing. 
(c) Page heading. 
(d) Page footing. 
3. Explain the differences between detail and group printing. 
. What is a control break and how is it used in group printing? 
5. What section of the DATA DIVISION is required for writing reports using the Report 
Writer Feature? 


i 
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6. Explain the meaning of the following verbs: 
(a) INITIATE 
(b) GENERATE 
(c) TERMINATE 


PROBLEMS 


1. Using the Report Writer Feature, code the program that produces the report in Figure 
B.1. 


2. Using the Report Writer Feature, code the program that produces the report in Figure 
H4. 


Appendix | 


800 


[ae ee Re Oe ae eee eee) 
Relative and 
Direct Methods of 


Disk Processing 
SESSA Ran TONY (ce ap EN 


I. Processing Relative Disk Files 


The relative method uses a key field that specifically reflects an actual disk 
address. We will outline this method briefly. Suppose, for example, that Ac- 
counts Receivable records are entered in sequence by ACCT-NO. If the ACCT- 
NOs vary from 0001 to 9999, then ACCT-NO 1 can be placed in the first disk 
location, ACCT-NO 2 can be placed in the next, and so on. This type of file 
organization is best used where each record contains a kind of built-in record 
number. Since not all files lend themselves to this type of processing, relative 
files are not used as often as indexed files. 

The field that supplies the key information, such as ACCT-NO above, is 
called the RELATIVE KEY. All coding of PROCEDURE DIVISION entries for 
random or sequential processing of relative files is similar to the coding of 
ISAM programs. 

Relative files have the potential for being widely used, however, because 
the 1985 ANS standard includes them as an option. As noted, a relative file 
is useful only if a key field exists that varies consecutively (i.e., 001, 002,... 
995) or nearly consecutively. While small gaps are not problematic, a relative 
file places sequential records in corresponding relative disk locations so that 
a key of 982 means the record is located in the 982nd disk address. Gaps in 
key field values mean that disk space will be wasted. We will note the way 
IBM has implemented relative file processing and specify the differences be- 
tween this and the 1985 standard. 


A. Specifying Relative Files 
The following statements are required to specify relative files. 


FILE-CONTROL. 
SELECT filename ASSIGN TO DA-R-sysname 
ORGANIZATION IS RELATIVE 


SEQUENTIAL 
ACCESS Is 4 RANDOM [RELATIVE KEY IS key-field] 


DYNAMIC 
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When ACCESS is SEQUENTIAL, as in the creating of a relative file, the REL- 
ATIVE KEY clause is optional. When ACCESS is RANDOM or DYNAMIC, the REL - 
ATIVE KEY clause is required. 

If ACCESS 1S DYNAMIC is specified, you can change at will from sequential 
access to random access, using appropriate I-O statements. Suppose, for ex- 
ample, you wish to update a relative file randomly and, when the update 
procedure is completed, you wish to print the file in sequence. Use ACCESS 
18 DYNAMIC for this procedure, because it permits both sequential and random 
access. 


FILE SECTION, 
FD file-name 
RECORD CONTAINS number CHARACTERS 
[The BLOCK CONTAINS clause is not needed—it may be speci- 
fied in the SELECT statement for 1985.] 
LABEL RECORDS STANDARD 
o1 record. 
05 delete-byte PIC xX, 
(The delete code is for 1968 users only.] 
O05 rest-of-record PIC... 


WORKING-STORAGE SECTION. 


05 (relative-key-field) PIC 9(8), 
(The relative key must be defined in WORK ING-STORAGE.| 


B. Creating Relative Files 


Relative files are created sequentially, and either COBOL or the user can 
supply the key. COBOL writes the records with keys 1 to n if the RELATIVE 
KEY clause is omitted. Dummy records are automatically inserted if a record 
does not exist. That is, if there is no record with a key of 003, a dummy record 
is written in the third location of the disk. For 1968 users, this is performed 
by setting the leftmost delete-byte of the third record to HIGH-VALUES or by 
simply writing a blank record for 1974 and 1985 users. Thus, if records are 
written in increments of 10 with values 10, 20, 30,..., dummy records would 
be inserted for keys 1 to 9, 11 to 19, 21 to 29, ..., allowing records to be 
inserted later between the records actually created. 
The following writes 10 records with COBOL assigning keys 1 to 9: 


SELECT REL-~FILE ASSIGN TO DA-R-SYSOOL 
ORGANIZATION IS RELATIVE 
ACCESS IS SEQUENTIAL, 


+ 


OPEN INPUT TRANS-FILE 

QUTPUT REL-FILE. 

READ TRANS-FILE AT END MOVE 1 TO EOF. 
PERFORM AlO-WRITE 9 TIMES, 


’ 


ALO-WRITE. 
WRITE REL-~REC FROM TRANS-REC 
INVALID KEY DISPLAY ‘ERROR’, 


% 
* [The INVALID KEY phrase is executed if there is 
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* insufficient space to store the record or if records are 
* not in seauence,] 
READ TRANS-FILE AT END MOVE i TO EOF. 


The following example shows how the user supplies the keys in writing 
relative files: 


SELECT TRANS-FILE ASSIGN TO UT-S-590-SYS006, 
SELECT REL-FILE ASSIGN TO DA-R-8433-SYS007 
ORGANIZATION IS RELATIVE 
ACCESS IS SEQUENTIAL 
RELATIVE KEY IS WS-ACCT-NO, 
DATA DIVISION, 
FILE SECTION. 
FD TRANS-FILE 
LABEL RECORDS ARE STANDARD, 
O1 TRANS-REC 
035 ACCT-NO PIC 9(35). 
03S REST-OF-REC PIC X(95), 
FD REL-FILE 
LABEL RECORDS ARE STANDARD, 
O1 REL-REC PIC X(100), 
WORKING-STORAGE SECTION, 
O1 WORK-AREAS, 
03 EOF PIC 9 VALUE O, 
03 WS-ACCT-NO PIC 9(5), 
PROCEDURE DIVISION, 
OPE PUT TRANS-FILE 
OUTPUT REL-FILE. 
READ TRANS-FILE AT END MOVE 1 TO EOF, 
PERFORM WRITE-RTN UNTIL EOF = 1 
CLOSE TRANS-FILE» REL-FILE. 
STOP RUN, 
WRITE-RTN+ 
MOVE ACCT-NO TO WS-ACCT-NO. 
MOVE TRANS-REC TO REL-REC, 
WRITE REL-REC, 
READ TRANS-REC AT END MOVE 1 TO EOF. 


C. Sequential Reading of Relative Files 


The records in relative files may be read sequentially in the order that they 
are stored; that is, in the order of ascending keys. 


For 1968 ANS COBOL users: 
For sequential access of records read using the 1968 ANS COBOL com- 
piler, dummy records with HIGH-VALUES in the DELETE-CODE are also 


read. One must test for HIGH-VALUES in the position designated as the 
DELETE-CODE to detect and bypass them. That is, as with indexed files 
created using the 1968 COBOL compiler, sequential access reads deac- 
tivated records as well as active ones. 


There is no need to specify a RELATIVE KEY for reading from a relative file 
sequentially. Consider the following example: 


SELECT REL-FILE ASSIGN TO DA-R-SYSO03 
ORGANIZATION IS RELATIVE 
ACCESS IS SEQUENTIAL. 
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’ 
’ 
’ 


OPEN INPUT REL-FILE 

QUTPUT PRINT-FILE 
READ REL-FILE 

AT END MOVE 1 TO EOF, 
PERFORM CALC-RTN UNTIL EOF = i+ 
CLOSE REL-FILE» PRINT-FILE,. 
STOP RUN. 


CALC-RTNy 


‘ 
’ (process records) 


+ 


READ REL-FILE 
AT END MOVE 1 TO EOF, 


* For 1968 users» processing records should be preceded byt 
* IF DELETE-CODE NOT EQUAL TO HIGH-VALUES 


D. Random Reading of Relative Files 


Suppose we wish to find the BAL -DUE for a selected customer record on a file. 
The inquiry file indicates the specific record sought: 


SELECT REL-FILE ASSIGN TO DA-R-SYSO06 
ORGANIZATION IS RELATIVE 

ACCESS IS RANDOM 

RELATIVE KEY IS WS-KEY. 

SELECT QUERY-FILE ASSIGN TO UT-S-SYSOOG, 


DATA DIVISION, 
FILE SECTION, 


FD 


OL 


FD 


OL 


QUERY -F ILE 
LABEL RECORDS ARE STANDARD. 
QUERY -REC + 


O35 QO-KEY PIC 8(3). 
OS FILLER PIC X(75)4 
REL-FILE 

LABEL RECORDS ARE STANDARD, 
REL-REC, 

05 CUST-NAME PIC X(20)4 
05 BAL-DUE PIC 9(3), 


WORKING-STORAGE SECTION. 


OL 


STORED-AREAS» 
0S EOF PIc 9 VALUE O, 
05 WS-KEY PIC 9(5), 


PROCEDURE DIVISION. 


MAIN-MODULE,. 


CALC-RTN. 


OPEN INPUT QUERY-FILE 

REL-FILE,. 

READ QUERY-FILE AT END MOVE 1 TO EOF. 

PERFORM CALC-RTN THRU CALC-RTN-EXIT UNTIL EOF = 1, 
CLOSE QUERY-FILE, REL-FILE,. 

STOP RUN. 


MOVE Q-KEY TO WS-KEYs 
READ REL-FILE 
INVALID KEY GO TO CALC-RTN-EXIT. 
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DISPLAY BAL-DUE. 
CALC-RTN-EXIT,. 
READ QUERY-FILE AT END MOVE i TO EOF. 


The INVALID KEY phrase is executed if the key on the query file does not 
match a key on the relative file. 


E. Random Updating of Relative Files 


The relative file must be opened as I -0, and the record must be read and then 
rewritten to update the records. 

Suppose we wish to add transaction amounts to a master relative accounts 
receivable file: 


SELECT TRANS-FILE ASSIGN TO UT-S-SYSO00OG, 
SELECT REL-FILE ASSIGN TO DA-R-SYS007 
ORGANIZATION IS INDEXED 
ACCESS IS RANDOM 
RELATIVE KEY IS WS-KEY, 
DATA DIVISION, 
FILE SECTION, 
FD TRANS-FILE 
LABEL RECORDS ARE STANDARD. 
ie) TRANS-REC, 
035 T-KEY PIC 9(5). 
OS  T-AMT Pic 999V9g, 
FD REL-FILE 
LABEL RECORDS ARE STANDARD, 


QO REL-REC, 
05 CUST-NO PIC 9(5), 
05 BAL-DUE PIc 9(5)V9g, 


WORKING-STORAGE SECTION. 
ie) STORED-AREAS,. 

oS EOF PIC 9 VALUE O, 

OS WS-KEY PIC 9(5), 
PROCEDURE DIVISION, 
MAIN-MODULE. 

OPEN INPUT TRANS-FILE 

T-O0 REL-FILE,. 
READ TRANS-FILE AT END MOVE 1 TO EOF, 
PERFORM CALC-RTN THRU CALC-RTN-EXIT UNTIL EOF 
CLOSE TRANS-FILE» REL-FILE,. 
STOP RUN, 
CALC-RTN,. 
OVE T-KEY TO WS-KEY, 
READ REL-FILE 
INVALID KEY DISPLAY ‘ERROR’»+s WS-KEY 
GO TO CALC-RTN-EXIT. 

ADD T-AMT TO BAL-DUE, 
REWRITE REL-REC, 
CALC-RTN-EXIT, 

READ TRANS-FILE AT END MOVE 1 TO EOF, 


1, 


The INVALID KEY phrase is executed if the key is outside the file’s range. 
The 1974 and 1985 standards provide a DELETE statement to delete relative 
records. Once deleted, the record is logically removed from the file and cannot 
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be read. To delete records from a relative file using the more recent standards, 
we code: 
MOVE relative-record-number TO key. 


DELETE filename 
INVALID KEY imperative-statement. 


For 1968 ANS COBOL users, records are flagged as deleted by moving 
HIGH-VALUES to the delete-byte and rewriting the record. (The records 
are not physically deleted, but remain in the file and can be read if the 
file is accessed sequentially.) 


MOVE HIGH-VALUES TO DELETE-CODE, 
REWRITE REL-REC 
INVALID KEY DISPLAY ‘ERROR’, 


Self-Evaluating Quiz 


Solutions 


. To use a direct-access device sequentially is the same as using a _____ drive. 

. When using relative files, we say that the organization of the file is 

. The initial creation of a relative file is performed 

. Addressing of records in relative files is performed by 

. When creating a relative file ACCESS 18 _____. When using a relative file as . 
input, ACCESS 18 either ______or__. 

6, RELATIVE KEY may not be used with ______ files. 


7. (T or F) If ACCT~-NO is used to calculate an address for records on a relative file, then 
ACCT-NO is the ACTUAL KEY. 


8. (T or F) A RELATIVE KEY need not be unique. 
9. (T or F] Relative organization is the most popular method for organizing a disk file. 


Aron e 


1. high-speed tape 

2. RELATIVE 

3. sequentially 

4, the input-output control system 

5. SEQUENTIAL; SEQUENTIAL; RANDOM 

6. indexed (or sequential) 

7. F—ACCT-NO is used in the calculation, and the resulting address is the RELATIVE 
KEY. 

8. F—It must be unique. 

9. F—Indexed files are still the most popular. 


Il. Processing Direct Files 


A direct file has a key field that is actually used to compute the disk address. 
For example, suppose a direct file has a key field of TRANS-NO, where TRANS ~ 
NO is three digits and there are 500 tracks. We can divide the TRANS-NO by 
499 and use the remainder as the track number on which the record is stored, 
Therefore, a record with TRANS-NO 123 would be placed on track 123 (123 + 
499 = 0 with a remainder of 123). This is a rather simplified example, but 
such a direct conversion from key to address can be made. In this way, there 
is no need to establish any index, and records may be accessed directly, simply 
by including a conversion formula in the program. 
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Figure 1.1 
Program to create a direct file. 
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The SELECT statement for a direct file may be coded as follows: 


SELECT STATEMENT FOR DIRECT FILE 
SELECT file name ASSIGN TO 
eee external-name] } 
$YSnn-DA- (device-no]-D [-external-name] 
ORGANIZATION IS DIRECT 


ACCESS IS Ee } 


SEQUENTIAL 


ACTUAL KEY 1S data-name 


The ACTUAL KEY is computed from the direct file’s key field. The ACTUAL KEY 
is usually a WORK ING-STORAGE entry that converts to the actual disk address. 
It must be unique, numeric, and nonblank. 

When creating a direct file, the only novel programming entry is the math- 
ematical routine used for calculating the disk record's location. See Figure I.1 
for an illustration of a program that creates a direct file. Note the arithmetic 
routine for calculating TRACK-NO. 


IDENTIFICATION DIVISION: 
PROGRAM-ID, CREATEDIR: 
KHER KEKE EHH KEKE ERE E EEE EERE RE ERE EEE 
halal THIS PROGRAM CREATES A DIRECT ** 
** FILE FROM TAPE INPUT. ¥% 
KEKE HK EKER ERE E EERE EEE EER EE EEE EE EE 

ENVIRONMENT DIVISION. 

INPUT-OUTPUT SECTION, 

FILE-CONTROL,. 
SELECT TRANS-IN ASSIGN TO UT-S-SYS00G. 
SELECT DIRECT-FILE ASSIGN TO DA-D-MASTER 

ACCESS IS RANDOM 
ACTUAL KEY IS ACTUAL-KEY-STORE. 
* 

DATA DIVISION, 

FILE SECTION: 

FD TRANS-IN 
LABEL RECORDS ARE STANDARD. 


Ol IN-REC, 
05 PART-NO PIC 9(5). 
05 QTY-ON-HAND PIC 9(d), 
05 TOTAL-PRICE PIc 9(5)vg9. 
05 FILLER PIC X(64). 


FD DIRECT-FILE 
LABEL RECORDS ARE STANDARD. 
O1 DISK-REC-OUT. 


05 DELETE-CODE PIC Xs 
05 DISK-REC-DATA. 
10 D-PART-NO PIC 9(5)+ 
10 D-QTY-ON-HAND PIC 8(4), 
10 D-TOTAL-PRICE PIc 9(5)v99, 
10 FILLER PIC X(G4). 


WORKING-STORAGE SECTION: 
O1 WORK-AREAS, 
OS ‘EOF PIc 9 VALUE 0, 


Figure I.1 
Continued 
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OS STOREL PIC $9(8), 
03 STOREZ PIC $9(8), 

O1 ACTUAL~KEY-STORE. 
03 TRACK-NO PIC S9(5), 
03 RECORD-KEY PIC 9(5). 

* 

PROCEDURE DIVISION, 

MAIN-MODULE. 

OPEN PUT TRANS-IN 


I 
QUTPUT DIRECT-FILE, 
READ TRANS-IN AT END MOVE 1 TO EOF, 
lg RM WRITE-RTN UNTIL EOF = 1, 
CLOSE TRANS-IN» DIRECT-FILE, 
STOP RUN. 
WRITE 
OVE SPACES TO DELETE-CODE,. 
*** NOTE THAT DELETE-CODE = HIGH-VALUES ONLY WHEN HHH 
*** RECORD IS TO BE DELETED USING 1968 ANS COMPILER *%* 
MOVE IN-REC TO DISK-REC-DATA, 
OVE PART-NO TO STORE1»s RECORD-KEY, 
DIVIDE STOREL BY 499 GIVING STORE 
REMAINDER TRACK-NO. 
HR HHH RHR KR THK KK RH RH RH EI 
**¥* THE ABOVE INSTRUCTION IS ONE METHOD ¥¥*% 
#** FOR CALCULATING TRACK NO, HHH 
KAR IR ER RK RT RR RR KR RRR RRR HR 
RITE DISK-REC-OUT INVALID KEY 
DISPLAY TRACK-NO» RECORD-KEY, 
READ TRANS-IN AT END MOVE 1 TO EOF, 


Accessing the direct file can be performed either sequentially or randomly. 
Sequential access means that disk records are read and processed as with 
sequential tape and sequential disk files. This is rarely done with direct files 
because sequential key fields do not necessarily mean that records are adjacent 
to one another. Random access means that another input file, a transaction 
file, will indicate which disk records are to be accessed. This is the usual 
method for accessing and updating direct files. 

Suppose that a master file containing records of criminals has been created 
with SSNO used to calculate the ACTUAL KEY—the field used for computing 
each disk record’s address. To access any record on this file, we read in a field 
called IN-88NO, perform the calculations necessary for obtaining the address, 
and store that address in a field called SSNO-CONVERTED. If we define the 
ACTUAL KEY as SSNO-CONVERTED when we say READ DIRECT-FILE, the com- 
puter will locate the record whose address is indicated at SSNO-CONVERTED. 

se PROCEDURE DIVISION entries that apply to ISAM files apply here 
as well: 


Ciauses UseD TO UPDATE RANDOM-ACCESS FILES 


OPEN 1-0 Use when a direct file is being updated 

REWRITE Writes back onto a direct file (can only use REWRITE 
when file is opened as 1-0) 

INVALID KEY May be used with READ or WRITE; computer will 
perform statements within INVALID KEY if record 
cannot be found or if ACTUAL KEY is blank or not 
numeric on direct files 
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The main difference between using a direct file and using an indexed file 
is that direct files require the coding of a calculation for computing the actual 
address. Direct files, like relative files, do not require an index. 

As noted, it is not efficient to process direct files sequentially, since the 
records adjacent to one another in most direct files do not have key fields that 
are in sequence. Hence, direct file organization is primarily used for random 
access only. Direct file processing is not yet supported by the ANS standard. 


Appendix 


(ESS aN Na A | 
Data Set for Programming 
Assignment 2 in 


Each Chapter 
EE a RSC ARE] 


The following chart consists of a sample data set that can be used with Pro- 
gramming Assignment 2 of each chapter. 
SPESIRIRIGEBETEESRIEIRRL cl bl ARARARAAAA RAR AR lt slelel lee lel toll dalle ele lel eel ole lofeeall lel 
' oo 3] lalolafs|2f3|s {ata falool state lol >lalstolslata(stetelslalolol al ale(slelslelelels 2s.) lolol |ols|a|ofo {a} 9| slo +lol ol ofr false) s) [910 
1 
2 
3 
4 nee if a 
oe ae [| [| 
6 el | 
7 iH 
Lb Lit | 
9 |_| 
ee | 
WV fa 
12 r] | }| 
13 2. 3; 
4 i 7 4 | 
Se TUT 77 d | [ 
aT i) 3 Oe : iT L || 
a BRaEe 332 7] | aTewe 
19 Ok 
20 Nm B 
a } } 
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Glossary 
a ses Se il eee econo Oa 


Abend condition. When a program is terminated or interrupted because of an error; 
abbreviation for abnormal end. 

ACCEPT. A statement used for reading in a low volume of input, unlike a READ, an 
ACCEPT does not require establishing files, SELECT, or OPEN statements. 

ADD. A statement used for performing an addition operation. 

Addressing error. An error that occurs when an effort is made to access a table, array, 
or other data area incorrectly. 

AFTER ADVANCING. An option with the WRITE statement that can cause the paper 
on a printer to space up to 100 lines before a line is printed. 

Alphanumeric literal. A constant or fixed value that may contain any character in 
the COBOL character set (except quote); limited to 120 characters; such literals are 
enclosed in quotes. 

ALTERNATE RECORD KEY. A VSAM option that allows an indexed file to be created 
with and accessed using more than one identifying key. 

American National Standards Institute (ANSI). An organization of academic, busi- 
ness, and government users that develops standards in a wide variety of areas, in- 
cluding programming. There are several versions of American National Standard 
COBOL—1968, 1974, and 1985. 

Area A. Columns 8-11 of a COBOL coding sheet or layout form; some COBOL entries 
must begin in Area A, that is, column 8. 

Area B. Columns 12-72 of a COBOL coding sheet or layout form; most COBOL 
entries must begin in Area B, that is, anywhere from column 12 on. 

Array. An area consisting of numerous fields, all with the same format, typically used 
for storing totals. 

ASCENDING KEY. The field within a sort file to be used for sequencing the file; or 
the field within an OCCURS specification that is in sequence and can be used for a 
binary search; when [ASCENDING KEY data-name] is used with an occurs clause, 
fields are in increasing sequence by the data name specified. 

Ascending sequence. A system of ordering data so that a key field in the first record 
is less than the key field in the next, and so on. 

ASCII code. A common computer code for representing data; an acronym for Amer- 
ican Standard Code for Information Interchange. 

AT END. A clause used with a READ statement to indicate the operations to be per- 
formed when an end-of-file condition has been reached. 

AUTHOR. A paragraph coded in the IDENTIFICATION DIVISION after the PROGRAM- 
ID. It is an entry used for documentation purposes, naming the programmer. 


Batch total. A count of records within specific groups (e.g., departments, territories) 
used for control purposes to minimize the risk of records being misplaced or incor- 
rectly transmitted. 

BEFORE ADVANCING. An option with the WRITE statement that can cause the paper 
in a printer to space up to 100 lines after a line is printed. 
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Binary number. The method of representing data with a series of 1’s and 0's, ‘where 
1 represents the existence of a bit and 0 represents the absence of a bit. 

Binary search. An efficient method of searching a series of entries that are in sequence 
by some key field. Contrast with serial search. 

BLANK WHEN ZERO. A clause used in the DATA DIVISION to ensure that a field 
consisting of all zeros will print as blanks. 

BLOCK CONTAINS. A clause used in the DATA DIVISION to indicate the blocking 
factor of tape or disk files. 

Blocking. Combining several logical records into one physical record to conserve 
space on a magnetic tape or disk. 

Bpi (bits per inch). A measure of tape densities, where a density of 1600 bpi, for 
example, is equivalent to 1600 characters per inch. 

Buffer. An alternative input/output area designed to permit overlapped processing by 
the computer. Buffers help to maximize the efficiency of the computer. 

Burst. To separate a continuous form into individual sheets. 


CALL. A COBOL statement for accessing a subprogram. 

Called program. A subprogram or program called into a user program as needed. 

Calling program. A program that calls a subprogram. 

Case structure. A technique that enables the user to program a procedure that tests 
for a variety of cases; a logical control structure used when there are numerous 
paths to be followed depending on the contents of a given field. 

Catalogue. A method for storing a library of programs on an auxiliary device and 
calling in each program as needed. 

Check bit. Sce parity bit. 

Check digit. A computed integer added to a key field and used for minimizing the 
risk of transposition and transcription errors during the data entry process. 

Check protection symbol (:). A symbol used to minimize the risk of people tampering 
with a check amount; e.g., $ 1.25 would print as $###1.25 using the * as a 
check protection symbol. 

Class test. A validation procedure used to ensure that input is entered in the appro- 
priate data format, that is, numeric, alphabetic, or alphanumeric. 

CLOSE. A statement used to deactivate files and devices used in a program, 

Coded field. A type of field in which a code is used to designate data; e.g., 1 may be 
a code to designate ‘Married’ in a Marital Status field; keeps record formats shorter 
and more manageable. 

Coding sheet. A form that contains the specific columns in which entries are required 
in a programming language. 

Collating sequence. The specific order in which characters are represented by a com- 
puter; eg, A<B<...Zand0<1,... <9; the two common computer codes, 
ASCII and EBCDIC, have slightly different collating sequences with regard to special 
characters. 

Compile (Compilation). The process of translating a symbolic program into machine 
language before it can be executed. 

Compiler. A special translator program used to convert source programs into object 
programs. 

Compound conditional. An IF statement in which there are two or more conditions 
being tested, separated by the word OR or AND. 

COMPUTATIONAL (COMP). The clause used to represent binary data. 

COMPUTATIONAL-3 (COMP-3). The clause used to represent packed decimal data in 
the DATA DIVISION when using an IBM or IBM-compatible computer. 

COMPUTE. A statement used for performing a series of arithmetic operations. 

Concatenation. The process of joining several fields together to form one field; a 
method of linking records, fields, or characters into one entity. 

Condition-name. The name assigned to a value or range of values that a data item 
can assume; IF (condition-name) is the same as IF (data-name = value), where the 
value is assigned to the condition-name; used on the 88-level in the DATA DIVISION. 
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Conditional statement. A COBOL statement that uses the word IF to test for the 
existence of a condition. 

CONFIGURATION SECTION. A section of the ENVIRONMENT DIVISION that describes 
the overall specifications of the source and object computers and any other particular 
computer specifications required. 

Constant. A fixed value or literal that is used in a program. 

Continuation position. A hyphen (-) in column 7 of a COBOL form used for continuing 
a nonnumeric literal from one line to the next. 

Continuous form. A continuous sheet of paper separated only by perforations and 
typically used by a computer’s printer for printed output. 

Control break processing. The use of a control field for causing groups of records to 
be processed as one unit. 

Control field. A control field is used to indicate when totals are to print; used in 
control break processing. 

Control listing. A report that is produced in many computer runs and is used for 
control or checking purposes; typically includes (1) identifying information about 
all input records processed by the computer, (2) any errors encountered, and (3) totals 
of records processed. 

COPY. A statement for copying files, records, routines, and so on from a source 
statement library. 

Counter field. A field used to sum the number of occurrences of a given condition. 

CURRENT-DATE. A COBOL reserved word for IBM and IBM-compatible computers 
that represents an eight-position alphanumeric field with a mo/da/yr format, in- 
cluding the slashes. 

Cylinder. A series of vertical tracks on a magnetic disk pack that is used for storing 
data. Records on a disk are frequently accessed by their cylinder number. 


DATA DIVISION. One of the four major divisions of a COBOL program used for de- 
fining and describing all data to be used in a program. 

Data exception error. A common logic error that occurs if data is designated in a 
PICTURE clause as numeric but does not actually contain numeric data. 

Data-name. The name assigned to each field, record, and file in a COBOL program. 

DATA RECORD(S). The name of a record within a file. 

Data validation. Minimizing the risk of input errors by checking input, insofar as is 
possible, before processing it. 

DATE. The COBOL reserved word used in 1974 and 1985 compilers for obtaining the 
date of a program run. 

DATE-COMPILED. A paragraph coded in the IDENTIFICATION DIVISION for indi- 
cating the date when a program was compiled. 

DATE-WRITTEN. A paragraph coded in the IDENTIFICATION DIVISION for indicating 
the date when a program was coded. 

Debugging. The process of testing a program to eliminate errors. 

Default. A system’s normal options that are implemented unless the programmer 
specifically requests an alternative. 

DELETE. A statement used to delete records from disk files (1974 and 1985 standards). 

Density. The number of characters that can be represented in an inch of magnetic 
tape or on a disk track; often expressed as bpi (bits per inch). 

DESCENDING KEY. The field within a sort file that is to be used for sequencing the 
file; or the field within an OCCURS specification that is in sequence and can be used 
for a binary search; when [DESCENDING KEY data-name] is used with an OCCURS 
clause, fields are in decreasing sequence by the data name specified. 

Descending sequence. A system of ordering data so that a key field in the first record 
is greater than the key field in the next and so on; that is, the first record has the 
highest key field. 

Desk checking. A method of debugging programs by manually checking for typo- 
graphic, keying, and other errors prior to a compilation; this method of debugging 
reduces computer time. 

Detail printing. The printing of one or more lines for each input record read. 
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Diagnostic message. A listing and explanation of a syntax error. 

Direct access. The method of processing data independent of the actual location of 
that data. This method can be used with magnetic disk and other direct access 
devices. The term random access is sometimes used in place of direct access. Con- 
trast with sequential access. 

Direct file organization. Disk records are accessed by converting a key field, through 
some calculation, to an actual address that identifies the surface, track, and, pos- 
sibly, cylinder or sector number of the record. 

Disk drive. A direct access device designed to minimize the access time required to 
locate specific records; ideally suited for on-line or immediate processing. 

Disk pack. A storage medium that consists of a series of platters or disks arranged in 
a vertical stack and connected by a central shaft. 

DISPLAY (verb). A statement used for printing a low volume of output, unlike a 
WRITE, a DISPLAY does not require the use of files or SELECT and OPEN statements. 

DISPLAY (in USAGE clause). When data is stored in external or zoned decimal format. 

DIVIDE. A statement used for performing a division operation. 

DIVIDE exception. An error that occurs when you attempt to divide a field by zero. 

Division. One of four major parts of a COBOL program. 


EBCDIC code. A common computer code for representing data; an acronym for Ex- 
tended Binary Coded Decimal Interchange Code. 

Edit program. A program that minimizes the risk of input errors by validating or 
checking the data prior to processing it. 

Edit symbols. Symbols such as $, —, * used in a report item to make printed or 

. displayed output more readable. 

Editing. The process of converting data that is typically stored in a concise form into 
a more readable form; e.g., $1,235.46 would be an edited version of 123546. 

Elementary item. A field that contains a PICTURE clause, a field that is not further 
subdivided. 

End of file. A condition that occurs when the last data record has been read and 
processed, 

Enhancements. Options that are provided by some COBOL compilers; these options 
are in addition to the standard requirements of an ANS compiler. 

ENVIRONMENT DIVISION. One of four major divisions of a COBOL program, it pro- 
vides information on the equipment used with the program. This is the only division 
that is considered to be machine-dependent. 

EXAMINE. A statement used with 1968 compilers for counting the occurrence of 
specific characters in a field and for replacing one character with another. 

EXHIBIT. A COBOL enhancement that is used to print the contents of selected fields 
during the debugging phase. 

EXIT. A COBOL reserved word that may be used as the only word in a paragraph; 
used to indicate that “no operation” is required in the paragraph. 

EXIT PROGRAM. The last entry in a called program. 


FD. See File Description. 

Field. A group of consecutive characters used to represent a unit of information, e.g., 
a NAME field or an AMOUNT field, 

Figurative constant. A COBOL reserved word such as SPACE or ZERO where the word 
denotes the actual value; e.g., MOVE ZEROS TO TOTAL, will result in all 0’s in the 
field called ToTAL. 

File. A major collection of data consisting of records that are further subdivided into 
fields. 

FILE-CONTROL. A paragraph in the INPUT-OUTPUT SECTION of the ENVIRONMENT 
DIVISION where each file to be used in the program is assigned to a device. 

File Description (FD). Entries used to describe an input or output file. 

FILE SECTION. The section of the DATA DIVISION in which input and output files 
are defined and described. 

FILLER. A COBOL reserved word used to designate a field that will not be accessed 
by the program. 
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Fixed-head disk. A disk that does not use a movable access arm; each track has its 
own read/write mechanism that accesses a record as it rotates past the arm. 

Fixed-length records. Records within a file that are all the same length. 

Flag. See switch. 

Floating string. A character, such as a $, that is edited so that it appears adjacent to 
the first significant digit. 

Flowchart. A planning tool that provides a pictorial representation of the logic to be 
used in a program. 


GO TO. A branch instruction that transfers control from one paragraph to another; 
GO TO statements are to be avoided in structured COBOL programs; that is, PERFORM 
statements should be used in place of GO T0’s where possible. 

GO TO... DEPENDING ON. A statement used as part of the case structure to cause 
branches depending on different situations or cases. 

Group item. A field that is subdivided into elementary fields with PICTURE clauses. 

Group printing. The printing of one line of output for groups of input records; usually 
used to summarize data. Same as summary printing. 


Hash total. A specified numeric field, not normally used in arithmetic operations 
(e.g., CUSTNO), that is totaled both manually and then by computer. A comparison 
is performed to ensure that both hash totals match. This technique minimizes the 
risk of errors. 

Header label. The first record recorded on a tape or disk for identification purposes. 

High-order position. The leftmost, or most significant, character in a field. 

HIGH-VALUES. A COBOL reserved word representing the largest value in the com- 
puter’s collating sequence; may only be used with fields defined as alphanumeric. 

HIPO chart. A planning tool for hierarchically representing the logic in a program or 
flowchart; an acronym for hierarchy-input-process-output; a tool used to depict top- 
down logic. 


IBG. See interblock gap. 

IDENTIFICATION DIVISION. The first division of a COBOL program; used for docu- 
mentation purposes. 

IF-THEN-ELSE. A sequence used to execute a step or series of steps depending on the 
existence of a specific condition or conditions. 

Imperative statement. A direct command to the computer; contrast with conditional 
statement. 

Implementor-name. A system-dependent term that may be equated to a user-specified 
mnemonic-name in the SPECIAL-NAMES paragraph. 

Implied decimal point. The place where a decimal point is assumed to be in a field; 
pic 99va9, for example, has an implied decimal point between the second and third 
positions; ¢.g., 1234 in a field with PIC 99V99 is assumed to have a value of 12.34 
for arithmetic and comparison purposes. 

Index (for indexed file). A reference table that stores the key field and the correspond- 
ing disk address for each record that is in an indexed disk file. 

Index (INDEXED BY with OCCURS). The indicator used to reference an item defined 
by an occurs clause or subordinate to an item defined by an occurs clause. An 
index functions just like a subscript; however, unlike a subscript, an index is not 
defined separately in WORK ING-STORAGE. 

Indexed file. A method of file organization in which each record’s key field is assigned 
a disk address; this facilitates the random accessing of disk records. 

Indexed sequential access method (ISAM). An access method in which a record’s key 
field is used for locating the disk record by looking up the address in an index. 
Infinite loop. An error condition in which a program would continue performing a 

module indefinitely or until time has run out for the program. 

INITIALIZE. A 1985 statement that will set numeric fields to zero and nonnumeric 
fields to spaces. 
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Input. The data that is entered into a computer system. 

INPUT PROCEDURE. An option used with the $oRT statement to perform a procedure 
prior to sorting the incoming records. 

INPUT-OUTPUT SECTION. The section of the ENVIRONMENT DIVISION that provides 
information on the input/output devices used in the program and the names as- 
signed to the devices. 

INSPECT. A command used with 1974 and 1985 compilers for counting the occur- 
rence of specific characters in a field and for replacing one character with another. 

INSTALLATION. A paragraph coded in the IDENTIFICATION DIVISION for docu- 
mentation purposes; used to denote where the program is run. 

Interblock gap (IBG). An area of a tape or disk that separates physical records. 

Intermediate result field. A field defined in WORKING-STORAGE that is necessary for 
performing calculations and is not part of either the input or the output areas. 

INVALID KEY. A clause that can be used with READ, WRITE, and REWRITE statements 
for direct access files; checks that disk records have valid key fields. 

|-O file. A disk file that is opened as both input and output when the file is to be 
updated. 

Iteration. The repeated execution of a routine or routines. 


JUSTIFIED RIGHT. A clause used in the DATA DIVISION with a nonnumeric field to 
change the way in which data is stored. 


Key field, The field in a record that identifies the record, such as ACCT~NO or PART- 
NO. 


LABEL RECORD(S). A clause in a File Description entry to designate whether header 
labels are standard or omitted, 

Level number. A number from 01 to 49 to denote the hierarchy of data within records. 

Library. A file of programs that can be called in by the operating system as needed. 

Limit test. A validation procedure used to ensure that a field does not exceed a 
specified limit. 

Line counter. A field used for keeping track of the number of lines printed. 

LINKAGE SECTION. A section used when calling subprograms to pass data from a 
called subprogram to a calling program. 

Logic error. An error that can occur from a mistake in the sequencing of instructions 
as well as from an improperly coded instruction that does not accomplish what was 
desired. Contrast with syntax error. 

Logical control structure. A method typically used to alter the path of a structured 
program to achieve appropriate modularity. 

Loop. A programming technique for executing a series of steps a fixed number of 
times or until a specified condition exists, 

Low-order position. The rightmost position in a field. 

LOW-VALUES. A COBOL reserved word that represents the lowest character in the 
collating sequence for the specific computer. 


Machine language. The language into which programs must be translated before they 
can be executed, 

Main module. Usually the first module in a top-down program, all other modules are 
executed from the main module. 

Master file. The major collection of data pertaining to a specific application. 

Menu. A technique used for interactive processing; the user is offered various options 
from which to select the procedures or routines required. 

MERGE. A statement that combines two or more files into one main file. The state- 
ment has a format similar to the soRT and automatically handles the opening, 
closing, and input/output associated with the files to be merged. 

Merge procedure. The process of combining two or more files into one main file. 

Module. A section, routine, procedure, or paragraph in a structured program. 

MOVE. A command that transmits data from a sending field to a receiving field. 


816 


GLOSSARY 


MOVE CORRESPONDING. A statement that transmits the contents of fields in the 
sending area to fields in the receiving area, when the corresponding fields have the 
same name; e.g., MOVE CORRESPONDING REC-1 TO REC-2 transmits the contents 
of fields in REC-1 to fields in REC-2 that have the same names. 

Moving-head disk. A disk that has all read/write heads attached to a single movable 
access mechanism. All read/write heads move together to locate a specific record. 

MULTIPLY. A statement used for multiplying one field by another. 

Murphy’s Law. An adage that has relevance in the computing field: If it is possible 
for something to go wrong, eventually it will go wrong; this adage should be kept 
in mind so that when you prepare test data, you make sure that it tests for every 
conceivable condition. 


Negated conditional. An IF statement that tests for the absence of a condition; the 
word NOT is used in the statement; e.g., IF A 18 NOT EQUAL TO B see. 

Nested conditional. A shortcut method of writing a series of simple conditionals; a 
structure that executes a number of imperative statements depending on whether 
a series of conditions are met. 

Nested PERFORM. A PERFORM within a PERFORM, that is, when a paragraph that is 
itself executed by a PERFORM contains another PERFORM within it. 

Nonnumeric literal. Any combination of letters, digits, and symbols (except a quo- 
tation mark) enclosed in quotes. 

Numeric literal. A constant that can contain only numbers, a decimal point, and a 
sign, typically used in arithmetic and comparison operations. 


OBJECT-COMPUTER. The paragraph of the ENVIRONMENT DIVISION that indicates 
the computer on which the program is executed or run. 

Object program. The machine language equivalent of a source program. 

OCCURS clause. A clause used for indicating the repeated occurrence of items in the 
DATA DIVISION, all with the same format. 

OCCURS ... DEPENDING ON clause. A clause that enables the number of items in 
an array or table to vary. 

ON SIZE ERROR. A clause used to indicate what operations are to be performed if a 
field is not large enough to receive the results of an arithmetic operation. 

OPEN. A statement used to designate which files are input and which are output; 
the OPEN statement activates the appropriate devices. 

Operand. A data field or a literal that is specified in an instruction. 

Operation error. An error that occurs if a file is accessed before it is opened. 

Output. The information produced by a computer system. 

OUTPUT PROCEDURE. An option that can be used with the SORT statement; this 
procedure processes all sorted records on the sort file and handles the transfer of 
these records to the output file. 

Overflow. See truncation. 


Packed decimal. The method of storing data so that each byte within a field contains 
two numeric digits rather than one. The rightmost byte, however, includes a sign 
and thus contains only one digit. 

Packing. Storing two digits in a single byte. 

PAGE. A reserved word used with the ADVANCING option of a WRITE statement so 
that the paper advances to a new page. 

Paragraph. A subdivision of a COBOL program consisting of statements or sentences. 

Parity bit. An extra bit within a byte used to minimize the risk of computer trans- 
mission errors. Same as check bit. 

PERFORM. A logical control statement used for executing a paragraph or series of 
paragraphs and then returning control to the original module. 

PERFORM... UNTIL. A statement that controls execution of one or more paragraphs 
until the condition specified is met. 
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PICTURE (PIC). A clause that indicates the size and type of data in a field. 

Printer Spacing Chart. A tool used to map out the spacing of output in a printed 
report. 

PROCEDURE DIVISION. The division of a COBOL program that contains the instruc- 
tions to be executed. 

PROCEDURE DIVISION map. A list of each instruction and the storage location where 
it is placed. 

Program. A set of instructions that operates on input data and converts it to output. 

PROGRAM-ID. The only paragraph required in the IDENTIFICATION DIVISION. 

Program interrupt. Occurs when an error causes a program to terminate. 

Program sheet. See coding sheet. 

Program specifications. The precise instructions necessary for writing a program, 
consists of Record Layout forms for tape or disk input and output and Printer Spacing 
Charts for printed output, along with notes specifying the logic required. 

Programmer, The individual who writes the set of instructions. 

Pseudocode. A planning tool that uses English-like expressions rather than diagrams 
to depict the logic in a structured program. 


Qualification of names. A technique used to access fields with the same name in the 
PROCEDURE DIVISION, eg., in the statement, MOVE AMT OF REC-IN TO AMT OF 
REC-OUT, the AMT field is qualified with the use of the word oF. 


Range test. A validation procedure to determine if a field has a value that falls within 
pre-established guidelines. 

READ. The statement used to input a data record from an input device. 

READ...INTO. A statement that reads a record from a file and stores it in a WORK ING~ 
STORAGE record area. 

Read/write head. The mechanism in a magnetic tape or magnetic disk drive that 
enables the device to read and record data. 

READY TRACE. A debugging aid that is used to print the sequence of paragraphs that 
a program executes during a specific run. 

Reasonableness test. A data validation procedure to ensure that data entered as input 
is not clearly incorrect; e.g., a year of transaction designated as 1968 (instead of 
1986) would clearly be erroneous. 

Receiving field. The field that accepts data from a sending field in a MOVE operation, 
in the statement MOVE AMT-IN TO AMT-OUT, AMT~QUT is the receiving field. 

Record. A set of related fields treated as a unit. A payroll record on magnetic disk, 
for example, contains fields such as Social Security number, Name, and Salary. 

RECORD CONTAINS. An optional clause within an FD for indicating the number of 
characters within a record, 

Record description. Entries used to describe records within a file and within WoRK- 
ING-STORAGE, 

RECORD KEY. The key field within an ISAM or VSAM record that is to be used 
when establishing an index. 

Record layout form. A form used in a problem definition to describe input and output 
formats on disk, tape, or cards. 

REDEFINES. A clause used to describe a field of data in two different ways. 

Relative file. A file that uses a key field in each record for directly determining the 
location of each record. 

RELEASE. A statement to write sorted records after they have been processed. 

REMAINDER. A clause that may be used with the DIYIDE instruction for storing the 
remainder of a division operation, 

REPLACING option. A clause used with a cory statement for substituting data-names 
and other entries. 

Report-item. A type of field used for storing edit symbols such as $, —, * in addition 
to numeric data; report-items are typically used when data is to be printed or dis- 
played in a readable form. 
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RESERVE. A clause used for designating additional I/O buffer areas. 

Reserved word. A word that has special significance to the COBOL compiler, such 
as ADD, MOVE, DATA. 

RETURN. A statement to read records from a sorted work file after the SORT. 

REWRITE. A statement to alter existing disk records; used for updating disk records. 

ROUNDED. A clause for rounding results to the specification of the receiving field. 

Routine. A set of instructions used to perform a specific operation. 


SEARCH. A statement for finding an item in a table; used for look-up purposes and 
to perform a serial search. 

SEARCH ALL. A statement for matching an item in an input record, for example, 
with an entry stored in a table or in an array; used to perform a binary search. 

Section. A series of paragraphs within a COBOL program. 

SECURITY. A paragraph in the IDENTIFICATION DIVISION used to document the 
security classification for the program. 

SELECT. A statement in the FILE-CONTROL paragraph of the ENVIRONMENT DIVI- 
SION that is used to assign an input or output device to a file. 

Sending field. The field that is to be transmitted to another field as a result of a MOVE; 
in the statement MOVE AMT-IN TO AMT-OQUT, AMT-IN is the sending field. 

Sentence, A statement or series of statements treated as a unit in a COBOL program. 

Sequence. The series of instructions used to depict the flow of logic when no branch- 
ing is required. 

Sequence checking. A procedure that ensures that data entered is in the proper se- 
quence, usually by a key field. 

Sequential access. The method of processing records in the order in which they are 
located in a file. Contrast with direct access. 

Serial search. A table look-up method in which each entry in the table is compared 
to an item; the entries are consecutively compared, beginning with the first, contrast 
with binary search. 

SET. The statement used to transmit data to an index or to increase or decrease the 
value of the index. 

Sign test. A test performed to determine if a numeric field is positive or negative. 

Simple condition. A test for the existence of a single condition. 

SORT. A statement used to order a file so that it is in a specified sequence. 

SOURCE-COMPUTER. The paragraph of the ENVIRONMENT DIVISION that indicates 
the computer on which the program is compiled or translated. 

Source program. A set of instructions that must be compiled into machine language 
before it can be executed. 

Source statement library. See library. 

SPECIAL-NAMES. The paragraph of the ENYIRONMENT DIVISION that assigns specific 
mnemonic-names to computer-related implementor-names. 

Specification error. An error that occurs if you attempt to access an input file after 
an AT END condition has been reached. 

Spooling. The process of performing an input or output operation at high speeds using 
a tape or disk in an off-line operation; e.g., output to be printed might be spooled 
onto disk in a high-speed operation and then printed on the printer off-line. 

START. A statement that can be used to begin processing indexed records of an ISAM 
or VSAM file at any point not necessarily at the beginning of the file. 

Statement. A command or instruction. 

STOP RUN. A statement that tells the computer to terminate the program. 

Storage dump. A list of the contents of storage during a particular run. 

STRING. A statement used to join several fields together to form one field. 

Structured programming. A programming technique that makes programs easier to 
read, debug, and modify; sometimes referred to as GO To-less programming; each 
section of a program is written as an independent module. 
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Structured walkthrough. See walkthrough. 

Subprogram. A program or series of modules that can be called into a user program. 

Subscript. A data item used for accessing a specific field in an array or table. 

SUBTRACT. A statement that subtracts fields or literals from another field or fields, 

Suppression of leading zeros. The process of editing a field so that high-order zeros 
are replaced with blanks. 

Switch. A type of field usually defined in WORK ING-STORAGE for indicating the pres- 
ence of a specific condition, the field is set equal to 1, for example, when a condition 
exists, and at all other times it remains at zero. Same as flag. 

Symbolic programming language. A programming language that is relatively easy for 
a programmer to learn but that requires a translation process before the program 
can be run. 

SYNCHRONIZED (SYNC). A clause used to align binary numeric data on required 
boundaries. 

Syntax error. An error caused by a violation of a programming rule. 

Systems flowchart. A pictorial representation of the input, output, and processing 
required within a system. 


Table data. A series of consecutive items, all with the same format, defined in the 
DATA DIVISION with an OCCURS clause; used for looking up or matching against 
an item read in or computed by the program. 

Table look-up. A procedure whereby an item is matched against a table entry for 
purposes of determining the value of some corresponding table entry. 

TALLY. A COBOL reserved word used with the EXAMINE command on 1968 compilers 
for keeping a count of a specified condition. 

Tape drive. A high-speed device used for storing files, typically used for sequential 
processing in batch mode. 

Test data, Programmer-supplied data used to test the logic of a program. 

Top-down programming. A programming technique in which main modules or pro- 
cedures are coded before minor ones. 

Trailer label. An end-of-file label placed on tape or disk. 

Transaction file. A file that contains data to be used for updating a master file. 

Transcription error. An error that occurs when data is keyed incorrectly, 

Transposition error. An error that occurs when two or more characters are reversed 
when they are keyed in or entered as input. 

Truncation. When a receiving field is not large enough to accept a sending field, one 
or more significant digits may be truncated or lost. 


UNSTRING. A statement used to condense input into a more compact form. 

Update procedure. The process of making a master file current, 

USAGE clause. A clause that specifies the format in which data is stored. 

User-friendly. A technique used for making user interaction with a program easy; 
instructions to a user are clear and easy to follow; entries to be keyed by the user 
are similarly easy to supply. 


Validation. See data validation. 

VALUE clause. A literal or figurative constant to be placed in a field; the VALUE must 
be in the same mode as the PICTURE clause; it can only be used for initializing 
fields in WORK ING-STORAGE. 

Variable data. Data that changes during each run of a program; contrast with constant. 

Variable-length records. Records in a file that have different lengths. 

Verification procedure. The process of re-keying data that has already been entered 
to ensure that what was originally keyed is correct, reduces input errors by approx- 
imately 90%. 
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Virtual storage access method (VSAM) A method of indexed file organization that is 
efficient and easy for the programmer to use. 


Walkthrough. The process of checking a program manually to see if it will produce 
the results desired. 

WORKING-STORAGE SECTION. A section of the DATA DIVISION that contains data 
items other than input and output that are necessary for processing; also used to 
store input or output records that must be maintained for future processing. 

WRITE. A statement used to produce output data. 


Zoned decimal format. The standard form for storing data where each byte has a zone 
and digit format. 


Appendix L 


Structure Charts 


A structure chart provides a visual or graphic overview of the relationships 
among modules in a COBOL program. If one module calls other modules with 
the use of a PERFORM statement, then the relationships of these modules are 
illustrated hierarchically in a structure chart. In appearance, structure charts 
resemble organization charts and HIPO charts, which are systems-level struc- 
ture charts. A structure chart is also referred to as a hierarchy chart or a visual 
table of contents (VTOC). 

Consider the procedure in Figure L.1 which calculates wages for each em- 
ployee, where overtime is calculated as time-and-a-half. Also each page prints 
25 lines, then a new page with headings is generated. 

The hierarchy chart for the PAYROLL program is illustrated in Figure L.2. 
Even if you are not entirely familiar with all the specific instructions, you will 
note that the hierarchy chart provides a visual overview of the relationship 
among modules. Modules marked with a black corner as shown below represent 
those that are referenced or performed from more than one point in the program: 


Note that when a subordinate module such as 600-OVERTIME-RTN is ex- 
ecuted in its entirety, control then returns to the next highest module, 500- 
COMPUTE-WAGES in this instance. When 500-COMPUTE-WAGES has been 
executed in its entirety, that is, when EOF = 1 in the program, control returns to 
100-MAIN-MODULE. Because logical control is depicted in this hierarchical 
fashion in a structure chart, it is frequently referred to as a top-down tool. 

A structure chart has the following advantages: 


1. Helps programmers debug and modify programs. 
2. Helps users understand the logical flow in a program. 
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3. Helps programming managers assess the efficiency of programs. 
4. Helps systems analysts see how modules interrelate. 


Thus it is both a design and documentation tool. 

Note that the numbers used to precede descriptive module names help in 
locating the module. 100-MAIN-MODULE, for example, directly precedes 200- 
INITIALIZE-RTN, etc. It isnot uncommon to have modules such as 400-READ- 
PAYROLL-REC with only one instruction. Statements that either read input or 
write output are typically set apart in a module so that they can be referenced 
from more than one point in the program. 

You can see that a structure chart is not designed to highlight individual 
instructions. Flowcharts and pseudocode serve this purpose. Rather, a structure 
or hierarchy chart provides an overview of module interrelationships, hierarchy, 
and structure. It also serves as a kind of table of contents, helping users and 
programs locate modules in a program. This is why the term “visual table of 
contents” (VTOC) is sometimes used. 

The use of 100-, 200-, etc. as prefixes to module names are, as noted, ex- 
tremely useful in large programs where the numbering system used makes it 
easier to find the module. Be sure that 100-X, for example, is coded before 200-X, 
ete: 

Long and complex programs are best documented with the use of structure 
charts that accompany flowcharts and pseudocode. Whereas the latter program 
tools focus on the overall set of instructions, structure charts focus on the inter- 
relationship among modules. 

The following programs in the text are illustrated here with structure charts. 
Note that prefixes 100-, 200-, etc. do not appear in the text because the programs 
illustrated are not very long. Hence we omit these prefixes from the structure 
charts themselves. 


PAGE NO. PROGRAM'S FIGURE STRUCTURE CHART’S 
IN TEXT NO. IN TEXT FIGURE NO. 
p. 348 Figure 14.9 L.3 
Control Break) 
p. 414 Figure 16.8 L.4 
Straight Line 
Depreciation) 
p. 518-519 Figure 19.4 L5 
Table Handling) 
p. 583 Figure 21.9 L.6 
Sequential File 
Update) 
p. 633 Figure 23.10 L.7 
Update of Indexed 


File) 
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Figure L.1 


PAYROLL PROGRAM 


1@0-MAIN-MODULE. 
OPEN INPUT PAYROLL, OUTPUT PRINT-REPORT. 
PERFORM 20@-INITIALIZE-RTN. 
PERFORM 300-HEADING-RTN. 
PERFORM 4@@0-READ-PAYROLL~REC. 
PERFORM 5@@-COMPUTE-WAGES UNTIL EOF = 1. 
CLOSE PAYROLL, PRINY’-REPORT. 
STOP RUN. 
2@@-INITIALIZE-RIN. 
MOVE 1 TO PAGE-CT. 
ACCEPT DATE-IN FROM DATE. 
300-HEADING-RIN,. 
WRITE PRINT-REC FROM HDG] AFTER PAGE. 
WRITE PRINT-REC FROM HDG2 AFTER 2. 
ADD 1 TO PAGE-CT. 
MOVE @ TO LINE-CT. 
400-READ-PAYROLL=-REC,. 
READ PAYROLL 
AT END MOVE 1 TO EOF. 
5@0-COMPUTE-WAGES. 
IF HOURS > 4@ 
PERFORM 69@-OVERTIME-RIN 
BLSE 
COMPUTE WAGES = HOURS * RATE. 
PERFORM 700-WRITE-RTN. 
PERFORM 4@00-READ-PAYROLL-REC. 
690-OVERTIME-RTN. 
COMPUTE WAGES = 4@ * RATE + (HOURS - 40) * RATE * 1.5. 
709-WRITE-RTN. 
WRITE PRINT-~REC FROM DETAIL-REC AFTER 2. 
ADD 1 TO LINE-CT. 
IF LINE-cT = 25 
PERFORM 306-HEADING-RTN. 
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Figure L.2 


Structure or Hierarchy Chart for PAYROLL PROGRAM 
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Figure L.3 


Structure Chart of Control Break Procedure 


in Figure 14.9 on p. 348 
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Figure L.5 


Structure Chart of Table Handling Procedure 


in Figure 19.4 on p. 518-519 
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Figure L.6 


Structure Chart of Sequential File Update 


in Figure 21.9 on p. 583 
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Figure L.7 


Structure Chart of Update of Indexed File 


in Figure 23.1% on p. 633 
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A, in PICTURE clause, 80-81 
Abend (abnormal end], 161, 256-257, 363 
Absolute value, of a number, 230-231 
ACCEPT statement: 
formats, 662-666 
to print date of run, 314-316 
for printing day of week, 316 
Access arm, disk, 614-615 
ACCESS clause: 
defined, 626, 638, 644 
DYNAMIC, 636, 644 
SEQUENTIAL, 577 
ACTUAL KEY, 806-807 
Addressing error, 712 
ADD statement, 177-180 
ADVANCING option, of WRITE statement, 
299-303 
AFTER ADVANCING clause, with WRITE 
statement, 299-303 
AFTER option, of PERFORM statement, 411 
Algebraic comparison, 214 
Alignment of data, 275, 307-312 
Alphabetic fields, defined, 80 
Alphabetic MOVE, see Nonnumeric MOVE 
ALPHABETIC test, 231-232, 365-366 
Alphanumeric (alphameric) field, defined, 80 
Alphanumeric literal, see Nonnumeric literal 
Alphanumeric MOVE, 133-136 
ALTERNATE RECORD KEY, with VSAM 
processing, 622, 642-643 
American National Standards, see ANS 
(American National Standards) COBOL 
AND, in compound conditional, 227-230 
ANS (American National Standards) COBOL, 
6-7, 771-773 
ANSI (American National Standards Institute], 
6-7 
Apostrophe, conventions for, 33 
ARE, in COBOL statements, 71 
Area A, 42-44 
Area B, 42-44 
Arithmetic operations, 176-208 
Array processing, 462-487, 525-537 
ASCENDING KEY: 
with SEARCH ALL statement, 512 
with SORT, 590-593 
Ascending sequence, 364 
ASCII (American Standard Code for Information 
Interchange): 
with collating sequence, 214-215, 719 
defined, 214 
with SORT, 591-593 
ASSIGN clause, 55-59, 624-625 
Asterisk (*): 
for comments, 42, 44, 110-111 
printing of, 281-282 
AT END clause, of READ statement, 100 
AUTHOR, 47 
Auxiliary storage: 
disk, 614-621 


tape, 736-746 


B, in report-item, 283-284 
Backup file, 620, 746 
Batch processing, 737 
Batch total, 380 
BEFORE ADVANCING clause, with WRITE 
statement, 299-303 

Binary format, 701 
Binary SEARCH, 510-511 
Bit, 614, 738-739 
Bits per inch, see Bpi 
BLANK WHEN ZERO option, 288 
Blanks, erroneously in numeric field, 212 
BLOCK CONTAINS clause, 69-70, 643 
Blocking records, 69-70, 740-741 
Bpi (bits per inch), 740 
Brackets, in format statement, 46 
Buffer area, 304-305 
Business-oriented language, 5-6 
BY: 

in DIVIDE statement, 183-186 

in MULTIPLY statement, 183-186 


C01, 302-303 
Called program, 690 
Calling program, 690 
CALL statement, 689-697 
Capitalized words, in format statement, 46 
Carriage control character, 68-69 
Case structure, 440, 447-449 
Catalogue program, 688 
Chain, and data base, 776-777 
Channels, and printing, 302 
Character set, in COBOL, 719 
Check digit, 712-715 
Check protection symbol {*}, 281-282 
Class test, 231-232, 365-366 
Clauses, of COBOL program, 43-44 
C-level (conditional] errors, 252-253 
CLOSE statement, 105-106 
COBOL: 

character set, 33, 719 

history of, 6-7 

language formats, 722-735 

nature of, 5-6 

program structure, 40-45 

reserved words, 719-722 

source program card, 40-41 

standards, 771-773 
CODASYL (Conference on Data Systems 

Languages), 6-7 

Coded field, 85, 372-374 
Coding rules, 45 
Coding sheet, 40 
Collating sequence: 

defined, 214-215, 719 

with SORT, 591-593 
Column headings, on printouts, 307-316 
Columns, of coding sheet, 40-42 
Comma, printing of, 281 
Comments, 42, 44, 110-111, 268 
Compiler (compilation), 3 
Compound conditional, 225-230 
COMPUTATIONAL (COMP), 698-701 
COMPUTATIONAL-3 (COMP-3}, 

698-701 


INDEX 


Computer-dependent entries, in 
ENVIRONMENT DIVISION, 53-59 
Computer program, see Program 
COMPUTE statement, 191—197 
Concatenation, 668 
Conditional (C-level) errors, 263-264 
Conditional statement: 
defined, 209-248 
nested, 430-437 
Condition-name, 372-374 
Conference on Data Systems Languages, see 
CODASYL 
CONFIGURATION SECTION, 53-54 
Connector symbol, of flowchart, 751 
CONSOLE: 
with ACCEPT statement, 663 
with DISPLAY statement, 660-661 
Constant, 31-35, 124 
Continuation position: 
for comments, 110-111 
for continuing literals, 162-163, 312 
defined, 42, 44 
Continuous form, 301 
Control break processing, 325-361 
CONTROL clause, 786, 790-792 
Control field, 326-328 
CONTROL FOOTING, 786, 790-792 
CONTROL HEADING, 786, 790-792 
Control listing, for validation, 363-364 
Control record, 157 
COPY statement, 685-689 
Counter, 155-156, 218-220 
CP/M, 762, 774-775 
Creating master file, 558 
Creating transaction file, 558 
Credit symbol, printing of, 283 
CURRENT-DATE, 316 
Cylinder, on disk, 616-617 


D, in SELECT statement, 56-58 
DA, in SELECT statement, 56-57 
Data; 
hierarchy of, 28-29, 35 
types of, 30-35 
Data base, 24, 675, 776-780 
DATA DIVISION, 11, 14, 30-31, 64-92, 268 
Data exception error, 212, 261, 712 
Data-name, 28-29, 77, 267 
Data organization, 23-38 
DATA RECORD clause, 70 
Data set, for programming assignment 2, 809 
Data validation: 
with check digits, 712-715 
defined, 362-389 
DATE, 314-316, 663 
DATE-COMPILED, 47 
Date of run, printing, 313-316 
DATE-WRITTEN, 47 
DAY-OF-WEEK, 316, 772 
DD statement, 768 
Deactivating disk records, 626-628 
Debit symbol, printing of, 283 
Debugging COBOL programs, 3-4, 10-11, 249-— 
272, 71-712, 
Decimal point: 
implied, 12, 14, 84 
in MOVE, 130-131 
in numeric literal, 32 
printing of, 142, 168, 278 
Decision symbol, of flowchart, 750 
Decision table, and nested conditionals, 431 
Declining balance, method of depreciation, 413- 
416 
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Default, 252 
DELETE statement, 628 
Deleting records: 
from disk file, 626-628 
from sequential file, 569-570 
from VSAM file, 643 
DELIMITED: 
with STRING, 668 
with UNSTRING, 674 
“Demand” output, 559 
Density, tape, 739-740 
Department of Defense, and history of COBOL, 6 
Depreciation table, printing of, 411-416 
DESCENDING KEY: 
with SEARCH ALL statement, 512 
with SORT, 590-593 
Descending sequence, 364 
Desk checking program, 10, 250 
Detail printing, 326 
Device specification, in SELECT statement, 54— 
59 
Direct-access (DA) device, 56-57 
Direct file, 623, 805-808 
Disk: 
concepts, 614-621 
direct file, 623, 805-808 
indexed file, 613-657 
master file, 557-558 
relative file, 623, 800-805 
sequential, 575-579 
DISPLAY statement: 
for debugging, 259-260 
defined, 659-662, 665-668 
for printing disk records, 625 
for printing errors, 565 
for printing output, 117 
Divide exception, 712 
DIVIDE statement, 183-186 
Dividing by zero, as size error, 190, 263 
Divisions, of COBOL program, ll, 43-44 
Documentation, and COBOL comments, 42 
Dollar sign, printing of, 142, 281 
DOS (disk operating system), 764-770, 774-775 
Double-level control break, 342-346 
Double-level OCCURS, 526-543 
Drive: 
disk, 614-615 
tape, 737 
DUMP option, 711 
Duplicate record key, with VSAM, 643 
Dynamic access, of indexed files, 640, 644 


EBCDIC (Extended Binary Coded Decimal 
Interchange Code): 
with collating sequence, 214~215, 719 
defined, 214-215, 719 
with disk, 616 
with SORT, 591-593 
with tape, 738-739 
Editing printed output, 274-297 
Edit program, 377-381 
Edit symbols, 142-143, 277-285 
88-level entry, 372-374 
Elementary item, 27-28, 78-85 
E-level (execution) errors, 253-254 
ELSE clause, 210-212 
Embedded blank, 28 
ENDIF: 
defined, 214 
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in logical control structures, 445-447 

and pseudocode, 755 
End-of-file: 

and AT END clause, 100 

error, 262 

“flag” 14 

indicator, 87 

record, 100 
End-of-job processing, 105-106 
End-of-page control, 303-304 
ENDPERFORM, 222, 755 
END: (verb), (1985 ANS COBOL), 264, 771 
English-like language, 6 
Enhancements, to programming language, 7 
Entry-sequenced data set, using VSAM, 645 
ENVIRONMENT DIVISION, 11, 14, 52-63 
EOE defining in WORKING-STORAGE, 156 
Error codes, in diagnostics, 252 
Errors: 

coding, 372 

format, 365-366 

input, 363 

keying, 364 

missing data, 366 

programming, 3-4, 10-11, 251-266 

sequence, 364 

in table look-up procedures, 493-495 

in update procedures, 565 
EVALUATE statement, 772 
Even-parity computer, 738 
EXAMINE statement (1968 ANS COBOL), 

369-370 

EXEC command, 767-768 
EXHIBIT statement, 258-260, 711 
EXIT PROGRAM, with CALL statement, 693 
EXIT statement, 400-401, 598 
Exponentiation, in COMPUTE, 192 
External label: 

on disk, 619-620 

on tape, 744-745 
External-name: 

defined, 46-47 

in SELECT statement, 56-57 
External subroutine, 690 


“Fatal” error (E-level), 253-254 
FD (File Description), 14, 66-71 
Field: 
defined, 12, 14, 27-28, 75-79 
key, 364, 560 
Field delineators, on printout, 307-316 
Figurative constant, 34 
File: 
defined, 12, 14, 24-25, 736 
master, 557-558 
transaction, 558 
FILE-CONTROL, 54-59 
File Description entries, see FD 
File maintenance, 555-588 
File-name, 55, 66 
File processing: 
using disk, 621-624 
using tape, 736-746 
File protection ring, 745-746 
FILE SECTION, 14, 65-92 


FILLER, in record description entry, 82-83 
FINAL, CONTROL IS, 786, 790 
Fixed-head magnetic disk, 617-618 
Fixed-length record, 740 
Flag, see Switch 
Floating string, 286-288 
Floppy disk, 618-619 
Flowchart, program: 
and conditional statements, 212-214, 217, 219, 
222 
for control break procedure, 333 
defined, 10, 747-754 
and logical control, structure, 434-449 
for update procedure, 562 
Footings, 786, 790-792 
Format specifications, 46, 96-97 
FROM, in SUBTRACT, 180-182 


GENERATE statement, 797 

GIVING, in arithmetic operations, 177-208 
GIVING option, with SORT, 593-595 

GO TO statement, 8, 398-399, 438 

GO TO ... DEPENDING ON, 438-442 

GO TO-less programming, 8 

Glossary, 810-820 

Group item, 27, 78-85 

Group MOVE, 135-136 

Group printing, 326 


Hashing technique, with direct file, 623 
Hash total, 380 
Header label, 67 97-98, 620, 745 
Headings, 9, 26, 164-167, 276, 307-316 
Hierarchical data base, 777 
Hierarchy: 

in arithmetic, 195-196 

in conditionals, 228-230 

of data, 28-29, 35 
Hierarchy charts, 821 
High-order position, of field, 12, 128 
HIGH-VALUES, 566-567, 631-632 


I, in SELECT statement, 56-58 
IBG (interblock gap}, 740 
Identification, on coding sheet, 41-42 
IDENTIFICATION DIVISION, 11, 14, 39-48 
IF statement, 209-248 
IFTHENELSE: 
in conditional, 213-214, 751 
as logical control structure, 444-446 
and pseudocode, 755 
Imperative statement, 190, 210 
Implementor-name, 55 
Implied decimal point, 12, 44, 84 
Implied operand, 226 
Indenting clauses, 267-268 
Independent entries, in WORKING-STORAGE, 
154 
Index: 
on disk, 621-622 
structure, with VSAM, 641 
with OCCURS, 498-501 
INDEXED BY clause, and SEARCH statement, 
498-499 
Indexed files, 613-657 
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Indexed sequential access method, see ISAM 
Infinite loop, 220 
INITIALIZE statement (1985 ANS COBOL), 
260, 771-772 

Initializing: 

field, 260 

index, 500-501 
Initial read, technique in structured 

programming, 268-269 

INITIATE statement, 797 
Input, 3, 97-98 
Input area, 66 
Input errors, 264-265, 363 
INPUT-OUTPUT SECTION, 14, 53-59 
Input/output symbol, of flowchart, 750 
INPUT PROCEDURE, 596-601, 603-607 
INSPECT statement, 366-369, 666-669 
INSTALLATION, 47 
Instruction format rules, 46 
Integer MOVE, 128-130 
Interactive processing, 658-682 
Interblock gap (IBG), 740 
Interrupt, program, 712 
INTO, in DIVIDE statement, 183-186 
INVALID KEY clause, 626-634 
Inverted file, with VSAM processing, 643 
Inverted list, 777 
I-O, in OPEN statement, 577 630 
IS, in COBOL statements, 71, 81 
ISAM, 613-640 
Iteration, 219, 447 


Job control language (JCL); 763-770 
JOB statement, 766-767 
JUSTIFIED RIGHT clause, 312 


KEY: 
ACTUAL, 806-807 
ASCENDING, 590-593 
DESCENDING, 590-593 
INVALID, 626-634 
RECORD, 626 
RELATIVE, 800-801 
Key field, 364, 560, 622, 712~715 
Keying errors, 364 
Keying source program, 3 
Key-sequenced data set, with VSAM, 645 


Label checking, and OPEN statement, 98 
LABEL RECORDS clause, 67-68, 745 
Langauge formats, 722—735 

Level 88, 372-374 

Level numbers, 74-79 

Level 77, 154 

Librarian, for tapes and disks, 620 
Library, and COPY statement, 685 
Library-name, 686 

Limit test, 371-372 

LINAGE clause, 304, 773 

LINE clause, 792 

LINE-COUNTER, 792-793 

Line counters, 303-304 

LINE NUMBER, 792 

Line number, on coding sheet, 44 

LINES, with WRITE statement, 299-300 
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LINKAGE SECTION, 65, 691-694 

List, 776-780 

Literal, see Constant 

“Live’’ data, in test run, 255-256 

Logical control structures, 443-449, 751-752 

Logical control symbol, of flowchart, 751 

Logic error, 3-4, 11 

Loop, 217-221, 402 

Lowercase letters, in collating sequence, 591 

Low-order position, of field, 12, 130 

LOW-VALUES, 628 

Low-volume input with ACCEPT statement, 
663 

Low-volume output with DISPLAY statement, 
659 


Machine language program, 3 
Magnetic disk, see Disk 
Magnetic tape, see Tape 
Main module, 15, 102 
Map, PROCEDURE DIVISION, 711 
Margins: 
on coding sheet, 42-44 
for printed output, 307-316 
Master file, 24, 557-558, 736 
Matching files, 575 
Menu, and GO TO ... DEPENDING ON, 442 
MERGE statement, 575, 606-607 
Merging files, 573-575 
Micros, and COBOL, 774-775 
Microsoft COBOL, 774 
Minus sign, printing of, 282-283 
Missing data test, 366 
Mnemonic-name: 
with ACCEPT statement, 663 
defined, 302-303 
in DISPLAY statement, 656~660 
Module: 
main, 15, 102 
in PROCEDURE DIVISION, 94-95 
in structured program, 8 
Modulus-11 arithmetic, for calculating check 
digit, 713-715 
MOVE CORRESPONDING statement, 137-139, 
284 
MOVE statement, 107~108, 122-152 
Moving-head magnetic disk, 617 
MS-DOS, 762 
Multiple-level control break, 342-346 
Multiple-level OCCURS clause, 525-554 
Multiple record formats, within file, 85-86, 
165-167, 266 
Multiple transaction records, in update 
procedure, 571, 573 
MULTIPLY statement, 183-186 
Murphy’s Law, 363 


Negating conditionals, 232-234 
NEGATIVE, in conditional, 230-231, 366 
Negative numbers, printing of, 282-283 
Nested conditional: 

defined, 430-437 

in update procedure, 566 
Nested PERFORM, 220, 394, 410 
Network, data base, 776-780 
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New account processing, in update procedure, 
565, 568-569 
NEXT GROUP clause, 793 
NEXT PAGE, 792 
NEXT SENTENCE, 216-217 
9, in PICTURE clause, 80-81 
9-bit code, on disk, 616 
Nine-track tape, 738 
NOMINAL KEY (1968 ANS COBOL), 629 
Nonnumeric field, 80 
Nonnumeric literal: 
continuation of, 162-163, 312 
defined, 32-34 
Nonnumeric MOVE, 133-136 
NUMERIC, in conditional, 231-232, 365-366 
Numeric field, defined, 80 
Numeric literal, 31-32 
Numeric MOVE, 127-133 


OBJECT-COMPUTER, 53-54 
Object program, 3 
OCCURS clause: 
multiple level, 525-554 
with SEARCH, 488-524 
single level, 462-487 
OCCURS ... DEPENDING ON, 470 
Odd-parity computer, 738 
OMITTED, in LABEL RECORDS clause, 67-68 
ON SIZE ERROR clause, 189-191, 193-194 
OPEN statement: 
defined, 97-98 
1-0, 630 
Operand: 
defined, 177 
implied, 226 
Operating system, 762-770 
Operational sign, see Sign 
Operation error, 712 
OPTION, command, 711 
OR, in compound conditional, 225-227 
Order of evaluation: 
in arithmetic, 195-196 
in compound conditional, 228-230 
ORGANIZATION IS INDEXED clause, 625— 
626 
ORGANIZATION IS RELATIVE, 800-801 
ORGANIZATION IS SEQUENTIAL, for disk 
files, 577 
Organization method, in SELECT statement, 
56-58 
OS (operating system), 764-770 
Output, 3, 97-98 
Output area, 66 
OUTPUT PROCEDURE, 601-607 
Overflow area, on disk, 623, 641 
Overflow condition, in arithmetic, 189-191 
OVERFLOW option: 
with STRING, 672 
with UNSTRING, 675 
Overlapped processing, 305 


Pack, disk, 614 
PACKED-DECIMAL, 698-701 
Packing, 699-700 

PAGE FOOTING, 786, 790-792 


PAGE HEADING, 786, 790-792 
PAGE LIMIT clause, 786-787 
Page number, on coding sheet, 42, 44 
Page numbers, printing of, 312-313 
PAGE option, with WRITE statement, 301-302 
Paragraph, 8, 15, 43-44, 94-95 
Paragraph names, 46-47, 266-267 
Parentheses: 
in compound conditional, 229-230 
in PICTURE clause, 81 
Parity, 738-739 
Parsing, 675 
PC-DOS, 762 
PERFORM: 
as logical control structure, 447, 752 
and pseudocode, 755 
simple, 221-223 
statement, 392-428 
in structured programs, 8 
PERFORM...TIMES statement, 405-407 
PERFORM...UNTIL statement, 101-104, 217— 
221, 402-405, 752 
PERFORM...VARYING statement: 
with array processing, 465-466 
defined, 407-409 
with index, 499 
Period: 
in conditional statement, 215-216 
in record description entry, 78-79 
PICTURE (PIC) clause, 78-85 
Planning program, 250 
Plus sign, printing of, 282-283 
POINTER: 
with STRING, 672 
with UNSTRING, 675 
Pointer, and data base, 776-777 
POSITIVE, in conditional, 230-231, 366 
Practice program, defined, 113 
Prefix, to uniquely define data-name, 141 
Print layout sheet, see Printer Spacing Chart 
Printer Spacing Chart, 9, 144, 167, 275-276, 
307-308 
Printing: 
coding rules, 141-143, 167-169, 274-361 
decimal point, 142, 168 
dollar sign, 142 
records, using WORKING-STORAGE, 164— 
169 
PROCEDURE DIVISION, 11, 14-16, 93-119 
PROCEDURE DIVISION map, 711 
PROCEDURE DIVISION USING, with CALL, 
692-693 
Processing symbol, of flowchart, 750 
Program, 3 
Program flowchart, see Flowchart 
Program walkthrough, 10 
PROGRAM-ID: 
with CALL statement, 692 
defined, 46-47 
Program interrupt, 161, 712 
Programmed labels: 
on disk, 620 
on tape, 745 
Programmer, 3 
Programmer-supplied data-name, 28-29, 77 
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Programmer team, 250-251 
Programming assignments: 
defined, 20 
tules for coding, 117 
Programming errors, 251-266 
Program planning, 250 
Program sheet, see Coding sheet 
Prompt, with ACCEPT statement, 665 
Pseudocode: 
and conditional statements, 212-214, 217, 219, 
222 
for control break procedure, 334 
defined, 10, 754-756 
and logical control structures, 443-449 
of update procedure, 562 
Punctuation: 
in format statement, 46 
in IDENTIFICATION DIVISION, 46-47 


Qualification of names, 139-141 
Query, and use of UNSTRING, 674-675 
Quotation mark: 
conventions for, 33n 
printing of, 316-317 
QUOTE, 316317 


R, in SELECT statement, 56-58 
Random access, 628-639, 636 
Randomizing technique, with direct file, 623 
Range test, 371 
READ statement, 99-100 
READ ... INTO statement, 266, 336 
READ .., NEXT, 644 
RD entry, 785 
Read/write head: 

of disk drive, 614, 616 

of tape drive, 741-742 
READY TRACE statement, 256-258, 711 
Reasonableness test, 371-372 
Receiving field, 123 
Record, 12, 14, 25-26 
RECORD CONTAINS clause, 68-69 
Record description entries, 74-85 
RECORD KEY clause, 626 
Record layout form, 8-9 
Record-name, 70, 74—79 
REDEFINES, 315-316, 477-478, 541 
Relational data base, 776-777 
Relational symbols, 212 
Relative file, 623, 800-805 
RELATIVE KEY, 800-801 
Relative-record data set, with VSAM, 645 
RELEASE statement, 598 
REMAINDER clause, in DIVIDE statement, 186 
REMARKS (1968 ANS COBOL], 47n 
REPLACING clause, with COPY statement, 

688-689 

REPORT FOOTING, 791-792 
Report heading, 307-316 
REPORT HEADING, 790-792 
Report-item, 142, 277-285 
REPORT SECTION, 65, 782-783 
Report Writer Feature, 781-799 
RESERVE clause, 58-59, 305 
Reserved word, 28, 719-722 
RESET clause, 795 
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RESET TRACE statement, 258 
Resultant field, in arithmetic, 177 
Retention cycle, of tape, 744 

RETURN statement, 604 

REWRITE statement, 575-579, 630-631 
Ring list, 777 

ROUNDED clause, 187-189, 193-194 
Routine, 8, 94-95 

Rule violations, in COBOL, 251-255 


S, in PIC clause, 366 
Sample data set for programming assignment 2, 
17 
SD (sort description), 593 
SEARCH ALL statement, 509-512 
SEARCH statement, 488-524, 537-543 
Sections, of COBOL program, 43-44, 596-597 
Sector, on disk, 614 
SECURITY, 47 
SELECT statement, 55-59, 625-626 
Self-documenting language, 6 
Sending field, 123 
Sentence, 43-44, 95 
Sequence, in program, 444, 751 
Sequence checking, 335, 364-365, 570-571 
Sequence number, on coding sheet, 42, 44 
Sequential access, of indexed file, 634 
Sequential file: 
organization, 619, 621 
processing, 555-558, 743 
SEQUENTIAL ORGANIZATION, for disk files, 
577 
Serial number, on coding sheet, 42, 44 
Serial SEARCH, 509 
SET statement, 499-500, 540 
77-level item, in WORKING-STORAGE, 154 
Sign, in numeric literal, 32 
Signed numbers, in arithmetic, 197 
Sign test, 230-231, 366 
Simple condition, 210-212 
Simple list, 776-777 
Single-level control break, 330-339 
Single-spacing, 299 
SIZE: 
ERROR, 189-191 
with STRING; 668 
with UNSTRING, 674. 
Size, of fields, 79-81 
/PRINT: 
for debugging, 578 
defined, 259 
to display output, 117 
for printing disk files, 625 
Sort description (SD, 593 
SORT statement, 589-612 
SOURCE clause, 795 
SOURCE-COMPUTER, 53-54 
Source listing, 16 
Source program, 3, 41 
Source statement library, 685 
SPACES: 
defined, 34 
in MOVE, 136 
in numeric field, 212 
Spacing output data for readability, 141-142, 275, 
283-284, 299-307 
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SPECIAL-NAMES paragraph: 

with ACCEPT statement, 664 

of CONFIGURATION SECTION, 302-303 

defined, 54, 304-305 

with DISPLAY statement, 661 
Specification error, 712 
Spooling, of output, 304-305 
STANDARD, in LABEL RECORDS clause, 67— 

68 

Standard language, 6 
Standards, COBOL, 771-773 
START statement, with indexed files, 643-644 
STOP statement, 442-443 
Statement, 43-44, 95, 267-268 
STOP RUN statement, 106 
Storage dump, 256, 711-712 
Straight-line depreciation, 411-413 
STRING statement, 668-673 
Structure of COBOL program, 40-45 
Structured programming: 

defined, 7-8, 747 

with initial read, 268-269 

and logical control, 443-449 

and PERFORM ... UNTIL, 101-104 
Structured walkthrough, see Walkthrough 
Style guidelines for coding, 266-269 
Subprogram, 690 
Subscript, 464-465, 530-531 
SUBTRACT statement, 180-182 
Suffix, to uniquely define data-name, 141 
SUM clause, 795 
Supervisor, 762 
Suppression of leading zeros, 278-280 
Surface, of disk, 614 
Switch, 377 
Symbolic device, in SELECT statement, 57 
SYMBOLIC KEY (1968 ANS COBOL), 629 
Symbolic programming, 3-4 
SYNCHRONIZED (SYNC) clause, 701 
Syntax errors: 

correcting, 10 

debugging, 251-255 

defined, 3-4 
System commands, 763-770 


Table handling, 463, 488-524, 537-543 
TALLY (1968 ANS COBOL), 370 
Tallying characters, 366-369 
Tape: 

cartridge, 746 

cassette, 746 

concepts, 736-746 

density, 739-740 

drive, 737 

librarian, 745 

master file, 557-558 
Terminal symbol, of flowchart, 751 
TERMINATE statement, 797 
Test data: 

defined, 10 

designing, 255-256 

preparation of, ll 
THEN, in IF statement (1985 COBOL), 214 
THRU (THROUGH) option of PERFORM, 397- 

398 

TIMES option, of PERFORM, 405-407 


TO, in ADD statement, 177-180 
Top-down programming, 8 
TRACE statement, 256-258 
Tracks, of disk, 614, 616 
Trailer label, 67 
Transaction file, 558 
Transcription error, 713 
Transposition error, 713 
Tree, 776-780 
Triple-level OCCURS, 543-546 
TRSDOS COBOL, 775 
Truncation: 

with arithmetic, 187-189 

error, 262 

with MOVE, 129-130 
TYPE clause, 790-792 
TYPEWRITER: 

with ACCEPT, 664 

with DISPLAY, 661 


Underlining heading, 300 
Unit-record (UR) devices, 56-57, 68 
UNIX, 762 
UNSTRING, 673-675 
UNTIL option, of PERFORM, 402-405 
Updating: 

defined, 24-25 

direct files, 805-808 

indexed files, 628-630 

relative files, 800-805 

sequential files, 558-571 
Uppercase letters, in collating sequence, 591 
UR, in SELECT statement, 56-57 
USAGE clause, 698-701 
User-friendly, 6 
User program, 690 
USING: 

with CALL, 692 

with SORT, 593-595 
UT, in SELECT statement, 56-57 
Utility (UT) device, 56-57 


V, in PICTURE clause, 84 
Validation of data, 260, 362-389 
Validation program, see Edit program 
VALUE clause: 

with condition-names, 372-374 

with OCCURS, 477-478 

with REDEFINES, 541 

in WORKING-STORAGE SECTION, 86-87, 

159-162 

Variable data, 30-31, 35 
Variable-length record, 740 
VARYING option, of PERFORM, 407-409 
VAX Digital command language, 770 
Verification of data, 364, 712-715 
Virtual storage (VS), 640-641, 762 
VSAM, 640-657 


Walkthrough, see Program walkthrough 

Winchester disk, 618 

W-level (warning) error, 252 

Work file, in SORT, 592-593 

WORKING-STORAGE SECTION, 14, 31, 65, 86- 
87, 153-175, 308-316 

WRITE ... FROM statement, 299, 309 


INDEX 


WRITE statement: 
as compared to DISPLAY, 659 
defined, 108-110 
Wrong length record check, and READ 
statement, 99-100 


X, in PICTURE clause, 80-81 
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Z, as edit symbol, 278-280 
ZERO (ZEROS, ZEROES): 
in conditional, 230-231 
defined, 34 
in MOVE, 136 
printing of, 283-284 
Zoned decimal format, 699 
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